当前位置：文档库 › CAD自动编号操作

CAD自动编号操作

使用方法：找开autocad-->工具-->AutoLisp-->加载-->找到"编号速写.lsp"-->点击加载

然后进入cad绘图环境在命令行输入"sb"

指定标注位置[编号初值(C)/引线(Y)/边框(K)/文字(W)/还原为默认设置(H)/退出(T)]:<编号之前请先将当前文字样式的文字高度项设为0>

C:设置编号初值<0> 自然数序列(1 2 3...)

<1> 字母序列(a b c.../A B C...)

<2> 带前/后缀自然数序列(a1 a2.../B1 B2.../(1)...) .

<3> 带前/后缀字母序列(aa ab ac.../Ma Mb Mc.../(a)...

选择其中一种0/1/2/3

Y:设置引线有无及引线位置参数

K:设置边框有无及边框半径

W:设置文字高度角度及箭头大小

H:将所有参数还原为初始值:

编号类型:0

编号初值:1

引线:Y

边框:Y

边框圆半径:自动

文字高度:3.5

文字旋转角度:0

编号到引线距离:1

箭头大小:2.5

水平段引线长度:自动

自然数前缀:无

自然数后缀:无

字母前缀:无

字母后缀:无

边框自动处理时,文字到边框的偏移系数:7(偏移量=文字高度/偏移系数，改变此系数可到程序中修改变量pianyi) -

注意:编号之前请先将当前文字样式的文字高度项设为0,否则过程会出错其它请参考"参数图解"

第一次修改：①边框大小可由文字大小自动处理(之前，须由用户给定)

②边框类型添加一项，添加矩形边框

③水平段引线长度可由文字及边框大小自动处理(之前，须由用户给定)

*运行宏数变编号，加圆圈

Public Sub bh()

ThisDrawing.Utility.Prompt "请选择要加圆圈的文本" + vbCrLf Dim sset As AcadSelectionSet

Dim gp(0) As Integer

Dim data(0) As Variant

If ThisDrawing.SelectionSets.Count <> 0 Then

For i = 0 To ThisDrawing.SelectionSets.Count - 1

Set sset = ThisDrawing.SelectionSets.Item(i)

sset.Delete

Else

End If

Set sset = ThisDrawing.SelectionSets.Add("ss") AcadApplication.Visible = True

gp(0) = 0

data(0) = "*Text"

123: sset.SelectOnScreen gp, data

Dim min As Variant

Dim max As Variant

Dim o(0 To 2) As Double

Dim cir As AcadCircle

If sset.Count < 1 Then

MsgBox "没选文本"

GoTo 123

End If

For i = 0 To sset.Count - 1

sset(i).GetBoundingBox min, max

o(0) = (min(0) + max(0)) / 2

o(1) = (min(1) + max(1)) / 2

o(2) = 0

ThisDrawing.ModelSpace.AddCircle o, 4.5

End Sub