CAD自动编号操作.doc

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/3Y:设置引线有无及引线位置参数K:设置边框有无及边框半径W:设置文字高度角度及箭头大小H:将所有参数还原为初始值:编号类型:0编号初值:1引线:Y边框:Y边框圆半径:自动文字高度:3.5文字旋转角度:0编号到引线距离:1箭头大小:2.5水平段引线长度:自动自然数前缀:无自然数后缀:无字母前缀:无字母后缀:无边框自动处理时,文字到边框的偏移系数:7(偏移量=文字高度/偏移系数，改变此系数可到程序中修改变量pianyi) 注意:编号之前请先将当前文字样式的文字高度项设为0,否则过程会出错其它请参考"参数图解"第一次修改：①边框大小可由文字大小自动处理(之前，须由用户给定)②边框类型添加一项，添加矩形边框③水平段引线长度可由文字及边框大小自动处理(之前，须由用户给定)　*运行宏数变编号，加圆圈PublicSubbh()ThisDrawing.Utility.Prompt"请选择要加圆圈的文本"+vbCrLfDimssetAsAcadSelectionSetDimgp(0)AsIntegerDimdata(0)AsVariantIfThisDrawing.SelectionSets.Count<>0ThenFori=0ToThisDrawing.SelectionSets.Count-1Setsset=ThisDrawing.SelectionSets.Item(i)sset.DeleteNextElseEndIfSetsset=ThisDrawing.SelectionSets.Add("ss")AcadApplication.Visible=Truegp(0)=0data(0)="*Text"123:sset.SelectOnScreengp,dataDimminAsVariantDimmaxAsVariantDimo(0To2)AsDoubleDimcirAsAcadCircleIfsset.Count<1ThenMsgBox"没选文本"GoTo123EndIfFori=0Tosset.Count-1sset(i).GetBoundingBoxmin,maxo(0)=(min(0)+max(0))/2o(1)=(min(1)+max(1))/2o(2)=0ThisDrawing.ModelSpace.AddCircleo,4.5NextEndSub。