求助在cad中取得线，文字，尺寸线等属性，取得这些的层，线色等等的属性，求原代码

wk2004

求助在cad中取得线，文字，尺寸线等属性，取得这些的层，线色等等的属性，求原代码。我以前有一个，在2012本版之前都好使，但不清楚为什么在CAD2016不好使。下面我把以前的源代码帖上，希望有高人指点需要改动哪里在2016版本能好使
(defun c:aaa(/ att tt obj layer linetype color scale ttype high totation)
  (setq obj(entsel"\nSelect the object:"))
  (setq att(entget (car obj)))
  (setq tt(callassoc 0 att))

     (if
    (equal tt "DIMENSION")
    (dimension)
    )
   (if
    (equal tt "MTEXT")
    (mtext)
    )
    (if
    (equal tt "TEXT")
    (text)
    )
       (if
     (or
    (equal  tt "LINE")
    (equal  tt "CIRCLE")
    (equal tt "SPLINE")
    (equal tt "ELLIPSE")
    (equal tt "LWPOLYLINE")
    (equal tt "POINT")
    )
    (line)
    )
)

marting

缺函数啊
(dimension)
(mtext)
(text)
callassoc

marting

获得实体的通用的属性，VLAX-GET

2. 
   
3. 命令: (setq e (entlast))
   
4. <图元名: -24ea88>
   
5. 
   
6. 命令: (setq o (vlax-ename->vla-object e))
   
7. #<VLA-OBJECT IAcadBlockReference 172d8eec>
   
8. 
   
9. 命令: (vlax-get o 'layer)
   
10. "0"
    
11. 
    
12. 命令: (vlax-get o 'color)
    
13. 256
    
14. 
    
15. 命令: (vlax-get o 'linetype)
    
16. "ByLayer"
    
17. 
    
18. 命令: (vlax-get o 'lineweight)
    
19. -1
    
20. 
    
21. 命令: (vlax-get o 'linetypescale)
    
22. 1.0
    

<br /> 命令: (setq e (entlast))<br /> <图元名: -24ea88><br /> <br /> 命令: (setq o (vlax-ename->vla-object e))<br /> #<VLA-OBJECT IAcadBlockReference 172d8eec><br /> <br /> 命令: (vlax-get o 'layer)<br /> "0"<br /> <br /> 命令: (vlax-get o 'color)<br /> 256<br /> <br /> 命令: (vlax-get o 'linetype)<br /> "ByLayer"<br /> <br /> 命令: (vlax-get o 'lineweight)<br /> -1<br /> <br /> 命令: (vlax-get o 'linetypescale)<br /> 1.0<br />

longer1000

Ooooooooooo

wk2004

首先谢谢“marting”老师了，我是一点不会，能不能把你说那些加到我那个里面，整个完整的，我拷贝到我机器了，这样我就能用了。你现在这样说我也看不懂。谢谢你了，或者追加我的QQ112941649 。十分感谢

wk2004

wk2004

marting 发表于 2017-7-17 17:12

登录/注册后可看大图 谢谢“marting”老师了，我是一点不会，能不能把你说那些加到我那个里面，整个完整的，我拷贝到我机器了，这样我就能用了。你现在这样说我也看不懂。谢谢你了，或者追加我的QQ112941649 。十分感谢