Civil Point Object Elevation to Text with Point LISP

[JohnC_ISM]

looking for a lisp that extracts the elevation to two decimals and puts a point and text like the pictures and drawing ive attached.  (we have a lisp that rounds to one decimal so thats why its one decimal in the picture)

my dad usually has to extract the points to dxf and then uses some program that doesnt exist anymore then creates the text/points and then imports them back into the drawing. 

so itd be nice if theres a lisp that could possibly extract the data and create the text and if possible a text rotation option. 

pdsize - 0.0600

text size - 1.125

im using autocad 09 im not sure which other info is needed. this would be beyond appreciated and would save so much time because we cant download this program anymore and always have to wait on him to do the elevations. 

  

[john.uhden]

I have a PNT2SPOT routine I wrote for Land Desktop.  It would be easy to have it handle CogoPoints as well.  It places a "SPOT" block with attribute for the elevation.  Only thing is how to handle the CogoPoint.  You don't want to delete them.  So you could exclude them from any point groups that get displayed, or as I do, I change their layer to PNTS-FRZ, which is frozen.  I do that selectively for a lot of points because our survey crew takes a lot of excessive shots and the boss says the drawing gets too crowded.  Yet I still may want to use them for a surface model.

Remind me, and I'll get to it.

[JohnC_ISM]

ya im not sure and dont want to delete the point but if you want to give it a go its up to you. 

but also we go back through and round all the two decimal places to one when its a ground shot like grass so im not sure if our lisp to do that would work with an attribute either.  

im open to ideas tho. trying to streamline the process from stuff hes been doing for 20 years has been difficult and this is one of the last things im trying to figure out. 

[john.uhden]

As my cohort at work points out, I've got to give up my Land Desktop
mentality and give in to what C3D offers. He has built numerous point
label styles associated with point groups that automate the display of
points including hard (2 places) and soft (1 place). And of course they
are annotative, which helps a bundle.
I'm probably older than your dad, and have been doing this for over 30
years, yet I've become comfortable with the new ways in only 4 months. But
if the old dog cain't lern any new tricks, then I guess maybe we'd better
feed him what he's used to.
It makes more work for me because I'll have to learn how to
programmatically make the SPOT block annotative. But that's okay bc I like
learning.
As to soft vs. hard, we'll have you create either a SOFT.txt file or a
HARD.txt file containing a list of the appropriate descriptions (with
wildcards), with the default being one or the other. While you're at it,
add the desired insertion layer name for each description and in a combined
file including number of decimal places, as in...
*gs*,spot-ep,1
*gnd*,spot-ep,1
*tc*,curb-ep,2
*ep*,pvmt-ep,2
*conc*,conc-ep,2

Hmm, how about naming the file PNT2SPOT.txt?

[john.uhden]

I just checked, and PNT2SPOT is dialog driven as to providing you choices for the SPOT style.  No, not a C3D style, but an older format including an option for a marker and separate text.

Let's hope I get to it in time for Father's Day.  🙂

[john.uhden]

Hold it a minute.  I looked around and I see that maybe you are still using Land Desktop?

In that case, my current version of PNT2SPOT will work without modification.

[Sea-Haven]

Label Z CIV3D Cogo point. It does have some presets that end user may want to change.

; Label a civ3d cogo point 
; By Alan H 

(defun CIV3DPTHT ( / obj oldtext oldlay xyz pt1 ht pt)
  (alert "Pick CIV3D points press ESC or pick nothing to exit")
  (while (setq obj (vlax-ename->vla-object  (car (entsel))))
 ; vl 3d point convert to plain lisp 
  (setq pt1 (vlax-safearray->list (vlax-variant-value (vlax-get-property obj "Location"))))
  (setq ht (rtos (nth 2 pt1) 2 3)) ; Z val
  (setq pt (list (nth 0 pt1)(nth 1 pt1))) ; XY
  (setq oldtext (getvar "textstyle"))
  (setq oldlay (getvar "clayer"))
  (command "Layer" "n" "Pointhts" "c" 1 "Pointhts" "s" "pointhts" "") ; put text on new layer 
  ; 2.5 annotative text  
  (if (setvar "textstyle" "ISO2.5")
      (command "TEXT" pt 0 ht)
      (alert (strcat "The style ISO2.5 annotative does not exists" "\nplease create and run again"))
  ) 
  (setvar "textstyle" oldtext)
  (setvar "clayer" oldlay)
) ; end while 
(princ)
) ; end defun


(CIV3DPTHT)

 I sent you a private mail did you get it ? Had multiple details of civ3d stuff.

[JohnC_ISM]

Yeah we are working with autocad LDT  09 lol

[john.uhden]

I thought the last LDT was an extra with C3D2008.