Variable that extracts text height?

Is there a variable that I could include in a lisp routine that would extract the height value of text when the text is selected?? Thanks.

 

I think it's the dxf code 40.

Tim

 

Dxf value of 40

(setq e (entsel "\nSelect Text: "))

(setq d (entget (car e))
h (cdr (assoc 40 d));<<in inches;
)

No error checking provided or filters.

--
MASi
Copyright 2004 by Cadentity
www.Cadentity.com

extract the height value of text when the text is selected?? Thanks.

 

Awesome! So how can I make that work in this lisp:

(defun C:tcd ()
(setq texob (entsel "\nSelect Text: "))
(setq texht (entget (car texob)) h (cdr (assoc 40 texht))
)
(setq copht (* (texht)(-5/4)))
(command "copy" entsel "" 0,0 0,copht "")
(princ)
)

All I want is to be able to do is select a line of text, and have it copy itself to a point 1.25 times the height of the text in the negative Y direction. My lisp above probably looks really stupid to you gurus, but I'm learning as I go here! Thanks!

 

Here you go.

Tim
ps. watch for word wrap

(defun C:tcd (/); texob texht h copht)
(setq texob (entsel "\nSelect Text: "))
(setq texht (entget (car texob)) h (cdr (assoc 40 texht))
)
(setq copht (* h -1.25)) ;<- changed this line
(command "_.copy" (cdr (assoc -1 texht)) "" "0,0,0" (strcat "0," (rtos copht 2 22))) ;<- changed this line
(princ)
)

 

Oooopss... pasted to fast. This line should change so that your variables are localized within your lisp

(defun C:tcd (/); texob texht h copht)
to
(defun C:tcd (/ texob texht h copht)

Had it the first way for testing. Sorry

Tim

 

Your syntax needs a bit of work ... try this:

(defun C:tcd ( / texob txht copht)
(setq texob (entsel "\nSelect Text: ")
texht (cdr (assoc 40 (entget (car texob))))
copht (* texht (/ 5.0 4.0))
)
(command "copy" texob "" "0,0" (list 0 (- copht)))
(princ)
)
___

itself to a point 1.25 times the height of the text in the negative Y
direction. My lisp above probably looks really stupid to you gurus, but I'm
learning as I go here! Thanks!

 

Thanks Tim and Paul, your help is appreciated!!!

 

;<<in inches; ?

drawing units!

 

Depends on discipline of coarse.

I was speaking in architectural terms...

But if you want to get technical....well....

In all things we tend (individualize) in terms some may relate. It's true, I
assumed that he may have been in architecture, clueless, and went by this
name "Calpolyarc" well known for their alumni....

 

Depends on of coarse.

Not only.

Here, across the pond, we have decimal units
for both technical or architectural...

We do not use in inches for any discipline...



Cheers

 

So you want to get technical...

So I placed it in a context that I thought he could understand.

I knew it was units, but I'll just leave it like that.