Text Insertion Point (XY Differences)

[Anonymous]

I'm trying to return the Text Insertion Point of a Text Entity in Model Space, but struggling to understand why the value returned by (vla-get-Insertionpoint textobj) returns a coordinate that's nowhere near to the text entity. 

When I 'List' the Text I get its 'true' value....(X=29) but when I 'dump' or 'entget' the text I get an X Value of -675  I'm thinking there may be some sort of transformation going on here but unsure how to tackle this?    anyone have any ideas what's causing this ?

TEXT      Layer: "Text-Standard(E)"
                            Space: Model space
                   Color: 7 (white)    Linetype: "BYLAYER"
                   Handle = e9e89
             Style = "A25X25T 30"
        Annotative: No
             Typeface = Arial Narrow
            center point, X=  29.6359  Y= 485.5176  Z=   0.0000
            height    2.5000
              text EL. -22.871
          rotation angle     30

but when I 'dump' or 'entget' the entity I get this (X Value way off)..

Select object: ((-1 . <Entity name: 7ffffbe4a90>) (0 . "TEXT") (330 . <Entity
name: 7ffffb1d9f0>) (5 . "E9E89") (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8 . "Text-Standard(E)") (62 . 7) (100 . "AcDbText") (10 -682.689 49.66 0.0)
(40 . 2.5) (1 . "EL. -22.871") (50 . 0.523599) (41 . 1.2) (51 . 0.0) (7 .
"A25X25T 30") (71 . 0) (72 . 1) (11 -674.994 54.1028 0.0) (210 0.0 0.0 1.0)
(100 . "AcDbText") (73 . 0))

Select object: ; IAcadText2: AutoCAD Text Interface
; Property values:
;   Alignment = 1
;   Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140d27198>
;   Backward = 0
;   Document (RO) = #<VLA-OBJECT IAcadDocument 00000000271e2960>
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "E9E89"
;   HasExtensionDictionary (RO) = 0
;   Height = 2.5
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000002a379418>
;   InsertionPoint = (-682.689 49.66 0.0)
;   Layer = "Text-Standard(E)"
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 320
;   ObjectID32 (RO) = 320
;   ObjectName (RO) = "AcDbText"
;   ObliqueAngle = 0.0
;   OwnerID (RO) = 201
;   OwnerID32 (RO) = 201
;   PlotStyleName = "Color_7"
;   Rotation = 0.523599
;   ScaleFactor = 1.2
;   StyleName = "A25X25T 30"
;   TextAlignmentPoint = (-674.994 54.1028 0.0)
;   TextGenerationFlag = 0
;   TextString = "EL. -22.871"
;   Thickness = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000002a283b70>
;   UpsideDown = 0
;   Visible = -1
; Methods supported:

There's a 700mm discrepancy in it's location

[cadffm]

command LIST returns UCS Information, the stored data in file is WCS

http://help.autodesk.com/view/ACD/2018/ENU/?guid=GUID-88FFCF22-5F25-48D9-BD43-4F248EFFCE17

[DannyNL · Accepted solution]

Use (trans [Point] 0 1) to convert the coordinate from WCS as reported by ENTGET or the VLA-OBJECT to your current UCS.

[Anonymous]

Thanks Danny - Exactly what I needed...  Much Appreciated.

[DannyNL]

You're welcome & glad I could help