CAD自动编号操作

CAD自动编号操作 王者天下 建爱千秋 海纳百川 of the enemy's attack. Troops, and troops were scattered, Qian Kangmin, Commander, Deputy Commander Ding Bingcheng and others heroic martyrdom. Turk foreign "resistance" members for the evacuation. Since then, Wujiang County Government District long Zhang Pinquan was killed by the Japanese. CPC jindapeng, Xiao Xin was trying to recommend thinking 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 边框圆半径:自动 of the enemy's attack. Troops, and troops were scattered, Qian Kangmin, Commander, Deputy Commander Ding Bingcheng and others heroic martyrdom. Turk foreign "resistance" members for the evacuation. Since then, Wujiang County Government District long Zhang Pinquan was killed by the Japanese. CPC jindapeng, Xiao Xin was trying to recommend thinking 文字高度: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 of the enemy's attack. Troops, and troops were scattered, Qian Kangmin, Commander, Deputy Commander Ding Bingcheng and others heroic martyrdom. Turk foreign "resistance" members for the evacuation. Since then, Wujiang County Government District long Zhang Pinquan was killed by the Japanese. CPC jindapeng, Xiao Xin was trying to recommend thinking If ThisDrawing.SelectionSets.Count <> 0 Then For i = 0 To ThisDrawing.SelectionSets.Count - 1 Set sset = ThisDrawing.SelectionSets.Item(i) sset.Delete Next 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 Next End Sub of the enemy's attack. Troops, and troops were scattered, Qian Kangmin, Commander, Deputy Commander Ding Bingcheng and others heroic martyrdom. Turk foreign "resistance" members for the evacuation. Since then, Wujiang County Government District long Zhang Pinquan was killed by the Japanese. CPC jindapeng, Xiao Xin was trying to recommend thinking