Topic: change the text height of the Current text style

[Humbertogo]

how can i change the text height of the Current text style lisp
at the begging of the function and put it bak at the end
like a variable

[T.Willey]

how can i change the text height of the Current text style lisp
at the begging of the function and put it bak at the end
like a variable

Grab the text style definition, either with 'tblobjname' or get the style collection (ActiveX).  Then just save the old height, and set it to 0.0, then after put it back.

[ronjonp]

Something like this:

Code: [Select]

(if (setq sty (tblobjname "style" "stylename"))
  (progn
    (setq sty (vlax-ename->vla-object sty))
    (vlax-get-property sty 'height)
    (vlax-put-property sty 'height 0.0)
  )
)


[Humbertogo]

Thanks