1208 Getpropertyvalue 仍需改进

st788796

令: (dumpallproperties (xdrx_object_get "Layout"))
Begin dumping object (class: AcDbDictionary)
Annotative (type: bool)  (LocalName: 注释性) = Failed to get value
ExtensionDictionary (type: AcDbObjectId)  (RO) = 0
Handle (type: AcDbHandle)  (RO) = 1a
HasFields (type: bool)  (RO) = 0
HasSaveVersionOverride (type: bool) = 0
IsA (type: AcRxClass*)  (RO) = AcDbDictionary
IsAProxy (type: bool)  (RO) = 0
IsCancelling (type: bool)  (RO) = 0
IsEraseStatusToggled (type: bool)  (RO) = 0
IsErased (type: bool)  (RO) = 0
IsModified (type: bool)  (RO) = 0
IsModifiedGraphics (type: bool)  (RO) = 0
IsModifiedXData (type: bool)  (RO) = 0
IsNewObject (type: bool)  (RO) = 0
IsNotifyEnabled (type: bool)  (RO) = 0
IsNotifying (type: bool)  (RO) = 0
IsObjectIdsInFlux (type: bool)  (RO) = 0
IsPersistent (type: bool)  (RO) = 1
IsReadEnabled (type: bool)  (RO) = 1
IsReallyClosing (type: bool)  (RO) = 1
IsTransactionResident (type: bool)  (RO) = 0
IsUndoing (type: bool)  (RO) = 0
IsWriteEnabled (type: bool)  (RO) = 0
Items (type: AcDbObjectId)  (RO)
Item 0:
    IsA (type: AcRxClass*)  (RO) = AcRxBoxedValueOnStack
    LocalizedName (type: AcString)  (RO) =
Item 1:
    IsA (type: AcRxClass*)  (RO) = AcRxBoxedValueOnStack
    LocalizedName (type: AcString)  (RO) =
Item 2:
    IsA (type: AcRxClass*)  (RO) = AcRxBoxedValueOnStack
    LocalizedName (type: AcString)  (RO) =
LocalizedName (type: AcString)  (RO) =
MergeStyle (type: AcDb::DuplicateRecordCloning)  (RO) = 1
ObjectId (type: AcDbObjectId)  (RO) = 7ffffb039a0
OwnerId (type: AcDbObjectId)  (RO) = 7ffffb038c0
TreatElementsAsHard (type: bool) = 0
End object dump

命令: (xdrx_getpropertyvalue (xdrx_object_get "Layout") "allentities")
nil

2012 64bit windows 7 64bit

其它测试中。。

XDSoft

先这样用

命令: (xd::object:get "layout")
(("建筑图纸" <图元名: 7ef93d80>) ("Model" <图元名: 7ef93d78>))

命令: (setq a (xdrx_object_get "layout" "建筑图纸"))
<图元名: 7ef93d80>

命令: (xdrx_getpropertyvalue a)

Class AcDbLayout:

    ├─BlockRecordID
    ├─Extents(2008+)
    ├─BoundingBox(2008+)
    ├─LayoutName
    ├─Limits(2008+)
    ├─TabOrder
    ├─ViewportArray
    ├─TabSelected
Class AcDbObject:
    ├─ClassName
    ├─ExtensionDictionary
    ├─FieldDictionary
    ├─IsA
    ├─IsAProxy
    ├─IsErased
    ├─IsReallyClosing
    ├─Handle
    ├─HasFields
    ├─MyParent
    ├─ObjectID
    ├─Owner