Autolisp二次开发之提升制图效率

一、引言

       最近在利用CASS（或CAD）软件处理项目数据，发现在处理过程中，占用80%时间的制图环节常常是在做一些重复性的工作，所以尝试改变这种低效工作模式。

二、常规操作

         （1） 利用CASS（或CAD）给图件特征点连续添加序号

            按照常规制图流程，实现这种引线标注需要按照以下步骤:

                 ① 利用L或PL命令绘制一条直线；

                 ②利用C命令在直线段的终点作圆，并指定半径大小；

                 ③利用text命令在圆内添加文字，并需要设置文字大小与角度

                 ④利用TRIM命令裁剪到圆圈内的直线段

                   ⑤如果需要设置标注内容的颜色，需要利用change命令

                  ⑥ 如需要实现连续标注，需要利用带基点复制，并且需要逐个修改标注序号

         利用上述几步实现特征点连续标注序号的功能，效率不高。

三、新方法

       利用autolisp命令实现上述各种命令的集成，实现一个指令控制整个流程，操作简单方便，效率较高  

功能实现：

  命令: snbz
 指定起点
 指定终点PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <2.0000>: 2.000000000000000
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: text
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: s
输入样式名或 [?] <宋体>: 宋体
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: J 输入选项 
[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中
下(BC)/右下(BR)]: MC
指定文字的中间点:
指定高度 <2.0000>: 2
指定文字的旋转角度 <0>: 0
输入文字: 1
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 3
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令:
 指定起点
 指定终点PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <2.0000>: 2.000000000000000
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: text
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: s
输入样式名或 [?] <宋体>: 宋体
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: J 输入选项 
[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中
下(BC)/右下(BR)]: MC
指定文字的中间点:
指定高度 <2.0000>: 2
指定文字的旋转角度 <0>: 0
输入文字: 2
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 3
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令:
 指定起点
 指定终点PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <2.0000>: 2.000000000000000
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: text
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: s
输入样式名或 [?] <宋体>: 宋体
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: J 输入选项 
[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中
下(BC)/右下(BR)]: MC
指定文字的中间点:
指定高度 <2.0000>: 2
指定文字的旋转角度 <0>: 0
输入文字: 3
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 3
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令:
 指定起点
 指定终点PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <2.0000>: 2.000000000000000
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: text
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: s
输入样式名或 [?] <宋体>: 宋体
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: J 输入选项 
[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中
下(BC)/右下(BR)]: MC
指定文字的中间点:
指定高度 <2.0000>: 2
指定文字的旋转角度 <0>: 0
输入文字: 4
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 3
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令:
 指定起点
 指定终点PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <2.0000>: 2.000000000000000
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: text
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: s
输入样式名或 [?] <宋体>: 宋体
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: J 输入选项 
[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中
下(BC)/右下(BR)]: MC
指定文字的中间点:
指定高度 <2.0000>: 2
指定文字的旋转角度 <0>: 0
输入文字: 5
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 3
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令:
 指定起点
 指定终点PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <2.0000>: 2.000000000000000
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: text
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: s
输入样式名或 [?] <宋体>: 宋体
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: J 输入选项 
[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中
下(BC)/右下(BR)]: MC
指定文字的中间点:
指定高度 <2.0000>: 2
指定文字的旋转角度 <0>: 0
输入文字: 6
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 3
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令:
 指定起点
 指定终点PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <2.0000>: 2.000000000000000
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: text
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: s
输入样式名或 [?] <宋体>: 宋体
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: J 输入选项 
[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中
下(BC)/右下(BR)]: MC
指定文字的中间点:
指定高度 <2.0000>: 2
指定文字的旋转角度 <0>: 0
输入文字: 7
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 3
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令:
 指定起点
 指定终点PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <2.0000>: 2.000000000000000
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 1
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:
命令: text
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: s
输入样式名或 [?] <宋体>: 宋体
当前文字样式:  “宋体”  文字高度:  2.0000  注释性:  否
指定文字的起点或 [对正(J)/样式(S)]: J 输入选项 
[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中
下(BC)/右下(BR)]: MC
指定文字的中间点:
指定高度 <2.0000>: 2
指定文字的旋转角度 <0>: 0
输入文字: 8
命令: CHANGE
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: C
新颜色 [真彩色(T)/配色系统(CO)] <BYLAYER>: 3
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]:

四、结语

利用该方法可以实现高效率连续标注，效率提高8成，能够大大节约时间，让我从繁重的体力劳动中解放出来