xinxirong 发表于 2008-3-13 08:21:00

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

<p>我想实现这样的功能：就是输入命令后就开始画PLINE线，按a键（不用回车），开始画弧线段，点第二点（弧线段的端点），点第三点（弧线段的中点）；按L（不用回车），开始画直线段；如此反复，直至按回车（或右键结束）。</p><p>就像是天正电气的“任意导线”功能。</p>

ZZXXQQ 发表于 2008-3-15 12:32:00

(DEFUN C:TT ()<br/>&nbsp;(COMMAND "PLINE")<br/>&nbsp;(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))<br/>)

ryujacky 发表于 2012-7-19 12:09:59

非常好，谢谢

kwok 发表于 2012-11-5 21:24:46

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

阿霸jun 发表于 2013-3-7 23:10:16

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

gufeng 发表于 2013-3-9 23:18:57

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

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

gufeng 发表于 2013-3-9 23:21:30

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

(DEFUN C:TT ()
(setvar "cmdecho" 1);_回显控制 如果不需要 0
(COMMAND "PLINE")
(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))
)
页: [1]
查看完整版本: [求助]如何用lisp模拟pl命令？