기존에 command문을 이용한 출력 리습을 만들어 사용 중인데
ucs 변환된 도면에서는 작동하지 않아 관련 변환 구문을 추가하여 사용하고 있었습니다.

최근에 리습 작동 속도를 높이고 싶어 vla-plotToFile / vla-plotToDevice 구문을 이용하게 수정했습니다.
다른 리습에서 vl 관련 코드는 얻어왔구요.
그런데 command문에서는 작동하던 변환구문이 vla-plot을 이용하니 제대로 작동하지가 않습니다.

예상컨대 좌표 변환간에 문제가 발생하는게 아닌가 싶은데 어디가 문제인지를 모르겠어 도움 요청드립니다.
아래는 사용 코드 일부 발췌입니다.

1. 아래 코드를 이용해서 ucs 설정된 도곽 블록 좌표를 wcs 기준으로 환산합니다.

;——————————————
;; Doug C. Broad, Jr.
;; can be used with vla-transformby to
;; transform objects from the UCS to the WCS
(defun UCS2WCSMatrix ()
(vlax-tmatrix
(append
(mapcar
‘(lambda (vector origin)
(append (trans vector 1 0 t) (list origin))
)
(list ‘(1 0 0) ‘(0 1 0) ‘(0 0 1))
(trans ‘(0 0 0) 0 1)
)
(list ‘(0 0 0 1))
)
)
)

;; transform objects from the WCS to the UCS
(defun WCS2UCSMatrix ()
(vlax-tmatrix
(append
(mapcar
‘(lambda (vector origin)
(append (trans vector 0 1 t) (list origin))
)
(list ‘(1 0 0) ‘(0 1 0) ‘(0 0 1))
(trans ‘(0 0 0) 1 0)
)
(list ‘(0 0 0 1))
)
)
)

2. 변환 과정에서 잠긴 레이어가 있으면 잠긴 객체는 내버려두고 변환되어 결과값이 이상해지길래 잠금해제 후 복원하는 구문을 추가했습니다.

;레이어 잠금상태 저장
(defun ls1 (/ )
(setq
layerstates ‘()
lays (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(vlax-for x lays
(setq layerstates (append layerstates (list (cons (vla-get-name x) (vla-get-lock x)))))
(vla-put-lock x :vlax-false)
)
)

;레이저 잠금상태 복원
(defun ls2 (/ )
(vlax-for x lays
(vla-put-lock x (cdr (assoc (vla-get-name x) layerstates)))
)
)

3. help.autodesk에서 vla-getboundingbox로 얻은 좌표를 vla-setwindowtoplot 기능 넣을 수 있는 좌표값으로 변환하는 방법을 시도하다 도저히 안되겠어서 다른데서 얻어온 변환 코드입니다.

(defun List->Safearray (lst) (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 (1- (length lst)))) lst))

4. 위의 구문들을 이용해서 출력하는 부분 코드입니다.

;———————–
;Original code from 별명없음
;UCS 설정된 도면 출력
(cond
((zerop (getvar ‘worlducs))
(ls1)
(vla-TransformBy vlename (UCS2WCSMatrix))
(vla-getboundingbox vlename ‘min ‘max)
(vla-TransformBy vlename (WCS2UCSMatrix))
(ls2)
)
(t (vla-getboundingbox vlename ‘min ‘max))
)
;———————–

(setq
llp (vlax-safearray->list min)
urp (vlax-safearray->list max)
width (- (car urp) (car llp))
height (- (cadr urp) (cadr llp))
landscape
(cond
((wcmatch (setq cpaper (vla-get-CanonicalMediaName cLay)) (strcat “*” “420.00_x_297.00” “*”)) (if (> width height) ac0degrees ac90degrees))
((wcmatch cpaper (strcat “*” “297.00_x_420.00” “*”)) (if (> width height) ac90degrees ac0degrees))
(t (if (> width height) ac0degrees ac90degrees))
)
papersize (_papersize (distance llp urp)) ;위쪽의 _papersize 함수를 불러옴
plotscale (if (= papersize (fix papersize)) (rtos papersize 2 0) (rtos papersize 2 3))
)
(vla-put-plotrotation cLay landscape)
(vla-put-plottype cLay acWindow)
(setq
min (List->Safearray (list (car llp) (cadr llp)))
max (List->Safearray (list (car urp) (cadr urp)))
)
(vla-SetWindowToPlot cLay min max)
(vla-put-usestandardscale cLay :vlax-false)
(vla-setcustomscale cLay 1 plotscale)
(princ (strcat “nScale = 1:” plotscale “n”))
(vla-PlotToFile cPlot pdfname)

이 코드로 pdf를 만들면 ucs 돌아간 것은 제대로 변환되는데 출력 윈도우 원점을 wcs 0,0에서부터 계산해서 엄한 곳이 출력됩니다. 해결법 아시는 분은 도움 부탁드립니다.