AutoCAD/AutoLisp18 리습파일을 로딩하는 방법 리습파일 로딩하는 방법(*.lsp *.fas %.vlx 등) 로딩목차에 포함하여 시작할때 마다 자동으로 로딩시는 방법= 1. 커멘드 라인에 appload 명령어를 입력합니다.Command: appload [엔터] 2. 아래의 대화창에서 Contents...버턴을 클릭 3. Add... 버턴을 클릭 하여 로딩할 파일을 추가하여 주세요 4. 로딩할 파일이 추가 되었으면 Close 버턴을 이용하여 종료하시면 됩니다. 캐드실행시 매번 로딩되는 것을 확인하실수 있습니다. 2015. 4. 14. 전체퍼지-3번반복 (defun c:AllPurge ;; PU; 파일의 모든객체 Purge 리습 ( / AcDoc) (vl-load-com) (setvar "cmdecho" 0) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-Object))) (repeat 3 (vla-purgeall AcDoc)) (princ "/n>>Purge all complete") (princ) ) 2014. 12. 29. 선택한 폴리라인 두께입력 ;; ───── Pline - Width 조정 (defun c:PWidth ;; PW; Pline - Width 조정 (/ SelSet WVol ObjList) (setvar "cmdecho" 0) (princ " ^.^; Pline - Width") (setq SelSet (ssget (list (cons 0 "ARC,LINE,LWPOLYLINE")))) (setq WVol (getint "\n>>내용입력: ")) (setq ObjList (vl-remove-if 'listp (mapcar 'cadr (ssnamex SelSet)))) (foreach item ObjList (command "_pedit" item "width" WVol "") ) (princ) ) 2014. 12. 29. 두점을 입력하여 객체를 자르는 리습 ;; ───── Two Point Break (defun c:PBreak ;; B; Two Point Break (/ os SelSet pt1 pt2 ObjList) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-Acad-Object))) (setq AcLay (vla-get-Layers AcDoc)) (vla-StartUndoMark AcDoc) (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 37) (princ "\n Break") ;(setq SelSet (ssget (list (cons 0 "LINE,LWPOLYLINE")(cons 8 "AS-BMXM")))) (set.. 2014. 12. 29. 이전 1 2 3 4 5 다음
