Converting 2D text to 3D point?

does any anyone know how to convert 2D text to a 3D point, the whole drawing in one go?

Presume that the text entities are bearing the coordinates of the desired 3D points – this can be done with an AutoLISP routine.

Should post an example with the coordinates formatting.

Also may help to ask a moderator to move your port in AutoLISP, VBA, the CUI & Customisation section.

Regards,

(defun C:Convert_Text_to_Point (/ ss Z_value temp koord)
 (if (setq ss (ssget "_:L" '((0 . "Text"))))
   (progn
     (initget "Koord Value")
     (setq
Z_value	(getkword "\nTake Z from [Koord/Value]? <Value>:")
Z_value	(if Z_value
	  Z_value
	  "Value"
	)
ss	(vl-remove-if-not
	  '(lambda (x) (= (type x) 'ENAME))
	  (mapcar 'cadr (ssnamex ss))
	)
     )
     (foreach item ss
(setq temp  (entget item)
      koord (cdr (assoc 10 temp))
      koord (if	(eq Z_value "Value")
	      (list (car koord)
		    (cadr koord)
		    (atof (cdr (assoc 1 temp)))
	      )
	      koord
	    )
)
(entdel item)
(entmakex
  (list
    '(0 . "POINT")
    (cons 10 koord)
  )
)
     )
   )
 )
)

After doing this as you now have a 3dpoint you can build a surface model and contour etc.

Only caution is that the points are generally based on the text insertion point.

Threads merged.

Do you have available lisp that can convert points into text?

Pong 21 check www.lee-mac.com for his point manager program.

hi pong

Do you have available lisp that can convert points into text?

welcome cadtutor here

There are many similar threads here, but if you could make it clear which Lisp suit you:

text in numbering? XY coordinates? or elevations? make new points or select points etc..

fish or fishing?

thanx @BIGAL link very helpful by Lee Mac