Andyhon 发表于 2011-7-18 09:36:09

您这样先试好了
(while (setq ss (ssget "P" '((0 . "INSERT")))
===>
(while (setq ss (ssget "P" '((0 . "INSERT") (2 . "*U*")))

lz123456 发表于 2011-7-18 10:27:27

不得行，加了那炸不开了，还有就是那后面要加个括号，才能运行

Andyhon 发表于 2011-7-18 10:53:36

再这样试好了
(while (setq ss (ssget "P" '((0 . "INSERT"))))
===>
(while (and
            (setq ss (ssget "P" '((0 . "INSERT"))))
            (Zerop (1- (sslength ss)))
          )

lz123456 发表于 2011-7-18 11:04:50

行了，还是有点小问题，选1个那样的那搞定，l不能同时选择多个那样的，同时选择那样的2个以上就没效果

lz123456 发表于 2011-7-18 11:06:10

没啥子的，大不了，一次选1个来炸

lz123456 发表于 2011-7-18 11:09:06

没啥子的，大不了，一次选1个来炸

Andyhon 发表于 2011-7-18 11:15:57

程序骨架有了,只需修订成回圈形式即得
之前有许多改 回圈 的讨论 ....

lz123456 发表于 2011-7-18 11:19:07

长老呀，我是菜鸟。搞不来呀
页: 1 [2]
查看完整版本: 怎样重复运行分解选择的图块