wimal Posted January 13, 2019 Share Posted January 13, 2019 When I use attached code to change current text height , it changing font type also as shown in the images. This mainly happen to font type Arial or Arial Narrow. For Font type Romans etc. no error happen. After file and cad close and reopen the error goes. (entmod (subst (cons 40 0) (assoc 40 (setq e (entget (tblobjname "STYLE" (getvar "TEXTSTYLE")))) ) e ) ) Quote Link to comment Share on other sites More sharing options...
wimal Posted January 13, 2019 Author Share Posted January 13, 2019 (vla-put-height (vla-get-activetextstyle (vla-get-activedocument (vlax-get-acad-object))) 0.0);set to zero Any how I moved to the above code given by the Lee Mac. Now no errors. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted January 13, 2019 Share Posted January 13, 2019 Glad to help! 1 Quote Link to comment Share on other sites More sharing options...
Roy_043 Posted January 13, 2019 Share Posted January 13, 2019 Maybe the original code fails because the new entity list does not include Xdata? Does this work?: (entmod (subst (cons 40 0) (assoc 40 (setq e (entget (tblobjname "STYLE" (getvar "TEXTSTYLE")) '("*"))) ) e ) ) 1 Quote Link to comment Share on other sites More sharing options...
wimal Posted January 14, 2019 Author Share Posted January 14, 2019 No still that error having with your code also.Thanks for the Idea. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.