drawing points from flattened spot levels

[stupot]

Hi all,

 

I have a survey drawing and would like to create a surface from spot levels. However, the drawing has been flattened, and the spot levels are just text.

 

Is there any way that the Z value given in the level can be grabbed, and used to draw a point at that location? I have about 2000 spot levels so I'm not doing it manually...!

 

Thanks

 

Stu

[stupot]

 

That's all the information I have... Just a series of text boxes at z=0.

[ReMark]

Would you like to see these spot elevations shown at their actual heights?

[stupot]

Yeah, currently they're all on the same plane. If theres a way of moving the text to the actual height, and drawing a point at that level so i can create a surface, that would be super!

 

I'm using AutoCAD architecture 2010 by the way.

[Organic]

The easiest way would be to ask for the surface from the surveyor.

[eldon]

Perhaps this thread could help you

[Tyke]

Where exactly is the point? On the decimal point of the text? And if so is the text a whole entity (eg "10.54") or is it split into two text entities, one either side of the decimal point).

 

If you are using vanilla AutoCAD, how do you propose to create a surface (DTM ?)? You really need Civil 3D for that.

[stupot]

Unfortunately there is no point. The text is a whole entity. I can make a surface using sketchup.

[ReMark]

Available at the CADforum in the Downloads area under CAD Utilities.

 

Text2Elev.LSP - move text entities to the elevation (Z) corresponding to their text string.

[stupot]

Thanks ReMark that works really well and my text is all at the correct height.

 

Is there any way of replacing each text box with a point?

[ReMark]

Only one miracle per customer per day. LoL

 

Sorry, that is beyond my level of expertise. Perhaps one of the lisp gurus here can help you with that.

[stupot]

Haha thanks!

 

It looks like Civil 3D can do it

 

http://c3dpeanuts.wordpress.com/2010/04/27/importing-autocad-objects-as-surface-data-points/

 

There is an ' Add Points From Drawing Objects' function built in.

[ReMark]

And now you have taught me something. Thank you.

[Murph_map]

One way would be to use dataextract to get the text value and x,y position of the text. Then edit the excel file so you have X,Y, Text Value as Z coordinate then run a script from that excel file or mulitple points command.

[stupot]

Hi all,

 

Found a solution, just thought I'd post it up in case anyone else has the same problem.

 

To set text height (z axis) at its value (save as .vlx file):

 

VRTLIB-1(  h   ØLOAD((:protected . T) (:active-x . T) (:separate-namespace) (:load-file-list (:fas "text2elev")))±  2	TEXT2ELEV
FAS4-FILE ; Do not change it!
498
43 $ 	* \   2 * 5) 5(   	* \   2ÿ* 5) 5(   	' \   	& Q%  
2' 5) $ gš   $ 5( 5# " 2
' 5) 5( ! " 5  	 5 h   " 5  	 5 h   j   g=   2
! 5 ! 5 " 5 5 $ ' 5 '  5  W    W    ' 5      	 Q%  
 5 
 5 
 5   5
g   	 	 5  W     g
   5 W   2 
2 	 2  	 5 
 
5 g;    	 5 * * 5 ' ' 5 
* 5 
 5 	 Wµÿÿÿ 5 
 5 
5  
$
857 15 $û*Çx÷V1oa8~CJWIDES1^º*ÆF÷nnXMKcRF_!+2}ÃŒ0¤Kw'q2g7~j;l{]7ŒÍ²˜
9bd"x,aj~cBn°ó™&¨?aN\CDMhe·øô<»!g}d}*y"c;adU;‹‚æQ´Mo7"q8cIFULO7?ÁßèYÚDF*p<?u-pcn#hg(ƒ‡:¶ 9bt2zC\X7_'i
ÝéŠ<¡d|CV@BULFbt
¶üÆyöer]Gp
80^ï†ô;Äw0]8u5qS-)
9Cg묓x÷g1}HYQ
ERKI/~«í’8÷!	@WBIZ@Nb
^¿þ7´d1WIAutnnB7ËæWÙJNGTI^X.t¨øŽy÷10]L_HO
X11
¼ëƒ-÷d]RGCEBCY'/e·øê8£0uA8~CDhb;ƒÉ¥
×T%sag`,1jt{nB
?ƒÀøC×?aH_@CR
>b;€Ú£Y’T+ff.{-1kzonB~Çøƒ!£M)h23|&xu;hgG?›Å©×Lkt)IGC\TFN,e^ï÷…6º4}Q
EVN&p
®¬Æ"¾d1CJGU^
P/i^ï÷‹ ÷dWIZ\H_
:I1ïÿ“;¤01H\XTO
H#uïï‡+÷6tKz
_SYR2t^¿øÆ#÷6tCPCQDlgOS7Èë›
B)NC\_Ib\ï÷ƒ=¶0p]DVBTTN'
﬚y÷'1],MHC4bjÕøƒ!£VtBDGyM?I9|«è‡-¶d1g[G&bJBULFb1d³¬ÆK÷?t	^BGyD
b-Jî¬Æyþn1WPGC	b8W撚y÷d1T
AC\b1^ï¥Êyñc1T MCC b7Xï¥ÀyÂe4]NC
>c2^ì¦Ï{÷Q0^M!CeŠ&à™n
;fas4 crunch
;$;A6/30/06       VRTLIB-1    

 

 

To generate a point at the texts insertion point (save as .lsp file):

 

(defun c:txt2pt (/ Point i ss ent pt)

 (defun Point (pt) (entmakex (list (cons 0 "POINT") (cons 10 pt))))

 (if (setq i -1 ss (ssget '((0 . "TEXT,MTEXT"))))
   (while (setq ent (ssname ss (setq i (1+ i))))
     (setq pt (cdr (assoc 10 (entget ent))))

     (Point (list (car pt) (cadr pt)
                  (cond ((distof (cdr (assoc 1 (entget ent))))) (0.0))))))

 (princ))

 

Used the drape command in Autocad to create a surface.

 

 

Thanks for your help all