[LISP程序]：大侠们看看怎么改？

Dallas_whu

我的想法是在连续标注时，按右键或空格时自动取消，而不必按[ESC]，不能取消dimcontinue的动态提示。标注完了后恢复原来的图层。请大侠们指点！

[PHP]
(defun c:df (/ OLDLAYER)
  (setvar "osmode" (+ 1 2 4 8 128 32 512))
  (SETQ OLDLAYER (GETVAR "CLAYER"))
  (if (= (tblobjname "LAYER" "标注") nil)
    (progn
      (entmake (list
                 '(0 . "LAYER")
                 '(100 . "AcDbSymbolTableRecord")
                 '(100 . "AcDbLayerTableRecord")
                 '(6 . "continuous")        ;线型
                 '(62 . 5)                ;颜色
                 '(70 . 0)                ;图层状态
                 (CONS 2 "标注")        ;图层名
               )
      )
    )
  )
  (setvar "clayer" "标注")
  (command "_.dimlinear" pause pause pause)
  (WHILE (/= 25 (CAR (GRREAD T 4 2)))
    (command "_.dimcontinue" pause "" "")
    )
  (SETVAR "CLAYER" OLDLAYER)
  (princ)
  )
[/PHP]

zxq0220

将
(WHILE (/= 25 (CAR (GRREAD T 4 2)))
    (command "_.dimcontinue" pause "" "")
)
改成
(COMMAND "_.DIMCONTINUE")
(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))
试试

Dallas_whu

除了没有提示信息及尺寸数值显示外，满足要求了。谢谢大侠！