如何使用 Visual LISP 列出图中所有的组？

XDSoft · 发表于 2013-4-24 09:30:45

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

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

×

问：
如何使用 Visual LISP 列出图中所有的组？

答：
下面的代码在命令行上列出当前图形的所有组名。

游客，本帖隐藏的内容需要积分高于 100 才可浏览，您当前积分为 0

Free-Lancer · 发表于 2013-4-24 09:48:45

一句话
[pcode=lisp,true](mapcar 'cdr
(vl-remove-if
'(lambda (x) (/= (car x) 3))
(dictsearch (namedobjdict) "ACAD_GROUP")
)
)[/pcode]

zyhandw · 发表于 2013-4-24 10:13:59

楼主设置了隐藏，看不到:'(

仲文玉 · 发表于 2013-4-24 11:48:03

偶也看不到，:(
组集合提取？(vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))

kwok · 发表于 2013-4-24 17:07:15

怎么用框选后过滤其它只选到组，然后分解?

牢固 · 发表于 2013-4-24 17:13:18

[pcode=lisp,true](vlax-for obj (vla-get-Groups
            (vla-get-ActiveDocument (vlax-get-acad-object))
            )
  (setq ll (cons (vla-get-name obj) ll))
  )[/pcode]

XDSoft · 发表于 2013-4-24 17:37:30

仲文玉发表于 2013-4-24 11:48

登录/注册后可看大图

偶也看不到，
组集合提取？(vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))

好像大家都忘记这个：

(vlax-release-object colGroups)

复制代码

Free-Lancer · 发表于 2013-4-24 18:10:40

这倒是个新题目，前面没有用变量的时候最后怎么 release，有必要 release 吗？

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

[你问我答] 如何使用 Visual LISP 列出图中所有的组？

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

相关帖子