一个基础问题求助

lucas3

(command "_.solidedit" "_body" "_shell" pause pause pause "1.5" "x" "x" )
上面这个抽壳时，选择一个开口面，正常执行，无错误 ，但拾取两个开口面，就错了

下面这个增加了一个pause，选两个开口面，正常执行，无错误， 但选择一个开口面时， 就不执行后面的两个退出了（"x" "x"）
(command "_.solidedit" "_body" "_shell" pause pause pause pause "1.5" "x" "x" )

用了(while (/= (getvar 'cmdactive) 0) (command pause))这个, 后面 的两个退出（"x" "x"）还是不执行
大侠们要怎么改呢?

HLCAD

变通一下，应该可以达到要求

2. (command "_.solidedit" "_body" "_shell")
   
3. (princ "\n选实体")
   
4. (command pause)
   
5. (while (setq tmp (getpoint "\n点击面——继续删除面，回车结束/<结束>"))
   
6.   (command TMP)
   
7.   )
   
8. (command "" 15 "x" "x" )

(command "_.solidedit" "_body" "_shell")<br /> (princ "\n选实体")<br /> (command pause)<br /> (while (setq tmp (getpoint "\n点击面——继续删除面，回车结束/<结束>"))<br />   (command TMP)<br />   )<br /> (command "" 15 "x" "x" )

1. 
   

复制代码

lucas3

HLCAD 发表于 2015-6-13 17:32
变通一下，应该可以达到要求

大侠 ，很好的变通，
很感谢您的帮助！不知为何，我试着将getpoint替换成nentsel， 结果就不能准确的拾取面了，

HLCAD

别称大侠，一个爱好者而矣，三维用，但受三维体不可控，编程很费事