[求助]：■如何在lisp函数中提取属性块内的某个值啊在线等■

zhuquanmao · 发表于 2004-7-13 16:52:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何在lisp函数中提取属性块内的某个值啊

aidraft · 发表于 2004-7-13 19:06:52

到本页“CAD编程实用函数”那一帖里找找，好像有

yanxinbo67 · 发表于 2004-7-14 16:27:02

(command "ATTEXT" "E" 选择集 "" "sdf" 格式文档生成文档)

wlq0408 · 发表于 2004-7-14 17:59:41

yanxinbo67说得很清楚，即使就是调用cad的命令，用command语句来提取，之后再进行转换

aidraft · 发表于 2004-7-14 19:38:35

下面的函数直接得到属性块的数据表不是更方便吗？
(defun ax:GetAttributes(ent / lst)
  (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)
)
  )
)

zxc001975cvb · 发表于 2024-2-27 14:13:47

值得学习

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：■如何在lisp函数中提取属性块内的某个值啊在线等■

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

[求助] [求助]：■如何在lisp函数中提取属性块内的某个值啊 在线等■

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

[求助] [求助]：■如何在lisp函数中提取属性块内的某个值啊在线等■