[求助]：请教用Visual Lisp如何获取图层的属性信息

sqmjk01

请教用Visual Lisp如何获取图层的属性信息（诸如：图层的颜色、线型、线宽等）？

eachy

最初由 sqmjk01 发布
[B]请教用Visual Lisp如何获取图层的属性信息（诸如：图层的颜色、线型、线宽等）？ [/B]

2. 
   
3. (vlax-for item
   
4.           (vlax-get-property
   
5.             (vlax-get-property (vlax-get-acad-object) "activedocument")
   
6.             "Layers"
   
7.           )
   
8.   (setq        lst (cons (list        (vla-get-name item)
   
9.                         (vla-get-color item)
   
10.                         (vla-get-linetype item)
    
11.                         (vla-get-lineweight item)
    
12.                   )
    
13.                   lst
    
14.             )
    
15.   )
    
16. )

<br /> (vlax-for item<br />           (vlax-get-property<br />             (vlax-get-property (vlax-get-acad-object) "activedocument")<br />             "Layers"<br />           )<br />   (setq        lst (cons (list        (vla-get-name item)<br />                         (vla-get-color item)<br />                         (vla-get-linetype item)<br />                         (vla-get-lineweight item)<br />                   )<br />                   lst<br />             )<br />   )<br /> )

sqmjk01

正是我所需要的ActiveX函数，知我者斑竹也！

musicdie

eachy 发表于 2003-7-27 00:12

item  是什么变量啊？   需要传一个什么样的参数呢？