JaJunky Posted April 21, 2008 Share Posted April 21, 2008 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? Quote Link to comment Share on other sites More sharing options...
smorales02 Posted April 21, 2008 Share Posted April 21, 2008 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 Quote Link to comment Share on other sites More sharing options...
CarlB Posted April 21, 2008 Share Posted April 21, 2008 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/ Quote Link to comment Share on other sites More sharing options...
rustysilo Posted April 22, 2008 Share Posted April 22, 2008 Are these points blocks, aecc points, or other? Quote Link to comment Share on other sites More sharing options...
tcc_o2kad Posted April 22, 2008 Share Posted April 22, 2008 gud day, i just want to ask...what autoacad u r using sir? Quote Link to comment Share on other sites More sharing options...
timmeah Posted February 11, 2009 Share Posted February 11, 2009 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 Quote Link to comment Share on other sites More sharing options...
BIGAL Posted February 11, 2009 Share Posted February 11, 2009 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.