AutoCAD/AutoLisp18 [XREF] Xref파일 Bind후에 Xref에서 off된 레이어 삭제 AutoCAD 2007 이상버젼에서 구현이 됩니다. ;; ────────────────────────────── ;; Xref Bind & Off Layer 삭제 ;; Date 2008.10.06 ;; ────────────────────────────── (defun c:xbd(/ lay_0 lay_1 lay_2 lay_off lay_obj num_1 obj_num) (setvar "cmdecho" 0) (setvar "bindtype" 0) ;;Bind 기능 필요 없을 경우 삭제 (command "_.xref" "Bind" "*") ;;Bind 기능 필요 없을 경우 삭제 (setq lay_0 (tblnext "layer" t)) (while lay_0 (setq lay_1 (cdr (assoc 2 l.. 2011. 5. 15. [LSP] 캐드바이러스(acad.lsp, acaddoc.lsp...) 삭제구문 캐드버젼를 2008일 경우는 acad2008doc.lsp 리습 안에 넣어 두시면 됩니다. 다른버전은 해당되는 리습파일을 열어서 넣어두시면 됩니다. 컴퓨터 파일중에 acaddoc.lsp 파일이 있어도 acad2008doc.lsp 리습이 먼저 실행이 되기 때문에 캐드바이러스가 실행되기 전에 지우는 구문입니다. 필요하신 분만 사용을 하세요 (defun c:V3_AutoCAD (/ VList VFile) (vl-load-com) (setq VList (list "acad.lsp" "acad.vlx" "acad.fas" "acaddoc.lsp")) ;;파일명 추가 (foreach item VList (while (setq VFile (findfile item)) (vl-file-delete VFile) (prin.. 2011. 5. 12. [LSP] FAS 와 VLX 어느것이 더 빠를까요? 먼저 fas빠르다는 이야기는 들은 적이 있는것 같은데... 확실하지 않아서 한번 테스트를 해보았습니다. 먼저 테스트 하기 위해서 리습구문을 만들었습니다. 퍼지를 실행하고 리젠을 실행하는 구문을 100번을 반복시켜 보았습니다. (defun c:test (/ AcDoc sTime eTime Time) (setq AcDoc (vla-get-activedocument (vlax-get-acad-object))) (setq sTime (rtos (getvar "cdate") 2 8)) (repeat 100 (vla-purgeall AcDoc)(vla-regen AcDoc acallviewports)) (setq eTime (rtos (getvar "cdate") 2 8)) (setq Time (- (atof eT.. 2011. 5. 12. [PLOT] vla-GetLocaleMediaName 메써드를 이용한 용지이름 가져오기 용지는 프린터를 지정후 가지고 오셔야 합니다. (setq AcDoc (vla-get-activedocument (vlax-get-acad-object))) (setq PlotList (vlax-safearray->list (vlax-variant-value (vla-GetPlotDeviceNames(vla-get-activelayout AcDoc))))) 프린터 목록을 만들어서 그중의 하나를 vla-put-configname 로 지정을 합니다. (setq PaperList (vlax-safearray->list(vlax-variant-value(vla-GetCanonicalMediaNames(vla-get-activelayout AcDoc))))) 그러나 위에서 가져온 것은 일반적으로 캐드를 출력할때 보.. 2011. 5. 12. 이전 1 2 3 4 5 다음