AutoCAD36 전체퍼지-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. [파일] 두번째 acaddoc.lsp 바이러스 리습분석 구문을 보니 초기 캐드바이러스 구문으로 판단이 되네요.1. support 폴더에 acaddoc.lsp 파일을 복사 한다.2. 작업폴더에 acaddoc.lsp 파일을 복사 한다. 조치방법 연결된 네트워크의 모든 폴더에서 acaddoc.lsp을 삭제하시면 됩니다.도스스크립트 언어로 모든 파일을 삭제하는 것을 만들어서 돌리면 됩니다. C~Z드리이버까지 acad.lsp, acaddoc.lsp, acadapp.lsp, acadapq.lsp, acad.fas, acaddoc.fas, acad.vlx, logo.gif, acad.reg, acadiso.lsp파일을 전부 삭제하는 스크립터 언어입니다. bat파일을 만들어서 관리자 권한으로 실행 하시면 됩니다. FOR %%P IN (C D E F G H I J K L M.. 2014. 10. 21. 이전 1 2 3 4 5 ··· 9 다음