怎样为Block用SetXData设置延伸数据（请帮忙看看我的程序错在哪里）
通过下面的代码用SetXData怎么也为块加不上延伸数据，请高手帮帮忙，不胜感激Private Sub Command6_Click()
Dim acadDoc As AcadDocument<BR>Dim acadapp As AcadApplication
Dim blockObj As AcadBlock<BR>Dim startPoint(0 To 2) As Double<BR>Dim endPoint(0 To 2) As Double
Dim AppName As String<BR>Dim XData(0 To 1) As Variant<BR>Dim XDType(0 To 1) As Integer<BR>Dim insertionPnt(0 To 2) As Double
On Error Resume Next<BR>Set acadapp = GetObject(, "AutoCAD.Application")<BR>If Err Then<BR> Err.Clear<BR> Set acadapp = CreateObject("AutoCAD.Application")<BR>End If<BR>acadapp.Visible = 1<BR>Set acadDoc = acadapp.ActiveDocument
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#<BR>Set blockObj = acadDoc.Blocks.Add(insertionPnt, "New_Block")
startPoint(0) = 1<BR>startPoint(1) = 1<BR>startPoint(2) = 0<BR>endPoint(0) = 5<BR>endPoint(1) = 5<BR>endPoint(2) = 0
Call blockObj.AddLine(startPoint, endPoint)
AppName = "Pline"<BR>XDType(0) = 1001<BR>XData(0) = AppName<BR>XDType(1) = 1000<BR>XData(1) = "wo hui cheng gong"
Call blockObj.SetXData(XDType, XData)
<BR>End Sub
页:
[1]