关于SetXdata的问题

yangmz1972 · 发表于 2018-8-17 13:14:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 yangmz1972 于 2018-8-17 13:29 编辑

本人在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 · 发表于 2018-8-17 14:19:02

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

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

yangmz1972 · 发表于 2018-8-17 15:57:31

本帖最后由 yangmz1972 于 2018-8-17 16:00 编辑

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

sunny8848 · 发表于 2021-3-20 08:43:16

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

yangmz1972 · 发表于 2021-3-31 12:27:01

用getdata（）得到属性

账号		自动登录	找回密码
密码			立即注册

[求助] 关于SetXdata的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。