Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新日志
[更新]-[CAD/VBA]计算选定区域面积 Autocad VBA初级教程 第十三课块操作
晴天 用VBA获取cad中的字符框中的字符   [ 日期:2014-04-14 ]
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





[阅读字体大小: ]
引用通告地址 (0):
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=78
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=78&CP=GBK
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情