[求助]：CAD中如何输入带圈的数字

黑心萝卜

似乎1－9中陈桥输入可以解决，但是两位数呢？
①⑨⑩
再到后面就无能为力了

ll_j

只能这些，再需要，自己画个圈。

zy-zzl

这么复杂还不如直接画个园

黑心萝卜

画圆当然可以，那就要做成块了，文字可以有统计功能啊！
LL＿J，请问怎样自定义字符？

fjw_ok

来了
'数变编号，加圆圈
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
                  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

Kosilin

我看画一个圆比你这VB要快多了吧?

chgzhu

是否有能解决这个问题的补丁呀，要不那个高手写一个。

fjw_ok

你试试就知道了，元的位置？

2002zjp

介绍一下用法好吗？

fjw_ok

没啥介绍的，建一个宏，运行宏

HJZ

Autocad 自带的快捷工具里有这个功能，不仅画圆，还可以画矩形呢，何必舍进求远呢？？？
见附图：为了省空间，只截一部分。

wufei1

的确高手！

xjc_sh

楼上的大哥，怎么用呢！

HJZ

如果你没有安装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\" 命令。")

Kosilin

TCIRCEL命令不错!
只要对象被选,即可同时生成外圆圈(矩形...)!