Getting TEXT height value that is set in Text style dialog box

[RaghuMN]

Hi all,

When the text height is set for a text style in the 'Text style' dialog box, the 'Text height' is not prompted during the TEXT command.

This is a big problem when the TEXT is being put programatically; the program that contains a sentence like (COMMAND "TEXT" IPT 10 0 "ABCDEF") fails when the height in current style is set with 10 (example). Can any one suggest me how to find programatically if text height is set in text style dialog box?

 

[Jason Piercey]

(cdr (assoc 40 (entget (tblobjname "style" "TextstyleNameHere"))))

 

[DonB]

Using Jason's method...

 

Returns T if height is set.

 

(defun TextSizeSet
  (not
    (zerop
      (cdr
       (assoc 40
          (entget (tblobjname "style" (getvar "textstyle")))        )       )     )   )
)

 

Don

 

"RaghuMN" <> wrote:

Hi all,

When the text height is set for a text style in the 'Text style' dialog box, the 'Text height' is not prompted during the TEXT command.

This is a big problem when the TEXT is being put programatically; the program that contains a sentence like (COMMAND "TEXT" IPT 10 0 "ABCDEF") fails when the height in current style is set with 10 (example). Can any one suggest me how to find programatically if text height is set in text style dialog box?

 

[RaghuMN]

Thanks Jason and Don. That works fine.

MNRaghu