Yuri Weblog

;;画層のリスト VLISP版
(defun y_layerlist_v (/ LA LST)
(vlax-for LA
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(setq LST (cons (vla-get-name LA) LST))
)
(acad_strlsort (mapcar 'strcase (reverse LST)))
)

This entry was posted on 火曜日, 12月 5th, 2006, 1:39 PM and is filed under LISP. You can follow any responses to this entry through RSS 2.0. You can leave a response, or trackback from your own site.