批量对齐标注

批量对齐标注

cad自带有一个qdim的批量标注命令,但是只能进行垂直标注,相对来说局限性比较大,因为不能上传vlx格式的所以只能将两个子程序分开传了,程序里面用到了一个单通路的最短路径来多标注基点进行排序,函数接口是Shortest_path  只有一个参数,就是标注基点的列表 例如(p1 p2 p3)输出也标注基点的列表,目的就是对基点进行排序,如果大佬觉得我那个算法不太行可以自己进行替换可能效果更好。

下面是主程序
(defun c:asq()
(dynamic_Align_dimensions))
如果觉得asq这个命令用起来不方便,可以自己重定义

分享到 :