Name of Text and Dimension's STYLE

It can be zero for an Annotative Style perhaps.

wooo no.

the text height for the style is included in (42 . 0.2) that's odd.

Not in (40 . 0.2)

Look at what DXF 42 is:

http://autodesk.com/techpubs/autocad/acad2000/dxf/style_dxf_04.htm

Mr. Renderman.

 

You have forgotten to add (vl-load-com).

 

And your routine can not help me as a part to be added to mine. I wonder why.

 

Last thing. Should I include that big defun to get only the height of a text style ?

 

Thanks

Yes, you're right. I add (vl-load-com) to my ACADDOC.lsp so that I do not have to add it to every routine. You and others may not, so I should be sure to include it for your benefit.

The first routine I provided you cannot be added to your routine as written. I've added a sub-function CURTXTHGT to my prior post for your use. I neglected to add it, as you did not specify that that was your intention in your earlier request.

Lastly, no. As Lee stated, this could be added as a sub-function, for example:

(defun c:TEST (/ txtHgt)
 (vl-load-com)
 ;...
 (setq txtHgt (CURTXTHGT))
 ;...
 (princ))

Something like this...

(defun GetTextStyleHeight ( Style )
 ;; © Lee Mac 2010

 (if (setq style (tblsearch "STYLE" style))
   (cdr
     (assoc
       (if (zerop (cdr (assoc 40 style))) 42 40) style
     )
   )
 )
)

Waw. Now I got your point with the previous codes.

It seems that you have tested if the user fixed the height and would return to 42.

Amazing .

Sorry for not understanding from the first time. LEE.

Sweety

Sorry for not understanding from the first time. LEE.

Don't be sorry - you are not expected to understand everything the first time