[已解决]：两选择集求交、炸开选择集、选择集中物体逐一操作

Wildcat · 发表于 2006-9-26 00:15:13

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

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

×

请问lisp中，如何根据已知图元名（-1组码），选中物体？
我的做法如下：
(setq aaa (cdr (assoc -1 (entget (car (entsel))))))
随便选一物体返回 <图元名: 7ef870f8>
(setq ss (ssget "X" (list (cons -1 aaa))))
结果返回nil。
是因为aaa不算是列表？请问如何该解决？

eachy · 发表于 2006-9-26 02:16:16

entsel 了实体还要 ssget 作什么？非要加入选择集的话

(setq e (car (entsel)))
(setq ss (ssadd))
(ssadd e ss)

phoenixdjq · 发表于 2006-9-26 08:31:15

要找一个实体，不用它的群码
按2楼的程序就行了
(setq e (car (entsel)))
(redraw e 3)
(setq ss (ssadd))
(ssadd e ss)
(redraw e 4)
加上这句，就可以亮显了。你就能看的更清楚
最后一句是取消亮显。

Wildcat · 发表于 2006-9-26 10:19:44

使用entsel纯粹为了方便找出过滤不了的原因，结果误导了大家，不好意思。
其实我最终目的是想求出两个选择集的交集。我当时想：图元名是唯一的，弄起来可以比较方便，结果行不通。

Underway · 发表于 2006-9-26 10:39:47

(acet-ss-intersection SS1 SS2)

eachy · 发表于 2006-9-26 10:42:09

(setq s1 (ssget))
(setq s2 (ssget))
(command ".select" s2 "" "r" s1 "")
(setq s (ssget "_P"))

Wildcat · 发表于 2006-9-26 11:25:50

还有一个问题，当用lisp调用EXPLODE时，如果
(setq ss (ssget)
(command "EXPLODE" ss) 这时候，只能炸开最后一个物体。
如果我想把选择集中的物体逐一炸开该如何操作呢？

Underway · 发表于 2006-9-26 11:37:56

info: http://discussion.autodesk.com/thread.jspa?messageID=1103560

         (setvar "qaflags" 1)
         (command ".explode" ss "")
         (setvar "qaflags" 0)

phoenixdjq · 发表于 2006-9-26 12:42:23

qaflags 是什么，我在帮助中找不到。
如果炸不开的话，可以做个循环呀，每次取一个实体炸开

Underway · 发表于 2006-9-26 13:28:55

Undocumented System Variables

check here : http://www.manusoft.com/cgi-bin/ ... in=Main.stm#SysVars

Wildcat · 发表于 2006-9-26 13:52:05

最初由 phoenixdjq 发布
[B]qaflags 是什么，我在帮助中找不到。
如果炸不开的话，可以做个循环呀，每次取一个实体炸开 [/B]

不好意思呀，刚学lisp不久，还不会做这种循环，我的想法是根据-1组码做循环，但是不行。用10组码做循环倒可以。
(repeat (sslength sa)
(setq en    (ssname sa sa_n)
   endata (entget en)
   en_10    (cdr (assoc 10 endata))
)
(setq saa (ssget "X" (list (cons 10 en_10))))
(command "explode" saa)
(setq sa_n (1+ sa_n))
  )
可以帮我改一下吗？

Wildcat · 发表于 2006-9-26 13:54:19

最初由 Underway 发布
[B]info: http://discussion.autodesk.com/thread.jspa?messageID=1103560

         (setvar "qaflags" 1)
         (command ".explode" ss "")
         (setvar "qaflags" 0) [/B]

谢谢，用您的方法可以把问题解决了。

oyxx_1023 · 发表于 2006-9-26 19:07:52

qaflags变量是控制啥玩艺的?

Wildcat · 发表于 2006-9-26 19:12:55

最初由 Underway 发布
[B](acet-ss-intersection SS1 SS2) [/B]

用这个方法可以快速问题，谢谢
请问acet-ss-intersection这个是什么函数，在帮助里查不到哦。

Wildcat · 发表于 2006-9-26 19:15:27

最初由 eachy 发布
[B](setq s1 (ssget))
(setq s2 (ssget))
(command ".select" s2 "" "r" s1 "")
(setq s (ssget "_P")) [/B]

不好意思，您看错了，您的方法是求差集，并不是交集哦。
可以帮我看看11楼的问题吗？

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

[已解决] [已解决]：两选择集求交、炸开选择集、选择集中物体逐一操作

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

相关帖子