前一句正常，后面执行不了？

liuyun242 · 发表于 2013-5-5 19:02:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(command "DIMALIGNED")(setq s1 (entlast)) (command "_dimcontinue" s1)

XDSoft · 发表于 2013-5-5 19:31:18

你不能这么写。第一个命令激活中，你要相应PAUSE，来实现你的交互。

试试：

[pcode=lisp,true]
;|
  命令激活，PAUSE反映
|;
(defun $XDLSP_DStop2 (/ oldcmd)
  (setq oldcmd (getvar "cmdecho"))
  (setvar "cmdecho" 1)
  (while (/= 0 (getvar "cmdactive"))
(command pause)
  )
  (setvar "cmdecho" oldmcd)
)
(defun c:t5()
(vl-cmdf "DIMALIGNED")
($XDLSP_DStop2)
(vl-cmdf "_dimcontinue")
)
[/pcode]

liuyun242 · 发表于 2013-5-5 19:55:43

XDSoft 发表于 2013-5-5 19:31

登录/注册后可看大图

你不能这么写。第一个命令激活中，你要相应PAUSE，来实现你的交互。

试试：

谢谢，可以了

账号		自动登录	找回密码
密码			立即注册

[求助] 前一句正常，后面执行不了？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子