求分解无名组的lisp

baobao_new · 发表于 2015-1-21 11:11:43

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

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

×

大家好，我现在有一个需求，就是分解图纸中所有无名组。
看到论坛中一个清理所有组的帖子：http://www.xdcad.net/forum/showthread.php?s=&threadid=195670
但我不懂开发，不知道是不是通过这个简单修改一下就可以解决。
请各位老师帮忙解决一下。谢谢！

iLisp · 发表于 2015-1-21 15:57:46

(vl-load-com)
(defun c:tt ()
  (vlax-for obj (vla-get-groups
   (vla-get-activedocument
      (vlax-get-acad-object)
   )
)
(if (wcmatch (vla-get-name obj) "`**")
   (vla-delete obj)
)
  )
  (princ)
)

baobao_new · 发表于 2015-1-21 11:13:17

主要需求就是只有无名的组才分解。
在线，急等{:soso_e183:}

iLisp · 发表于 2015-1-21 11:51:28

baobao_new 发表于 2015-1-21 11:13
主要需求就是只有无名的组才分解。
在线，急等

用 5 楼的程序，增加一个判断

(if (wcmatch (vla-get-name obj) "`**) (vla-delete obj))

baobao_new · 发表于 2015-1-21 12:31:23

iLisp 发表于 2015-1-21 11:51
用 5 楼的程序，增加一个判断

(if (wcmatch (vla-get-name obj) "`**) (vla-delete obj))

太感谢了！{:soso_e183:}
我试试。{:soso_e113:}

baobao_new · 发表于 2015-1-21 13:22:05

iLisp 发表于 2015-1-21 11:51
用 5 楼的程序，增加一个判断

(if (wcmatch (vla-get-name obj) "`**) (vla-delete obj))

不好意思，这句话放到哪里？
lisp我一点儿不懂啊。{:soso_e117:}

baobao_new · 发表于 2015-1-21 17:11:29

{:soso_e179:}太厉害了。
万分感谢！{:soso_e183:}

LIYONGZHI · 发表于 2015-3-18 21:50:19

提示: 作者被禁止或删除内容自动屏蔽

lucas3 · 发表于 2015-3-18 22:57:27

iLisp 发表于 2015-1-21 15:57
(vl-load-com)
(defun c:tt ()
(vlax-for obj (vla-get-groups

为什么不直接用 UNGROUP ？

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

LIYONGZHI LIYONGZHI 当前离线 UID 747117 积分 10 精华贡献威望活跃度 D豆在线时间小时注册时间 2015-2-5 最后登录 1970-1-1 窥视卡雷达卡	发表于 2015-3-18 21:50:19 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[求助] 求分解无名组的lisp

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

点评

点评

点评