[求助]：在LISP程序里无法搞定Esc键

h0404 · 发表于 2009-4-12 23:46:03

收藏了，我也碰到这样的问题，冷了，看来以后不用冷了。呵呵。

god1478 · 发表于 2009-5-5 20:14:26

看了这么多贴出来的东西都不知道哪个好用了？？具体怎么用啊？？

前辈指点下谢谢了

zwltanf_2008 · 发表于 2009-5-20 09:23:42

值得学习

pan20035 · 发表于 2009-5-21 07:30:29

好东西要顶个~

守仁格竹GM · 发表于 2013-5-14 15:02:56

受益匪浅谢谢

sicky111 · 发表于 2013-5-16 23:18:57

错误处理函数是通用的吗？

adidasljh · 发表于 2019-1-17 18:21:57

lijiao 发表于 2004-5-15 07:55
错误处理函数要短，要快，否则，它也会被ESC中断的，因为它也是一段程序。
To：yanxinbo67
你的问题可 ...

我也遇到lsp运行过程中按esc取消图层回不去的问题，请版主指导下

adidasljh · 发表于 2019-1-17 18:22:59

lijiao 发表于 2004-5-15 07:55
错误处理函数要短，要快，否则，它也会被ESC中断的，因为它也是一段程序。
To：yanxinbo67
你的问题可 ...

我也遇到lsp运行过程中按esc取消图层回不去的问题，请版主指导下，请版主看下，给这个加一个容错程序，(Defun c:T5 (/ e e1 la ps si smx ss ssh)
  (command "_undo" "be" "")
      (setq clayer (getvar "clayer"))
  (command "layer" "m" "S-HATC" "C" "8" "" "")
  (if (and
   (princ "\n选择要填实的柱子<退出>：")
   (setq
      ss (ssget (list  '(0 . "polyline,lwpolyline,circle") ))
   )
   )
(progn
   (setq smx (sslength ss)
   si  0
   )
   (while (< si smx)
      (setq e  (ssname ss si)
   si (1+ si)
      )
      (if t
         (progn
      (if nil;(setq e1 (entnext e))
(command ".-bhatch" "p" "ARMORED" "25" "0" "s" e e1 "" "")
(command ".-bhatch" "p" "ARMORED" "25" "0" "s" e "" "")
      )
      ;(@htas nil)
         )
      )
   )
)
  )
(setvar "clayer" clayer);回到原来图层
(command "_undo" "e" "")
)

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

[求助] [求助]：在LISP程序里无法搞定Esc键