用VBA获取cad中的字符框中的字符

最新推荐文章于 2023-12-19 16:11:57 发布

原创最新推荐文章于 2023-12-19 16:11:57 发布 · 5k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#vba #string #each

常用资料专栏收录该内容

9 篇文章

订阅专栏

这段VBA代码创建了一个选择集，允许用户在CAD中选择对象，并将所选对象的文字内容导出到一个名为'A.txt'的文本文件中。每行文字后都会自动换行。

Sub gettext()
Dim sset As AcadSelectionSet '声明定义选择集
Dim ent As AcadEntity '声明实体

Set sset = ThisDrawing.SelectionSets.Add("ss1") '添加选择集

sset.SelectOnScreen                    '在屏幕上选择对象
Dim myFileNo As String                 '声明文件号
myFileNo = FreeFile                    '用freefile获取空闲文件号
Dim filename As String                 '声明文件字符串
filename = "d:/A.txt"           '指定文件的路径和文件名

Open filename For Append As myFileNo '如果打开的文件不存在,则新建一个文本文件,"myFileNo"是打开文本文件的序号

Dim str As String
For Each ent In sset
str = ent.TextString                  '实体中的文字内容赋给字符str

Print #myFileNo, , str          '用Print # 方法将字符串str直接写到文件中
Print #myFileNo, , vbCrLf    '写完一行后就自动换行

Close #myFileNo             '关闭打开的文本文件
sset.Delete                 '删除选择集
Set sset = Nothing          '将选择集置空
'Close #myFileNo
End Sub