recreating points

i have to recreate points in civil 3d. the points already created are not civil 3d objects. what i've been doing is recreating them individually but there are a couple hundred of them. is there an autolisp routine or other routines that i could use to make this job go faster?

Thank You!

...the points already created are not civil 3d objects

So what are they?

Land Desktop points?

Carlson points?

Some other software's points?

If there Autocad "points" then you can use them straight away supported in civ3d Points and surfaces look at definition option. If we need a couple of extra pts we just add an autocad point with a z then add to surface its easier than using the point manager.

the points look like this: x 19.38

where "x" is a block and "19.38" is text. what i've been doing is creating points in civil 3d. where the location is "x". when it asks for an elevation i type "19.38". i hope this make sense : (

It would help if you could post a portion of the dwg that contains an existing 'point'...

If the existing 'point' is a block with an elevation (Z coordinate), you could use the Autocad Point command (not Civil 3D's) to create a point at each insert of the blocks; then use Civil 3d to convert the points to Civil 3d points (Points > Utilities > Convert from AutoCAD points).

If as you say the 19.38 is text next to the block then this lisp will read the text and create a point with a z, couple of limitations it uses the text insertion point for the xy.

If the text is actually "x 19.38" then use find and replace out the "x " then run lisp. If its still in the block quick and dirty explode all blocks.

Haven't used it for a while but turn off all layers except the one you want.

; converts text to a point with xyz 
; z value equal to text
; by Alan H Nov 99

(while (not (setq ss (ssget))))     
(command "layer" "new" "txthts" "")
(setvar "clayer" "txthts")
(setvar "pdsize" 3)
(setvar "pdmode" 35)
(while (setq en (ssname ss 0))
    ; Entity type
    (setq entyp (cdr (assoc 0 (entget en)))) 
   (if (= entyp "TEXT")
   (progn
   (setq xyz (cdr (assoc 10 (entget en))))
   (setq txtht (cdr (assoc 1 (entget en))))
   (setq txtz (atof txtht))
   (setq ptxyz (list (car xyz)(cadr xyz) txtz))
   (command "point" ptxyz)
   )                         
   )                              
   ; Delete each measured entity from set
   (ssdel en ss)
;end while
)

This subject has been discussed before and I am pretty sure that there are some smarter souloutions here but if you want the work done today do it the dirty way.

Post an example DWG with a few 'points'.

This should really be moved to the Civil 3D section.