请大神们一定指教下这个关于多段线的问题，谢谢

changyiran

(while t
(command"pline")(getvar"cmdactive")
    (while(/=(getvar"cmdactive")0)(command pause))
)
上述代码可以让我交互画出多条多段线，但假如我想画几条之后就退出循环，以便继续执行循环后面的代码，该如何操作呢？

byghbcx

(command"pline")
(while(/= (getvar"cmdactive") 0) (command pause))
这样不行吗？

ZZXXQQ

建议改成如下判断
(command "_.PLINE")
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))
这样可以在命令中使用透明的命令。
要退出循环只要正确退出PLINE命令就行。

changyiran

ZZXXQQ 发表于 2014-5-15 08:47
建议改成如下判断
(command "_.PLINE")
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))

不行啊，版主，命令提示指定点的时候，我点击了右键，又错误退出了，怎么才能正常退出pl命令啊？

changyiran

ZZXXQQ 发表于 2014-5-15 08:47
建议改成如下判断
(command "_.PLINE")
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))

另外我怎么发现透明和不透明没啥区别，不透明命令栏也会有命令提示的。

changyiran

ZZXXQQ 发表于 2014-5-15 08:47
建议改成如下判断
(command "_.PLINE")
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))

我现在发现问题主要集中在当命令栏提示让指定起点时，如何修改代码使得点击右键或者确定的情况下能退出循环。

edata

不知道是不是这样

1. (while (setq p(getpoint "\n指定新的起点:"))
   
2. (command"pline")(getvar"cmdactive")(command p)
   
3.     (while(/=(getvar"cmdactive")0)(command pause))
   
4. )

(while (setq p(getpoint "\n指定新的起点:"))<br /> (command"pline")(getvar"cmdactive")(command p)<br />     (while(/=(getvar"cmdactive")0)(command pause))<br /> )

changyiran

edata 发表于 2014-5-15 10:08
不知道是不是这样

高手啊，问题解决了，非常感谢！！！！

328302216

厉害  我到现在都还没用过 pause  都还不知道这个是什么意思，作用是什么...