我想在我的值成功完成后发送命令的“取消”函数,并将其放在我的(c:Q`)代码之后。这是一个代码,用于记录我的选择。这是我在《阿卡多克》中之前准备的选择集的历史。lsp。这样地;
- (defun c:[color=royalblue][b]`Q[/b][/color] nil
- (if (zerop (getvar 'opmstate))
- (command "_.properties")
- (progn (command "_.propertiesclose") [color=darkorange][b](c:Q`) [/b][/color][b][color=red](sssetfirst AWS)[/color][/b])
- )
- (princ)
- )
- (defun [color=darkorange][b]c:Q`[/b][/color] (); create a Selection Set in the SS/PP "system"
- (setq _ssinc_ (if _ssinc_ (1+ _ssinc_) 1))
- (set (read (strcat "_ss" (itoa _ssinc_) "_")) (ssget))
- (prompt (strcat "\nSelection set " (itoa _ssinc_) "."))
- (princ)
- )
如果我这样做正确吗?我在上面画了一条红线作为“取消”函数命令,但当我测试时,它没有发生任何事情。。 |