HGHG011 发表于 2014-9-10 16:42:50

《菜鸟提问》怎么选中lisp程序所生成的物体

本帖最后由 HGHG011 于 2014-9-10 17:21 编辑

例如：
(command ".-hatchedit" (ssget) "b" "p" "y")
当选中的填充为不连贯时，会生成多个封闭多段线，我怎么同时选中多个封闭多段线呢？

ZZXXQQ 发表于 2014-9-10 16:42:51

;在用程序生成实体前运行
(setq s0 (entlast) ss (ssadd))
;在生成实体后
(while (setq s0 (entnext s0)) (ssadd s0 ss))
;...

Andyhon 发表于 2014-9-10 16:58:35

(command "line" pt1 pt2 "")
(setq ee1 (entlast))
(command "line" pt1 pt2 "")
(setq ee2 (entlast))

HGHG011 发表于 2014-9-10 17:19:25

Andyhon 发表于 2014-9-10 16:58 static/image/common/back.gif
(command "line" pt1 pt2 "")
(setq ee1 (entlast))
(command "line" pt1 pt2 "")


额，我的意思就是别每句命令后面加一个命令来保存所生成的物体，而是最后一起保存

Andyhon 发表于 2014-9-10 17:31:30

那请参考 Explode 的讨论

HGHG011 发表于 2014-9-10 17:59:57

Andyhon 发表于 2014-9-10 17:31 static/image/common/back.gif
那请参考 Explode 的讨论

求一个连接啊

Andyhon 发表于 2014-9-10 19:59:07

Ref:
http://bbs.mjtd.com/thread-57569-1-1.html
http://bbs.mjtd.com/thread-48298-1-1.html
http://bbs.mjtd.com/thread-66461-1-1.html
http://bbs.mjtd.com/thread-84151-1-1.html
...

llsheng_73 发表于 2014-9-11 13:07:41

(command ".-hatchedit" (ssget) "b" "p" "y")
之前(setq a(entlast))得到图内最后一个图元

然后
(while (setq a(entnext a)) (setq b(cons a b)))
最后会得到一个图元名组成的表b
页: [1]
查看完整版本: 《菜鸟提问》怎么选中lisp程序所生成的物体