模仿天正逐点标注-飞翔版

moshouhot

好用，如果能模仿cad的连续标注，会在点击前有个预览效果就更棒了。估计要做个反应器之类的。

随风万里

这个确实需要，有时公司电脑没装天正的时候就发挥作用了

520kim

好用，点赞，能分享源码就更好了

puzb2023

下载试用一下，感谢分享

惜惜2

这种效果吗？

2. (defun c:D12 ()
   
3.   (setvar "orthomode" 0)
   
4.   (command "dimaligned")
   
5.   (setq pt1 (getpoint "\n指定标注起点: "))
   
6.   (setq pt2 (getpoint pt1 "\n指定标注终点: "))
   
7.   (setq pt3 (getpoint "\n指定标注放置位置: "))  
   
8.   (command pt1 pt2 pt3)   
   
9.   (command "dimcontinue")
   
10.   (princ)
    
11. )

(defun c:D12 ()<br />   (setvar "orthomode" 0) <br />   (command "dimaligned") <br />   (setq pt1 (getpoint "\n指定标注起点: ")) <br />   (setq pt2 (getpoint pt1 "\n指定标注终点: ")) <br />   (setq pt3 (getpoint "\n指定标注放置位置: "))  <br />   (command pt1 pt2 pt3)   <br />   (command "dimcontinue")<br />   (princ)<br /> )