Display elevation(Z coordinate) for Topo map

[JaJunky]

I have a bunch of points drawn in CAD 08' and i need to have them labeled with their elevations so I can connect them to make a topo map. The Z coordinates are listed under the properties tab but I need to have each point labeled with the Z coordinate.

 

How can I do this?

[smorales02]

sounds like a lisp routine is needed so that you can just click the point and it labels it using the Z value....Im sure someone will come along and be of more assistance

[CarlB]

Why do you need to label them as an intermediate step to make a topo map? Is this a visual for a manual method? Not the best way to go.

 

You should try this freeware program to create contours - http://www.sitetopo.com/

[rustysilo]

Are these points blocks, aecc points, or other?

[tcc_o2kad]

gud day,

 

i just want to ask...what autoacad u r using sir?

[timmeah]

Insert>Field>(Field Catergory = Objects) Field name = Object

 

Click the selection object icon

 

Select Point

 

Seclect Property > Position

 

Unselect x and y ticks with only z on

 

Select OK

 

Position the text

[BIGAL]

the field idea is really good if you move a point it updates.

 

Anyway here is a lisp it does 1 pt at a time the reason is that it was written to display coggo point within civil3D rather than globaly displaying.

 

;Write the z value of a point
(setq oldsnap (getvar "osmode"))
(setq oldlayer (getvar "clayer"))
(setq oldtxtht (getvar "textsize"))
(command "Layer" "n" "Pointhts" "c" 1 "Pointhts" "s" "pointhts" "")
(setvar  "osmode" 
(setvar "textstyle" "isocp")
(setq pt (getpoint "\nPick survey point   "))  ; get 1 to start
(while (/= pt nil)
;(repeat 50
(setq x (car pt))
(setq y (cadr pt))
(setq z (caddr pt))
(setq zed (rtos z 2 3))
(command "text" pt 0.25 0 zed )
(setq pt (getpoint "\nPick survey point press enter to exit "))  ;can bomb out here ok
) ; end while
; put on error here for when bombs
(setvar "osmode" oldsnap)  ;resets so if bomb now is as it was before starting
(setvar "clayer" oldlayer)
(setvar "textsize" oldtxtht )
(princ )

 

You can change it to do a selection and label lots all in one go change the while