关于SetXdata的问题

yangmz1972

本人在VB窗体中放置一个command,代码如下：
Private Sub Command1_Click()

Dim acadApp As Object
Dim acadDoc As Object

Dim dblStart(2) As Double
Dim dblEnd(2) As Double
Dim lineObj As Object

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
    Err.Clear
    Set acadApp = CreateObject("AutoCAD.Application")
    acadApp.Visible = True
If Err Then MsgBox Err.Description
End If
Set acadDoc = acadApp.ActiveDocument

dblStart(0) = 0
dblStart(1) = 0
dblStart(2) = 0
dblEnd(0) = 100
dblEnd(1) = 100
dblEnd(2) = 0
Set lineObj = acadDoc.ModelSpace.AddLine(dblStart, dblEnd)

Dim intType(1) As Integer
Dim strData(1) As Variant

intType(0) = 1001
intType(1) = 1000

strData(0) = "XdataHeader"
strData(1) = "Helloworld"

xdata = strData
lineObj.SetXData intType, xdata

End Sub

运行时能画出一条线，但在属性窗口中看不到lineobj对象通过setxdata所设置的属性，就象没有发生一样，请高手看一下，代码中是否有错误？

Lisphk

你这是扩展实体数据，你要在哪个属性窗口看到他们？ACAD的实体特性窗口？那里面看不到这个的，这不是块属性。

你试下用LISP
(entget (car (entsel)) '("*"))
选下你画的线，看数据写进去没

yangmz1972

正在学习VB编程，还有许多不太清楚，谢谢，数据已写入

sunny8848

请问怎样核对上述属性呢，比如我画了几个圆，要对其中一个设置了属性的圆进行直径标注

yangmz1972

用getdata（）得到属性