http://www.theswamp.org/index.php?action=post;报价=98894;主题=7796.0;最后消息=98928
作者=Jürg Menzi
我认为这仍然成立-大卫
显然,不幸的是,是的。 MJLM,你看到我的9号帖子了吗?这有什么帮助吗?
是的,谢谢你,但这对我来说不太管用,因为我已经自己选择了实体。我希望看到在我选择的线之后创建的所有其他线。
我设法解决了这个问题,可能没有完全解决,但它的方向是正确的,通过将图纸中从A色到B色的所有线条着色。所以冷色已经过去,暖色已经存在。这有助于我做我想做的事。 可以通过使用ENTNEXT和拾取线的实体名称作为起始参数来解析图形数据库来实现这一点。
我看到你改变主意了,因为你刚才说的和第一篇帖子不一样。 没有必要,塔瓦。似乎OP希望在一个特定的实体之后添加所有的实体,这是基于他们的句柄总是按升序给出的假设。 为什么不一定?我确实举了一个与他们第一篇帖子相关的代码的例子,现在它看起来是错的,因为他们改变了主意,搜索了其他东西。 我认为给实体上色是个坏主意。。。请测试这段代码,我认为这是选择实体的更好方法。。。
(defun c:selpents ( / _entnext ss e ent )
(defun _entnext ( en / ee )
(setq ee en)
(while (wcmatch (cdr (assoc 0 (entget (setq ee (entnext ee))))) "ATTRIB,VERTEX,SEQEND"))
ee
)
(setq ss (ssadd))
(setq e (entnext))
(setq ent (car (entsel "\nPick entity for selecting entities created before picked entity")))
(while (not (equal e ent))
(ssadd e ss)
(setq e (_entnext e))
)
(sssetfirst nil ss)
(princ)
)
是的,这是一个我认为可行的工作。这不是最好的解决方案
页:
1
[2]