有关PLINE的问题求教各位高手：

mandala

小弟刚开始学LISP，现在有个问题求教各位高手：

我需要用lsp命令画一条指定线型和粗细的连续多义线，会有圆弧和直线等，但希望画完pline后，cad可以回到默认的线型和粗细。我是这么写的：

(DEFUN C:test ()
             (command "layer" "m" "wall" "")(command "linetype" "s" "wq2012" "")(setvar "plinewid" 0.3)(command "setvar" "plinegen" "1")
(command "pline" )
)

本想在后边加上
(command "layer" "s" "continuous" "")(command "linetype" "s" "continuous" "")（setvar "plinewid" 0)

但问题是pline之后lsp就终止了，无法继续执行下边的command。我该怎么办呀？

mandala

啊，是不是这样：

(DEFUN C:test()
             (command "layer" "m" "wall" "")(command "linetype" "s" "wq2012" "")(setvar "plinewid" 0.3)(command "setvar" "plinegen" "1")(setvar "CMDECHO" 1)
(command "pline" )
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))
(command "layer" "s" "continuous" "")(command "linetype" "s" "continuous" "")(setvar "plinewid" 0)）


请高手指教一下，似乎能达到目的了，还有什么可以改进的吗？谢谢。

mandala

另外，请问 (command "layer" "m" "wall" "")里边，最后的“”加和不加有什么区别啊？

这问题似乎挺菜鸟的，不好意思……

Student

(command "layer" "m" "wall" "")里边，最后的 "" 使退出Layer命令。
另外，恢复原来的线型等，采用系统变量的方式似乎更好些。

mandala

Student 发表于 2010-12-11 19:01
(command "layer" "m" "wall" "")里边，最后的 "" 使退出Layer命令。
另外，恢复原来的线型等，采用系统变 ...

非常感谢！我刚刚才知道可以用系统变量来实现回复原来的线型，不过请问用系统变量和用command，有什么区别呢？谢谢。

wandong

常规做法，研究如下两条语句:
(command "._undo" "be")
...........
(command "._undo" "_end")
以及*error*。

cjs

mandala 发表于 2010-12-11 19:05
非常感谢！我刚刚才知道可以用系统变量来实现回复原来的线型，不过请问用系统变量和用command，有什么区别 ...

条条大道通罗马。

13579

这个问题困扰了很久终于解决了。