怎样重复运行分解选择的图块

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

长老呀，我是菜鸟。搞不来呀

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