chpmould 发表于 2008-9-19 17:39:00

[求助]如何获取所选组的组名

<p><font size="5">急!!!&nbsp; 急!!!&nbsp;&nbsp;&nbsp;&nbsp; 请高手帮忙!!!</font></p><p>即<font color="#f709f7">CAD <font color="#000000">中</font></font><font color="#3300ff">_GROUP</font>命令,用<font color="#ff3300">LISP</font>怎样实现以下三个功能: </p><p>1&gt;在CAD中如何获取所选组的组名.</p><p>2&gt;将所选择的对象加入到所选择的组中.</p><p>3&gt;将所选择的组中删除不需要的对象.</p><p><br/>谢谢！</p><p>我的邮箱:jackpchan@126.com</p>

samshs 发表于 2008-12-31 17:21:00

<p>我也想知道</p>

669423907 发表于 2013-5-10 22:51:15

(setvar"pickstyle"0)可以组删除组里的对象，
我也想知道，如何把选择对象加入到组里。
同求

;建组（mccad 2008-9-21 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70454）
(defun c:AA(/ ss)
(setq ss (ssget"i"))
(if (= ss nil)(AA,)(AA,,)))

(defun AA,()
(if (= 1 (getvar "pickstyle"))
(setvar"pickstyle"0)
(setvar"pickstyle"1))
(princ))

(defun AA,,()
(setq ss(ssget))
(setvar "pickstyle" 1)
;(setvar "cmdecho" 0)
(command "group" "" "*" "" ss "")
;(setvar "cmdecho" 1)
(princ "\n选定对象已经组合。")
(princ))

xiabin68 发表于 2013-5-12 10:18:12

这的好生看一下了，

669423907 发表于 2013-5-13 22:50:21

这个怎么没人回答啊？
页: [1]
查看完整版本: [求助]如何获取所选组的组名