关于取消？（已解决）

19622928

各位大神，请教一下，在lisp中要求输入（如：getpoint等）的时候，如何阻止别人按Esc或者有什么办法识别输入的是Esc,然后不要取消函数，让程序继续下去！

/db_自贡黄明儒_

Command: (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'getpoint nil)) nil
Command: (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'getpoint nil)) *Cancel*
T

newer

/db_自贡黄明儒_ 发表于 2018-8-27 12:51
Command: (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'getpoint nil)) nil
Command: (VL-CATCH-ALL-ERROR ...

他是不想响应ESC，和没按一样
我觉得程序没必要这样设定吧，按不按ESC是用户的事，他想按ESC，肯定有他的想法，你违背上帝的意志多不好。
你要做的是他按ESC后的程序反应

/db_自贡黄明儒_

newer 发表于 2018-8-27 14:52
他是不想响应ESC，和没按一样
我觉得程序没必要这样设定吧，按不按ESC是用户的事，他想按ESC，肯定有他 ...

点到为止，他按ESC后返回T，可以根据T来做出响应。

19622928

/db_自贡黄明儒_ 发表于 2018-8-27 12:51
Command: (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'getpoint nil)) nil
Command: (VL-CATCH-ALL-ERROR ...

谢谢黄先生指点！问题已经解决，我用的是识别错误信息，如果错误信息=取消，然后作后继处理，效果还不错

kqqt6236

学习一下。

Lisphk

下面是SSGET的判断回车，ESC的，道理一样

(setq ssAusw (vl-catch-all-apply 'ssget nil))
    (cond ;; ENTER was pressed, set doContinue to T,
          ;; to re-show the form
          ((not ssAusw)
           (setq ssAusw        nil
                 doContinue T
           )
          )
          ;; ESC was pressed, set doContinue to nil,
          ;; to cancel the loop and cancel the command
          ((vl-catch-all-error-p ssAusw)
           (setq ssAusw        nil
                 doContinue nil
           )
          )
          ;; check if selection set has objects
          ((zerop (setq intLen (sslength ssAusw)))
           (setq ssAusw        nil
                 doContinue T
           )
          )
          ;; Add objects to list, if they're still not in
          ;; and return to the form after that
          (T
           (repeat intLen
             (setq entObj (ssname ssAusw (setq intLen (1- intLen))))
             (setq vlaObj (vlax-ename->vla-object entObj))
             (setq strObj (strcat (vla-get-ObjectName vlaObj)
                                  " ("
                                  (vla-get-Handle vlaObj)
                                  ")"
                          )
             )
             (if (not (member strObj lstObjects))
               (setq lstObjects
                      (reverse (cons strObj (reverse lstObjects)))
               )
             )                                ; if
           )                                ; repeat
           (setq doContinue T)
          )
    )                                        ; cond
    ;; restore BLIPMODE
    (setvar "BLIPMODE" intBlip)
  )

19622928

Lisphk 发表于 2018-8-28 18:46
下面是SSGET的判断回车，ESC的，道理一样

(setq ssAusw (vl-catch-all-apply 'ssget nil))

再次请教一下，(vl-catch-all-apply 'ssget nil) 这个里面的‘ssget 如何加参数呐，比如 (ssget  '((0 . “LINE”) (62 . 5)))

newer

19622928 发表于 2018-8-29 10:34
再次请教一下，(vl-catch-all-apply 'ssget nil) 这个里面的‘ssget 如何加参数呐，比如 (ssget  '((0 .  ...

vl-catch-all-apply 本质就是 apply
所以
(vl-catch-all-apply 'ssget  '(((0 . "line"）)))