求助！VB2010 调用方式连接autocad2014 调用setxdata时出错！

yangmz1972 · 发表于 2021-6-14 22:30:00

请教高手，我用VB2010 通过调用2014方式编程，试图用setxdata方法为一个图形对象添加扩展数据，VBA手册中说明对象方法setxdata第一个参数为integer,第二个参数类型为varant类型，但VB2010没有varant类型，在VB2010的setxdata方法提示中，第一和第二参数均为了object类型。我试图用cobj函数把参数变为object型，调用setxdata方法时，老是提示参数类型不对，vb6中这样做无问题，但在VB2010中却出了这样的问题，这如何处理啊？
代码如下：不知道错误在哪里
      oCad = CreateObject("autocad.application")
      oCad.visible = True
      Dim cfilename As String = AppStartDir & "\test.dwg"
      oCad.Documents.open(cfilename)
      Dim pfSS As AutoCAD.AcadSelectionSet = oCad.ActiveDocument.PickfirstSelectionSet
      Dim objsl As Integer = pfSS.Count
      Select Case pfSS.Count
         Case 0
            MsgBox("没有选择对象")
         Case 1
            Dim xDataType(1) As Object
            Dim strdata(1) As Object
            xDataType(0) = 1001
            xDataType(1) = 1000
            strdata(0) = "范围"
            strdata(1) = "5"
            pfSS.Item(0).SetXData(xDataType, strdata)             '提示：参数类型无效
      case >1
            MsgBox("选择对象f过多")
end select

yshf · 发表于 2021-6-15 08:37:00

详见：http://blog.sina.com.cn/s/blog_af1320c70102xraw.html
'读取扩展数据
Public Function GetCode(objEnt As AcadEntity, strAppName As String) As Variant
  Dim DataType As Variant, DataVaue As Variant, i As Integer
  If HasXData(objEnt, strAppName) = False Then
GetCode = ""
  Else
objEnt.GetXData strAppName, DataType, DataValue
For i = LBound(DataType) To UBound(DataType)
      If DataType(i) = 1000 Then GetCode = DataValue(i): Exit For
Next i
  End If
End Function
'设置扩展数据
Public Function SetCode(objEnt As AcadEntity, strAppName As String, strDataValue As String)
Dim DataType(0 To 1) As Integer
Dim DataValue(0 To 1) As Variant
DataType(0) = 1001: DataValue(0) = strAppName
DataType(1) = 1000: DataValue(1) = strDataValue
objEnt.SetXData DataType, DataValue
End Function

yangmz1972 · 发表于 2021-6-17 09:26:00

谢谢楼上的回复，VB2010没有Variant变量类型，查看VB2010引用的autocad类型库关于setxdata函数的参数类型，均为object型。所以才会出现参数无效的提示。

求助！VB2010 调用方式连接autocad2014 调用setxdata时出错！

发表回复

精选推荐