怎样把我在一个子程序里面生成的所有实体都加到一个选择集里面

sunix · 发表于 2004-3-21 12:48:00

怎样把我在一个子程序里面生成的所有实体都加到一个选择集里面，而不用一个一个加？例如在子程序开始的地方加一个标志，结束的地方加一个标志，然后选择集就包括了这两个标志之间的所有实体

meflying · 发表于 2004-3-21 12:57:00

一个一个加为什么就不可以?

程序开始前,记住entlast,程序结束后,使用(entnext...)一直到结束,找到一个就加一个到选择集

sunix · 发表于 2004-3-21 13:04:00

因为要做fillet所以不能都用pline画线，

那样中间要是画了N条线线，岂不要加N次？

sunix · 发表于 2004-3-21 13:05:00

特别是一个command里面画了多条line就没有办法了？

meflying · 发表于 2004-3-21 13:38:00

我2楼的话有没有看啊,不是已经教你方法了吗...

sunix · 发表于 2004-3-21 14:09:00

(setq entpoint (entnext entlast1)) ;entlast1指向的是你说的记住entlast ;ssmiror是选择集 (while (/= entpoint nil)
(ssadd entpoint ssmirror)
(setq entpoint (entnext entpoint))
) 错在哪里？或者 (setq entpoint entlast1) ;entlast1指向的是你说的记住entlast，entlast2是最后一个实体 (setq ssmirror nil) (while (/= (setq entpoint (entnext entpoint)) entlast2)
(ssadd entpoint ssmirror)
) 也错了，究竟应该怎么写？

meflying · 发表于 2004-3-21 14:19:00

从这点看来,没有错误,不过要看看你的完整的调试程序,,, 你的程序有一点点问题,就是会多一个对象,程序前的entlast不是你需要的,所以后面这样写: (while (setq entpoint (entnext entpoint))
(ssadd entpoint ssmirror)
)

sunix · 发表于 2004-3-21 14:46:00

3x，

搞定了，不过不知道为什么，

(setq ssmirror nil)不行，必须是(setq ssmirror (ssadd))

ljcgq · 发表于 2004-3-21 19:32:00

meflying你好,我看了上面的帖子,很有收获,但是我还有一个问题想请教您,----如array,divide,measure,等会一个命令后产生很多个实体的情况怎么把这个命令产生的实体都加在一个集里,

meflying · 发表于 2004-3-21 20:15:00

楼上讨论的就是这个问题，解决方法已经在上面了

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