본문 바로가기

전체 글126

[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.
[Xref] 외부참조파일(Xref) 색상 변경하기(도면폼 제외) 도면작업시 외부참조(Xref)기능을 자주 사용하고 있습니다. 외부참조파일을 배경도면으로 작업을 할경우 출력시 펜두께 조정을 위해서 자주 색상을 변경하기가 불편하여 만들었습니다. 리습 실행전 도면 리습 실행후 도면 사용방법 외부참조된 파일만 지정한 색상으로 변경이 됩니다. 도면폼의 레이어는 색상변경에서 제외시킬려면 선택버턴을 클릭하여 외부참조파일에 등록을 하여주면 됩니다. 변경색상은 지정을 하거나 하단에 색상번호를 입력시키면 됩니다. 1. 리습을 로딩을 한 후에 명령어 XColor 명령어를 커멘드라인에 입력합니다. 2. 아래와 같은 창이 나오면 외부참조에 선택버턴을 클릭하여 도면폼을 선택하시면 됩니다. 색상변경에서 제외할 외부참조파일이 없는 경우는 변경생생입력단계로 바로 가시면 됩니다. 3.외부참조도면의 .. 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.
[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.

티스토리툴바