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).

[Jeff_M]

Mainproblem is how can I rotate fast labels so they display correctly direction in planview.

While not quite as quick as the rotation of attributes, but definitely quicker than individually rotating labels, rotate one in the normal fashion with the grips. Go to the properties palette, copy the rotation value, now select the other points to rotate, paste the rotation value in the properties palette. Or, this could be automated with lisp or .NET.

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.

I'm not quite following you on this one. Although I think you could use points and the set point(s) by interpolate command. Also, instead of getting the label text, you CAN get the surface elevation at a location. I'll see if I can throw some code together to demonstrate this. Although, if the labels use any expressions, this method would not work very well.

[mjfarrell]

all of this can be done with normal C3D labels and or using a different method

I teach an 'interpolation from corridor surfaces in most of my classes

[cadplayer]

Is there any way to ask from a vla-object, if I inspect with vlide a SurfacLevelLabel what value it haves for surface "12.53" ?

[Jeff_M]

No, not directly. You can use normal lisp selection and (osnap) to get the insertion point information:

Command: (setq selection (entsel))
Select object: (<Entity name: 7ffff642150> (-470.441 -117.361 0.0))
Command: (setq pt (osnap (last selection) "_ins"))
(-471.302 -117.276 12.5304)

You may be able to select the object without user interaction by getting the bounding box, although I'm not sure how reliable that would be.

Starting with C3D2012, the .NET API has a Property for label objects called AnchorInfo from which you can get the Location (Insertion point) of the label. However, this is not exposed to the COM API which can be used by lisp. So you need to use either unreliable trickery in lisp, or move to .NET.

[cadplayer]

Thanks Jeff, that I was thinking too. I need little time to learn program in the NET.API.
It´s a lot stuff for beginner but it´s really fun to use C#. Is it not so popular to program with API, there is pretty much documentaded

[mac0312]

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

I can not connect to this website, I do not know why? Thanks!

[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

I can not connect to this website, I do not know why? Thanks!

As far as I know, my site is up and running.

[CAB]

Worked for me this morning.