extract text height from a picked single line text

any idea how to get text height when i picked single line text

Hi.

Try this .

(if (setq s (ssget "_+.:S" '((0 . "TEXT,MTEXT"))))
 (setq hgt (cdr (assoc 40 (entget (ssname s 0)))))
 )

hello tharwat thanks for reply

can we extract text height from this selection method

(setq 1pt(entget (car (entsel "\nSelect text: "))))

can we extract text height from this selection method

(setq 1pt(entget (car (entsel "\nSelect text: "))))

Sure , but you have to be sure that the user selected a text and not any other object

Anyway here it goes .

(setq hgt (cdr (assoc 40 1pt)))

thank you tharwat for your kindness

thank you tharwat for your kindness

You are welcome anytime .

Have a read of THIS which consist of all related DXF codes for the single line text

VL example same thing no test for if text

(setq obj (vlax-ename->vla-object(car (entsel "\nSelect text: "))))
(vla-get-textstring obj) ; text entered
(vla-get-height obj) ; height of text
(vla-get-rotation obj) ; text angle
; to mention a few if you want more download Dumpit.lsp this will produce list
; or
(entget (car (entsel))) ; this will show dxf code numbers like 40 above

BIGAL , the OP is asking for text height and not for text string