[VBA]急！！！字符串读取的问题

pckite

各位大侠好，小弟刚学VBA，我想在CAD中随机输入任意一个字符串，如何在其它程序（用什么语言都可以）中读取出我输入的那个特定的字符串？用什么来标识它呢？如何找到它的内容呢？正在考虑之中，能否给些提示或者例子？

longcs

先构建一个选择集合遍历你的选择集合判断是否是你需要的即可

efan2000

在ACAD中，字符串保存的就是文字对象，只要能够对ACAD操作，就可以返回这个对象，取得它的内容。

pckite

我的想法是这样的，在DWG文件中通过一个函数使得DWG中保留我们所定义的几个变量v1,v2,v3，其内容分别存储三个字符串，文件关闭之后，在其它地方用其它的程序取出其内的三个变量的值。现在就是还不知道怎么样保存变量和读取变量。

雪山飞狐_lzh

可以存到注册表或文件里

myfreemind

用词典对象也行！

pckite

一、ThisDrawing.SetVariable "users1", "明经通道"


二、AcadApp.ActiveDocument.SetVariable "DIMASZ", 2.5


这两个都不是很灵活，第一个方式文件关闭后变量就不保存了，第二种方式是系统变量，变量名必须是系统提供的，并且好像不能保存任意的字符串，难道一定要借用外界文件来保存吗？

efan2000

使用扩展数据，扩展词典中的扩展记录也行啊。

2. Sub Test()
3.        SetXData
4.        GetXData
5. End Sub
6. Sub SetXData()
7.        Dim xdt(0 To 1) As Integer
8.        Dim xdv(0 To 1) As Variant
9.        xdt(0) = 1001: xdv(0) = "扩展数据"
10.        xdt(1) = 1000: xdv(1) = "明经通道"
11.        ThisDrawing.ModelSpace.SetXData xdt, xdv
12. End Sub
13. Sub GetXData()
14.        Dim xdt As Variant
15.        Dim xdv As Variant
16.        ThisDrawing.ModelSpace.GetXData "扩展数据", xdt, xdv
17.        If IsEmpty(xdt) Then Exit Sub
18.        MsgBox xdv(1)
19. End Sub

Sub Test()        SetXData        GetXData End Sub Sub SetXData()        Dim xdt(0 To 1) As Integer        Dim xdv(0 To 1) As Variant        xdt(0) = 1001: xdv(0) = "扩展数据"        xdt(1) = 1000: xdv(1) = "明经通道"        ThisDrawing.ModelSpace.SetXData xdt, xdv End Sub Sub GetXData()        Dim xdt As Variant        Dim xdv As Variant        ThisDrawing.ModelSpace.GetXData "扩展数据", xdt, xdv        If IsEmpty(xdt) Then Exit Sub        MsgBox xdv(1) End Sub