시간내서 풀어주셔서 정말 감사드립니다.
실행이 잘 돼는데요...
한가지 더 여쭤볼께 있습니다.
아래와 같이 객체로 화면 크기를 맞춘 후 선택한 객체를 wmf 파일로 내보내기를 했습니다.
그런데 아래 그림과 같이 꽉찬 화면으로 파일이 나오지 않고 여백이 많이 보입니다.
화면을 객체에 맞추기 전에(vla-zoomcenter) 먼저 나가 버리는거 같은데요...
이유를 잘 모르겠네요..
원래는 두번째 그림 처럼 나가야 할꺼 같은데요..
(defun c:test ( / sel bound minp maxp cp sz scwidth height)
(vl-load-com)
(or *adoc* (setq *adoc* (vla-get-activedocument (vlax-get-acad-object))))
(if (setq sel (car (entsel)))
(progn
(vla-getboundingbox (vlax-ename->vla-object sel) 'minp 'maxp)
(setq bound (mapcar 'vlax-safearray->list (list minp maxp)))
(setq minp (car bound) maxp (cadr bound))
(setq cp (polar minp (angle minp maxp) (* (distance minp maxp) 0.5)))
(setq sz (getvar "screensize") vz (getvar "viewsize") sc (/ vz (cadr sz)))
(setq width (- (car maxp) (car minp)) height (- (cadr maxp) (cadr minp)))
(vlax-put *adoc* 'height (+ (/ height sc) (- (vlax-get *adoc* 'height) (cadr sz))))
(vlax-put *adoc* 'width (+ (/ width sc) (- (vlax-get *adoc* 'width) (car sz))))
(vla-zoomcenter (vlax-get-acad-object) (vlax-3d-point cp) vz)
(COMMAND "WMFOUT" "c:\\temp\\test.wmf" sel "") ;; WMFOUT
)
)
(princ)
)
위 프로그램 실행하여 나간 그림
![](https://t1.daumcdn.net/cfile/cafe/112230374FA2473231)
아래 그림처럼 나가야 할꺼 같은데요..
![](https://t1.daumcdn.net/cfile/cafe/144F9B374FA247320E)