[求助]如何用lisp模拟pl命令？

xinxirong

我想实现这样的功能：就是输入命令后就开始画PLINE线，按a键（不用回车），开始画弧线段，点第二点（弧线段的端点），点第三点（弧线段的中点）；按L（不用回车），开始画直线段；如此反复，直至按回车（或右键结束）。

就像是天正电气的“任意导线”功能。

ZZXXQQ

(DEFUN C:TT ()
 (COMMAND "PLINE")
 (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))
)

ryujacky

非常好，谢谢

kwok

2楼lsp的不启作用，还是要回车才能接着下步.为什么?

阿霸jun

2楼的这个是不是只是屏蔽了命令显示？

gufeng

kwok 发表于 2012-11-5 21:24
2楼lsp的不启作用，还是要回车才能接着下步.为什么?

输入命令后必须按  空格 或者回车

gufeng

阿霸jun 发表于 2013-3-7 23:10
2楼的这个是不是只是屏蔽了命令显示？

(DEFUN C:TT ()
  (setvar "cmdecho" 1);_回显控制 如果不需要 0
(COMMAND "PLINE")
(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))
)