(defun c:NM(/ oldlay p1 p2 p3 p33 p3a ss1 try-pt-toline)
(defun try-Pt-ToLine(pt p1 p2 ) (intersp1 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)
) xj6019 发表于 2022-11-11 20:46
一换就行呀 我试了 没问题呀
(defun c:NM(/ oldlay p1 p2 p3 p33 p3a ss1 try-pt-toline)
(defun try- ...
昨晚用过以后，又想到了一个小问题：
延续 dimcontinue 命令以后，
【回车】完成操作的返回结果是提示 选择连续标注：需要再次回车才能真正结束操作。
我知道dimcontinue 本身就是这个操作步骤，能不能说一次回车直接结束命令不再循环要求选择连续标注。
页:
1
[2]