yama 发表于 2002-12-3 13:48:00

请问如何判断一个对象里有XDATA数据？，THANKS

请问如何判断一个对象里有XDATA数据？，THANKS

mccad 发表于 2002-12-6 20:09:00

看这个函数管不管用

Function HasXData(objEnt As AcadObject) As Boolean

    Dim xdataOut As Variant
    Dim xtypeOut As Variant
    objEnt.GetXData "", xtypeOut, xdataOut
    HasXData = IsArray(xtypeOut)
   
End Function

yama 发表于 2002-12-26 12:48:00

thanks,我试一试

页: [1]
查看完整版本: 请问如何判断一个对象里有XDATA数据？，THANKS