Yuri Weblog

;;画層の説明を取得
(defun y_layer_des(
L_NAM	;画層名
/
OBJ
)
(setq OBJ
(vla-get-layers
(vla-get-activedocument (vlax-get-acad-object))
)
)
(setq OBJ (vlax-invoke-method OBJ 'Item L_NAM))
(vlax-get-property OBJ 'Description)
)

This entry was posted on 水曜日, 12月 6th, 2006, 2:01 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.