设置XRecord

T.Willey · 发表于 2006-7-17 18:41:39

为什么赢了&#039；这不管用吗

Public Sub AddXRec(ByRef XrecName As String, DataType As Variant, Data As Variant)
Dim DictCol As Collection
Dim MyDict As Object
Dim Xrec As AcadXRecord
Set DictCol = This.Drawing.Dictionaries
Set MyDict = DictCol.Add("VBAtoLisp")
Set Xrec = MyDict.AddXRecord(XrecName)
xrec.SetXRecordData (datatype,data)
End Sub

当我在最后一行点击enter时，它给出和错误声明；编译错误：应为：=&quot；

T.Willey · 发表于 2006-7-17 18:47:49

去掉括号

copy

Public Sub AddXRec(ByRef XrecName As String, DataType As Variant, Data As Variant)
Dim DictCol As Collection
Dim MyDict As Object
Dim Xrec As AcadXRecord
Set DictCol = This.Drawing.Dictionaries
Set MyDict = DictCol.Add("VBAtoLisp")
Set Xrec = MyDict.AddXRecord(XrecName)
xrec.SetXRecordData datatype,data
End Sub

T.Willey · 发表于 2006-7-17 18:49:20

对于大多数事情来说，经验法则是VBA，如果你在一个等式的右侧，例如

copy

Set Xrec = MyDict.AddXRecord(XrecName)

你使用parethesis，如果没有，你就不用&#039；t。

T.Willey · 发表于 2006-7-17 18:56:47

非常感谢鲍勃。

Jeff_M · 发表于 2006-7-17 18:58:23

没问题。

T.Willey · 发表于 2006-7-17 19:13:25

如果希望在整个代码中使用一致的括号，可以使用call语句--Public Sub AddXRec（ByRef XrecName作为字符串，数据类型作为变量，数据作为变量）&nbsp；Dim DictCol As Collection，_&nbsp&nbsp&nbsp；MyDict；作为对象&nbsp&nbsp&nbsp；Xrec&nbsp；作为AcadXRecord&nbsp；设置DictCol=This.Drawing。词典&nbsp；设置MyDict=DictCol。添加（“VBAtoLisp”）
&nbsp；设置Xrec&nbsp；=MyDict。AddXRecord（XrecName）
&nbsp；致电xrec。SetXRecordData（数据类型，数据）
结束Sub（未测试/从内存绘制）

T.Willey · 发表于 2006-7-17 19:27:18

谢谢你，迈克尔&nbsp；只是想知道这是怎么回事
下一个问题：当你想要填充和XRecord时，你需要使用变体，对吗
你用和值数组定义变量吗
这是代码I&#039；我在努力

copy

Public Sub Main(ByRef Str1 As String, Str2 As String)
Dim DataType(1) As Variant
Dim Data(1) As Variant
Set Data(0) = Str1
Set Data(1) = Str2
Set DataType(0) = 1
Set DataType(1) = 2
AddXRec "VBAtoLisp", DataType, Data
End Sub