TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: w64bit on May 22, 2021, 05:58:12 AM

Title: Set all text styles and dim styles to be non-annotative
Post by: w64bit on May 22, 2021, 05:58:12 AM

I want to set all text styles and dimension styles to be non-annotative.
For dimension styles I have a code (IT'S NOT OK because it sets all dimensions on the last dim style):

Code: [Select]

(while (setq tbl (tblnext "style" (not tbl)))
(command "._style" "_ANnotative" "_No" (cdr (assoc '2 tbl)) "_Yes" "" (cdr (assoc '2 tbl))))
If this issue can be fixed I am looking also for something similar for text styles.