[编程申请]：录入属性小程序__-急需

zhaoxm1129

各位大侠：


请教哪位师傅有CAD下录入简单属性信息的小工具，帮忙给我传一个。
先谢谢了！



zhaoxm1129@163.com

lsjjm

请参考：
(defun GetAttributes (ent / lst)
  (vl-load-com)
  (if (safearray-value
        (setq lst (vlax-variant-value
                    (vla-getattributes (vlax-ename->vla-object ent))
                  )
        )
      )
    (mapcar '(lambda (x) (list (vla-get-tagstring x)
                               (vla-get-textstring x)
                               (vlax-vla-object->ename x)
                         )
             )
             (vlax-safearray->list lst)
    )
  )
)

crazyjyl

楼上的程序怎么用，能说明一下吗

lsjjm

最初由 crazyjyl 发布
[B]楼上的程序怎么用，能说明一下吗 [/B]

加载运行呀！ 搜索一下论坛，有详细说明的帖子。