AutoCAD/AutoLisp18 [LISP] vla-AddPolyline 함수 사용에서 VerticesList에 대해서 ... 만약 여러분이 vla-AddPolyline함수를 사용하여 폴리라인을 만들려고 생각을 하였다면 VerticesList에 대해서 한번은 고민하여 보았을 것입니다. 아래의 서브루틴은 좌표리스트를 VerticesList로 변경하는 루틴입니다. 아키모아에서 못 본것 같아서 올립니다. (defun safefill (PtList ) (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble (cons 0 (1- (length (apply'append PtList))))) (apply 'append PtList) ) ) 사용하는 방법 (vl-load-com) (setq AcDoc (vla-get-activedocument (vlax-get-Acad-Object))) (cond .. 2011. 5. 12. Auto Lisp으로 자동으로 FAS 컴파일하기 특별한 리습은 없지만 컴파일을 자주 사용하다보니 매번 변경으로 인한 귀차니즘으로 ... 리습의 vlisp-compile 함수를 사용하여 자동 Fas파일제작하기 (defun c:FAS ( / FilePath FileName LspName FasName RewFas) (setvar "cmdecho" 0) (setq FilePath "C:\\AutoCAD 2010\\My Lisp 2010\\") (setq FileName (getfiled "Select a Lisp File" FilePath "lsp" 8)) (setq LspName (strcat FilePath FileName)) (setq FasName (strcat FilePath (vl-filename-base FileName) ".FAS")) (if.. 2011. 5. 12. 이전 1 2 3 4 5 다음