注册 登录
明经CAD社区 返回首页

鱼与熊掌的个人空间 http://bbs.mjtd.com/?7304311 [收藏] [复制] [分享] [RSS]

日志

Attibutes

已有 412 次阅读2014-12-19 15:03 |系统分类:应用


  1. ;BY Eπ.


  2. (defun xyp-get-Attibutes (ename / obj lst x)
  3.   (setq        obj (vlax-ename->vla-object ename)
  4.         lst '()
  5.   )
  6.   (if (and ((vla-Get-ObjectName obj) "AcDbBlockReference")
  7.            ((vla-Get-HasAttributes obj) :vlax-true)
  8.       )
  9.     (mapcar '(lambda (x)
  10.                (setq lst (cons (cons (vla-Get-TagString x) (vla-Get-TextString x))
  11.                                lst
  12.                          )
  13.                )
  14.              )
  15.             (vlax-safearray->list
  16.               (vlax-variant-value (vla-GetAttributes obj))
  17.             )
  18.     )
  19.   )
  20.   (reverse lst)
  21. )

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 03:05 , Processed in 0.126652 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部