用VBA获取cad中的字符框中的字符
来源:互联网 发布:linux mysql设定字符集 编辑:程序博客网 时间:2024/04/29 02:02
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
- 用VBA获取cad中的字符框中的字符
- 用VBA获取cad中的字符框中的字符
- cad vba中的权限实现
- MFC如何获取编辑框中的字符?
- 获取string.xml中的字符
- VBA中取得cells中的回车字符位置
- vba学习备忘003——C语言中的字符挪到vba之后
- 可以这样获取字符串中的某个字符
- vim 正则表达式获取双引号中的字符
- sql语句获取特殊字符中的str
- 获取String字符串中的某一段字符!
- Python 快速获取字符集中的字符
- 获取某个字符在字符串中的位置
- 获取字符在字符串中的位置
- iOS 获取字符串中的单个字符
- 获取java类中的代码字符
- 获取字符串中的中文字符长度
- 用VBA获取文件夹中的文件列表
- 为什么注销账号的功能都没有?
- 表达式求值
- 断路控制器--西门子中国研究院
- Tomcat脚本及HTTP请求过程跟踪
- 用VBA获取cad中的字符框中的字符
- 用VBA获取cad中的字符框中的字符
- 哈佛大学凌晨4点半景象
- 2.状态保持
- 程序设计原则——局部性原理
- WINCE5.0无线灯光控制软件--天津市某展览馆
- RFID电子标签--霍尼韦尔(中国)技术研发中心
- qq2010?Ubuntu实用-wine下安装QQ2010
- 计数排序
- #pragma pack 与#pragma pack(push,1)