아래와 같이 리습을 구성중입니다.
현재 활성화된 Layer 이름으로 된 도면을 열어서 모든 z 좌표를 0으로 만드는 리습을
실행시키고 나서 저장하고 종료까지 하는 것이 만들고자 하는 리습 결과물입니다.
flatten 리습(z좌표를 0으로 만들어주는 리습)을 도면 열기 밑에 추가하고 작업을 수행했는데
도면을 열고 변경사항을 저장하고 종료하는 것은 작업이 이루어지는데
z좌표를 0으로 만드는 과정은 새로 열린 파일에서 시행되는 게 아니라
원래 열려있던 기존의 파일에서 수행되더라고요!!
새로 열린 파일에서 작업을 수행시켜 변경사항을 저장하고 닫으려면 어떻게 해야할까요?
(vl-load-com)
(setq acObj (vlax-get-acad-object)) ;<- 리습에서 캐드객체
(setq acDocs (vla-get-Documents acObj)) ;<- 캐드의 도면들 객체
(setq dwgName (strcat “d:/” (getvar “clayer”))) ;<- 도면이름
(setq newDwg (vla-open acDocs dwgName :vlax-false)) ;<- 도면 열기
; flatten 리습 내용 추가
; 새로 연 도면을 저장해라
(vla-save newDwg)
; 도면을 닫아라
(vla-Close newDwg)
)
요즘 리습을 작성하면서 고캐드에서 정말 많은 분께 도움 받고 있네요.. ㅋ
빨리 배워서 저도 도움드릴 수 있길.. ㅋㅋ