(defun c:LL( / fn lt lt It aclts)
(vl-load-com)
(setq fn “ISU.lin”) ;로드할 파일
(setq lt “WG”) ;로드할 라인타입
(setq aclts (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))))
(cond
((tblsearch “LTYPE” lt)
(princ (strcat “n[” lt “]라인타입 이미 존재합니다”))
)
((not (vl-catch-all-error-p (vl-catch-all-apply ‘vla-load (list aclts lt fn))))
(princ (strcat “n[” lt “]라인타입 로드에 성공하였습니다.”))
)
((princ (strcat “n[” lt “]라인타입 로드에 실패하였습니다.”)))
)
(vlax-release-object aclts)
(princ)
)
위 리습은 isu.lin 파일을 불러서 그 안에 있는 라인 타입을 로드시키는 명령어입니다.
문제는 라인타입이 ‘WG’, ‘WO’, ‘WW’ 이 세가지인지 위 리습으로는 ‘WG’밖에 로드가 안됩니다.
세가지 다 로드시키고 싶은데 잘 안되네요…
어떻게 수정하면 되죠?
크트프츠Lv.0
라인타입 로드하는 리습 질문
공유