리습 강좌 - 활성화도면(현재도면) 변경 함수.

본 강좌는 아키오피스(김희태)에 의해 만들어 졌으며 어떠한 웹이나
출판물에 아키오피스(김희태)의 동의없이 올리는 것을 허락하지 않습니다.

 


현재 열려있는 도면들중 활성화도면(현재도면)을 변경하는 함수 입니다.

(set-activedoc 도면이름)



(set-activedoc "Drawing1.dwg") => Drawing1.dwg 가 비활성화 상태라면 활성화 된다.

코드


  (defun set-activedoc (a / eee)
    (vlax-for item (vla-get-Documents (vlax-get-acad-object))
      (if (= (strcase a) (strcase (vlax-get-property item 'name))) (setq eee item))
    )
    (if (and eee (/= (strcase a) (strcase (vla-get-name (vla-get-activedocument (vlax-get-acad-object))))))
        (vla-put-ActiveDocument (vlax-get-acad-object) eee)
    )
  )
설명

  (defun set-activedoc (a / eee)
    ;; 오토캐드의 도큐먼트중
    (vlax-for item (vla-get-Documents (vlax-get-acad-object))
      ;; 리턴 받은 도면명과 같은 도큐먼트를 찾아 만약 있다면 도큐먼트를 eee 에 저장한다.
      (if (= (strcase a) (strcase (vlax-get-property item 'name))) (setq eee item))
    )
    ;; 리턴 받은 도면명의 도큐먼트가 존재하고
    ;; 그 도큐먼트가 현재 활성화(현재도면) 되어있지 않다면 
    (if (and eee (/= (strcase a) (strcase (vla-get-name (vla-get-activedocument (vlax-get-acad-object))))))
        ;; 해당 도큐먼트(도면)을 활성화(현재도면) 한다. 
        (vla-put-ActiveDocument (vlax-get-acad-object) eee)
    )
  )