请教，关于简单的连续标注？

sbwdx

论坛上找到Z版主的标注代码，发现，第一，如果点了一个重复基点，就显示，【尺寸界线原点不能相同。】，再点其他地方就不行了，必须点一下最近的一个标注（如果是连续标注会提示选择连续标注），才可以继续标注，第二，如果中途按ESC退出，需要按两下才可以，能按一下退出完毕吗？能优化一下代码吗？
(DEFUN C: DDD()
(INITGET 9)
(SETQ PT1 (GETPOINT "\n指定第一点 :"))
(SETQ PT2 (GETPOINT PT1 "\n指定第二点 :"))
(COMMAND "_DIMLINEAR" PT1 PT2 PAUSE)
(SETQ ANG (CDR (ASSOC 50 (ENTGET (ENTLAST)))))
(COMMAND "_DIMCONTINUE")
(WHILE (SETQ PT3 (GETPOINT "\n指定下一点 :"))
   (IF (EQUAL ANG 0.0 1E-3)
    (SETQ PT3 (LIST (CAR PT3) (CADR PT2) 0.0))
    (SETQ PT3 (LIST (CAR PT2) (CADR PT3) 0.0))
   )
   (COMMAND PT3)
)
(COMMAND "" "")
(PRINC)
)

cq4920

CAD自带的连续标注有啥不好呢？DCO,       *DIMCONTINUE。。另外论坛里有个连续标注，并且可以自动判断打断标注还是连续标注的lsp。

笑我秦兴

感谢楼主分享，要是支持回标就完美了

qazxswk

指定下一点的时候，有点卡，不知道能不能优化一下。

wyjhhz

感谢楼主的分享，不错的