图层说明求助

wangbo213

最近要编写个图层说明，但不知道用LISP的VLA怎么编写

(setq ARCH (vla-add layers "ARCH"))
(vla-put-Color ARCH 50)

下面的给这么图层的说明是“建筑低图”

不知道怎么写？没找到相关的VLA-PUT的函数，

高手帮帮忙

caoyin

vla-put-Description

samshs

有沒有詳細代碼 是圖層的說明　

ZHAOWCHANG

2. (defun c:lay()
3.   (VL-LOAD-COM)
4.   (setq AcadObject (vlax-get-acad-object)
5.         AcadDocument (vla-get-ActiveDocument Acadobject)
6.         mSpace (vla-get-ModelSpace Acaddocument)
7.   )
8.   (setq layers(vla-get-Layers AcadDocument))
9.   (setq ARCH (vla-add layers "ARCH"))
10.   (vla-put-Color ARCH 50)
11.   (vla-put-Description arch "我新建的层")
12. )

(defun c:lay()   (VL-LOAD-COM)   (setq AcadObject (vlax-get-acad-object)         AcadDocument (vla-get-ActiveDocument Acadobject)         mSpace (vla-get-ModelSpace Acaddocument)   )   (setq layers(vla-get-Layers AcadDocument))   (setq ARCH (vla-add layers "ARCH"))   (vla-put-Color ARCH 50)   (vla-put-Description arch "我新建的层") )