extract text height from a picked single line text

[motee-z]

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

[Tharwat]

Hi.

 

Try this .

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

[motee-z]

hello tharwat thanks for reply

can we extract text height from this selection method

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

[Tharwat]

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)))

[motee-z]

thank you tharwat for your kindness

[Tharwat]

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

[BIGAL]

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

Edited September 12, 2014 by BIGAL

[Tharwat]

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