点击加载然后进入cad绘图环境在命令行输入"sb"指定标注位置[编号初值(C)/引线(Y)/边框(K)/文字(W)/"> 点击加载然后进入cad绘图环境在命令行输入"sb"指定标注位置[编号初值(C)/引线(Y)/边框(K)/文字(W)/" />
CAD自动编号操作.doc

CAD自动编号操作.doc

ID:49765881

大小:27.50 KB

页数:2页

时间:2020-03-04

CAD自动编号操作.doc_第1页
CAD自动编号操作.doc_第2页
资源描述:

《CAD自动编号操作.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、CAD自动编号操作使用方法:找开autocad-->工具-->AutoLisp-->加载-->找到"编号速写.lsp"-->点击加载然后进入cad绘图环境在命令行输入"sb"指定标注位置[编号初值(C)/引线(Y)/边框(K)/文字(W)/还原为默认设置(H)/退出(T)]:<编号之前请先将当前文字样式的文字高度项设为0>C:设置编号初值<0>自然数序列(123...)<1>字母序列(abc.../ABC...)<2>带前/后缀自然数序列(a1a2.../B1B2.../(1)...).<3>带前/后缀字母序列(aaabac

2、.../MaMbMc.../(a)...选择其中一种0/1/2/3Y:设置引线有无及引线位置参数K:设置边框有无及边框半径W:设置文字高度角度及箭头大小H:将所有参数还原为初始值:编号类型:0编号初值:1引线:Y边框:Y边框圆半径:自动文字高度:3.5文字旋转角度:0编号到引线距离:1箭头大小:2.5水平段引线长度:自动自然数前缀:无自然数后缀:无字母前缀:无字母后缀:无边框自动处理时,文字到边框的偏移系数:7(偏移量=文字高度/偏移系数,改变此系数可到程序中修改变量pianyi)注意:编号之前请先将当前文字样式的文字高度

3、项设为0,否则过程会出错其它请参考"参数图解"第一次修改:①边框大小可由文字大小自动处理(之前,须由用户给定)②边框类型添加一项,添加矩形边框③水平段引线长度可由文字及边框大小自动处理(之前,须由用户给定) *运行宏 数变编号,加圆圈Public Sub bh()ThisDrawing.Utility.Prompt "请选择要加圆圈的文本" + vbCrLfDim sset As AcadSelectionSetDim gp(0) As IntegerDim data(0) As VariantIf ThisDrawing.

4、SelectionSets.Count <> 0 ThenFor i = 0 To ThisDrawing.SelectionSets.Count - 1Set sset = ThisDrawing.SelectionSets.Item(i)sset.DeleteNextElseEnd IfSet sset = ThisDrawing.SelectionSets.Add("ss")AcadApplication.Visible = Truegp(0) = 0data(0) = "*Text"123: sset.SelectO

5、nScreen gp, dataDim min As VariantDim max As VariantDim o(0 To 2) As DoubleDim cir As AcadCircleIf sset.Count < 1 ThenMsgBox "没选文本"GoTo 123End IfFor i = 0 To sset.Count - 1sset(i).GetBoundingBox min, maxo(0) = (min(0) + max(0)) / 2o(1) = (min(1) + max(1)) / 2o(2) =

6、 0ThisDrawing.ModelSpace.AddCircle o, 4.5NextEnd Sub

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。