使用链接，dump lisp例程将在“location”下返回插入点
现在的问题是如何提取“位置”？
对于VL来说，我是个新手
- Command: dump
- >> Select Object >> ; IAecbDevice: Device entity
- ; Property values:
- ; AlternateName (RO) = "28W"
- ; Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140b98ca0>
- ; BoundSpaces = 1
- ; Connectors (RO) = #<VLA-OBJECT IAecbConnectors 0000000032d59ba0>
- ; Description = ""
- ; Document (RO) = #<VLA-OBJECT IAcadDocument 000000000e1cbde0>
- ; Elevation = 0.0
- ; EngineeringData (RO) = #<VLA-OBJECT IAecbPartDataVariables 0000000032d59c30>
- ; EngineeringID = ""
- ; GUID (RO) = ""
- ; Handle (RO) = "1E5E1"
- ; HasExtensionDictionary (RO) = 0
- ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000032c86a28>
- ; ID = ""
- ; InsulationThickness = 0.0
- ; Layer = "E-63F--IE-N"
- ; Linetype = "ByLayer"
- ; LinetypeScale = 1.0
- ; Lineweight = -1
- ; LiningThickness = 0.0
- ; Load (RO) = "0"
- ; Location = (286861.0 305315.0 0.0)
- ; LockSize = 0
- ; Material = "ByLayer"
- ; MaximumSize = ...Indexed contents not shown...
- ; Name (RO) = "28W"
- ; Normal = (0.0 0.0 1.0)
- ; ObjectID (RO) = 42
- ; ObjectID32 (RO) = 42
- ; ObjectName (RO) = "AecbDbDevice"
- ; OwnerID (RO) = 43
- ; OwnerID32 (RO) = 43
- ; PartDescription (RO) = "28W"
- ; PlotStyleName = "ByLayer"
- ; Rotation = 6.10144
- ; ShadowDisplay = 0
- ; SizeName (RO) = "28W"
- ; Style = #<VLA-OBJECT IAecbDeviceStyle 000000002ec963e0>
- ; StyleName = "28W"
- ; SubType (RO) = ""
- ; System = #<VLA-OBJECT IAecbElecSystemDef 000000002ec96280>
- ; SystemAbbreviation (RO) = ""
- ; SystemFamily (RO) = ""
- ; SystemName = "Standard"
- ; SystemType (RO) = 100
- ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000032c896c0>
- ; Type (RO) = "Lighting"
- ; Visible = -1
- ; Voltage (RO) = Exception occurred
- ; Methods supported:
- ; ArrayPolar (3)
- ; ArrayRectangular (6)
- ; AttachAnchor (1)
- ; ClosestNode (1)
- ; Copy ()
- ; Delete ()
- ; GetAnchor ()
- ; GetBoundingBox (2)
- ; GetExtensionDictionary ()
- ; GetXData (3)
- ; Highlight (1)
- ; IntersectWith (2)
- ; Mirror (2)
- ; Mirror3D (3)
- ; Move (2)
- ; NodeLocation (1)
- ; ReleaseAnchor ()
- ; Rotate (2)
- ; Rotate3D (3)
- ; ScaleEntity (2)
- ; SetXData (2)
- ; TransformBy (1)
- ; Update ()
| 
