关于标注的求助

xj6019

一换就行呀   我试了 没问题呀
(defun c:NM(/ oldlay p1 p2 p3 p33 p3a ss1 try-pt-toline)
        (defun try-Pt-ToLine(pt p1 p2 ) (inters  p1 p2 pt (polar pt(+ (* 0.5 pi) (angle p1 p2) )10) nil))
        (setq p1 (getpoint "\n请选择标注第一点:")
                p2 (getpoint "\n请选择标注第二点:" p1)
                p3 (getpoint "\n请指定方向:" P2)
                P33(try-Pt-ToLine P3 P1 P2)
                P3A(polar p2(angle p33 p3)(* 5.0 (atof(substr  (getvar "CANNOSCALE")3)))) ;距离不合适 就调节这里的数字5.0  
        )        
  (command "DIMALIGNED" "NON" P1 "NON" P2 "NON" P3A)
        (command "_dimcontinue")
  (princ)
)

cheefeel

xj6019 发表于 2022-11-11 20:46
一换就行呀   我试了 没问题呀
(defun c:NM(/ oldlay p1 p2 p3 p33 p3a ss1 try-pt-toline)
        (defun try- ...

昨晚用过以后，又想到了一个小问题：
延续 dimcontinue 命令以后，
【回车】完成操作的返回结果是提示 选择连续标注：需要再次回车才能真正结束操作。

我知道  dimcontinue 本身就是这个操作步骤，能不能说一次回车直接结束命令不再循环要求选择连续标注。