CAD中如何输入带圈的数字
发布网友
共2个回答
热心网友
第一步：点击
第二步：空白处双击
第三步：点击黑三角，选最后的【其他】，选择下图
第四步：找到想要的带圈数字，可更改字高度，确定即可
热心网友
/王者天下 建爱千秋 海纳百川 /CAD 中如何输入带圈的数字 CAD 中如何输入带圈的数字 2008-11-12 10:54:42 PM CAD 中如何输入带圈的数字 更多相关内容请访问CAD 家园论坛似乎 1-9 中陈桥输入可以解 决,但是两位数呢? ①⑨⑩ 再到后面就*为力了只能这些,再需要,自己画个圈. 来了 ´数变编号,加圆圈 Public Sub bh() ThisDrawing.Utility.Prompt 请选择要加圆圈的文本 + bCrLf Dim sset As AcadSelectionSet Dim gp(0) As Integer Dim data(0) As ariant 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.isible = True gp(0) = 0 data(0) = *Text 123: sset.SelectOnScreen gp, data Dim min As ariant Dim max As ariant 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 /Autocad 自带的快捷工具里有这个功能,不仅画圆,还可以画矩形 呢,何必舍进求远呢? 见附图:为了省空间,只截一部分. 如果你没有安装 AutoCAD 的快捷工具, 可以从别的地方找到以下几个文件: ACETUTIL.ARX ACETUTIL.FAS ACETUTIL.DLL ACETTXT.LSP 然后把下面的文件 all.lsp 和上面的文件放在一起, 用 AutoCAD 中的加载应用程序,把它调进 AutoCAD,即可运行 TCIRCLE. /****** all.lsp ***/ (ARXLOAD ACETUTIL.ARX) (LOAD ACETUTIL.FAS) (LOAD ACETTXT.LSP) (PRINC 增加 \TCIRCLE\ 命令.) /何必做出块,实在需要可做成组. 注意带圈数字并不是数字,只是全角文字,前贴的图是 Win98 字符 映射表打开宋体的一个区. 这个区在陈老师的 GBcbig.shx 中已定义. 你问的自定义字符是在 shx 文件中定义吗,你看看联机帮助的自定 /义部分,不过定义大字体是需要耐心的. /HJZ 老兄,能不能把 ACETUTIL.ARX ACETUTIL.FAS ACETUTIL.DLL ACETTXT.LSP 然后把下面的文件 all.lsp 和上面的文件放在一起, 用 AutoCAD 中的加载应用程序,把它调进 AutoCAD,即可运行 TCIRCLE. /****** all.lsp ***/ (ARXLOAD ACETUTIL.ARX) (LOAD ACETUTIL.FAS) (LOAD ACETTXT.LSP) (PRINC 增加 \TCIRCLE\ 命令.) /好,满足大家,上传. /
