Topic: CivilLabels converting ?

[cadplayer]

Hello!

I´m not really a friend with the look of CivilLabel (for example boring rotate them...), so I was thinking how can I convert a CivilEntity in a normal AutocadEntitiy - exactly explode the label, but than I get a anonym block without attributes, so I don´t happy also with them. The other thing is, labelValue is a string not a attribut - stupid???

If I pick on a explode lable (->block ) with this code

Code: [Select]

(defun c:test ()
  (if (setq Vent (vlax-ename->vla-object (car (nentsel "\Select a label "))))
    (progn
      (vlax-dump-object Vent t)
      (textpage)
      )
    )
  )
TextString = "{\\Fisocp.shx|c0;79.24}"

So maby there is a way to convert string in a attribut


Any suggestions ?

[cadplayer]

I´m no expert with Visual so I wondering how I can get entitydata from VLA-object ?

[Lee Mac]

I´m no expert with Visual so I wondering how I can get entitydata from VLA-object ?

This may help in that respect:
http://lee-mac.com/entitylist.html

[cadplayer]

Thanks Lee, but there I can´t see a str-entity which have my high "79.24". Do you know what type of page comes with "vlax-dump-object vent..." ?

[cadplayer]

Code: [Select]

(
    (-1 . <Entity name: 7fffd8f08b0>)
    (0 . "AECC_SURFACE_ELEVATION_LABEL")
    (330 . <Entity name: 7ffff4d09f0>)
    (5 . "48C5B")
    (100 . "AcDbEntity")
    (67 . 0)
    (410 . "Model")
    (8 . "TERR-TEXT")
    (100 . "AeccDbEntity")
    (100 . "AeccDbLabeling")
    (100 . "AeccDbLabel")
    (100 . "AeccDbFeatureLabel")
    (100 . "AeccDbSurfaceElevLabel")
  )
Nothing I can use to extract high value from label, is there annother way ?

[CAB]

Try this:

Code: [Select]

(defun c:dump (/ ent obj)
  (if (setq ent (entsel "\nSelect entity to get object data: "))
    (progn
      (textscr)
      (setq obj (vlax-ename->vla-object (car ent)))
      (vlax-dump-object obj t)
      (vlax-release-object obj)
      (princ "\n")
    )
  )
  (princ)
)

[cadplayer]

@CAB: Is it not the same I wrote

Don´t missunderstand me, actually I would convert CivilLabel in a block with attribute but my first try is to convert it in a text (little easier for me:) )
The problem here is still to can get the label Value.

Code: [Select]

(defun c:zhp ( / ss vent data pt)
  (prompt "\nSelect labels: \n")
  (setq ss (ssget '((0 . "AECC_SURFACE_ELEVATION_LABEL"))))
  (progn
    (setq I -1)
    (repeat (sslength ss)
      (setq vent (vlax-ename->vla-object (ssname ss (setq I (1+ I)))))
      (setq data (entget vent))
      (setq pt (cdr (assoc 10 pt)))
      (command "text" "s" "txt" (list (nth 0 PT) (nth 1 PT) 0)"" "0"
       (rtos (caddr(cdr(assoc 10 DATA))) 2 2))
      )
    )
  )

[CAB]

Sorry I should have been more clear.
What is the result of the DUMP?
Post the text page display.

[CAB]

I only have an older version of plain autocad and no time this morning to dig into your drawing.
Examples of how to access a blocks tag string are here.
http://www.theswamp.org/index.php?topic=35183

I think you are trying to get to this point.
(vla-get-tagstring att)

or is it the prompt you are after?

[cadplayer]

God morning to America from Sweden
Thanks CAP for answer

The label have this properties:

Code: [Select]

Label interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAeccApplication 000000002dcf9810>
;   Description = Civil 3D API: Felaktig parameter.
;   DisplayName (RO) = Civil 3D API: Felaktig parameter.
;   Document (RO) = #<VLA-OBJECT IAeccDocument 000000002dcf59a0>
;   Flipped = 0
;   Handle (RO) = "5A76"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000004b3b1d08>
;   LabelStyle = #<VLA-OBJECT IAeccLabelStyle 000000002de78550>
;   Layer = "TERR-TEXT"
;   LeaderAttachmentOption = 0
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   MarkerStyle = #<VLA-OBJECT IAeccMarkerStyle 000000004be62770>
;   Material = "ByLayer"
;   Name = Civil 3D API: Felaktig parameter.
;   ObjectID (RO) = 1195
;   ObjectID32 (RO) = 1195
;   ObjectName (RO) = "AeccDbSurfaceElevLabel"
;   OwnerID (RO) = 556
;   OwnerID32 (RO) = 556
;   Pinned = 0
;   PlotStyleName = "ByLayer"
;   Reversed = 0
;   ShowToolTip = Civil 3D API: Felaktig parameter.
;   Surface (RO) = #<VLA-OBJECT IAeccTinSurface 000000003e5c5cc0>
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000004b3b9b60>
;   Type (RO) = 9
;   Visible = -1
; Methods supported:
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Copy ()
;   Delete ()
;   GetBoundingBox (2)
;   GetExtensionDictionary ()
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   IsReferenceObject ()
;   IsReferenceStale ()
;   IsReferenceSubObject ()
;   IsReferenceValid ()
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetXData (2)
;   TransformBy (1)
;   Update ()
But if I explode the label comes a anonym block "*Uxx" and this propertiies

Code: [Select]

; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001402491d8>
;   AttachmentPoint = 4
;   BackgroundFill = 0
;   Document (RO) = #<VLA-OBJECT IAcadDocument 00000000515ceb00>
;   DrawingDirection = 5
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "5BEB"
;   HasExtensionDictionary (RO) = 0
;   Height = 0.254
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000003c873c08>
;   InsertionPoint = (152619.0 6.40905e+006 0.0)
;   Layer = "TERR-TEXT"
;   LineSpacingDistance = 0.423333
;   LineSpacingFactor = 1.0
;   LineSpacingStyle = 1
;   Linetype = "Continuous"
;   LinetypeScale = 1.0
;   Lineweight = -3
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 1204
;   ObjectID32 (RO) = 1204
;   ObjectName (RO) = "AcDbMText"
;   OwnerID (RO) = 1205
;   OwnerID32 (RO) = 1205
;   PlotStyleName = "Color_1"
;   Rotation = 0.0
;   StyleName = "Standard"
;   TextString = "{\\Fisocp.shx|c0;79.60}" <-----------------------look here !!!
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000003c86d8a0>
;   Visible = -1
;   Width = 0.0
; Methods supported:
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Copy ()
;   Delete ()
;   FieldCode ()
;   GetBoundingBox (2)
;   GetExtensionDictionary ()
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetXData (2)
;   TransformBy (1)
;   Update ()
So here we are, I can see my high value, but it´s a string I would like have a attribute.
I don´t know if it´s right way I look for...

[cadplayer]

Is it possible to get entityData from a Civil Label via Auto/VisualLisp (COM) or can I do this only in CivilAPI ?

[Jeff_M]

You cannot directly get the value of a C3D label object with any API. At least not that I have been able to find.

What is it you want to do with the labels that is so unfriendly and boring?

[cadplayer]

Thanks for replaying.
Mainproblem is how can I rotate fast labels so they display correctly direction in planview. Second thing is if I want interpolate between labels I need a value to can calculate new interpolated value. The point is sometimes I work faster if I generate mainhight from new road with surfacespotlevelLabel and interpolate more hight where I need.
I can do this with a blockattribute but not a label. So I believe it must be a methode to can ask a label which value it haves in surfacehight.

[cadplayer]

No suggestions or not clear ?

[Jeff_M]

No suggestions or not clear ?

More like you responded whilst I was sleeping (11:10 p.m my time). I am just now checking for new replies (6:30 a.m. my time).