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

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    '写完一行后就自动换行

Next

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