topic Re: Routine for modifying multiple Text Styles and their settings in a .dwg in Visual LISP, AutoLISP and General Customization Forum

Routine for modifying multiple Text Styles and their settings in a .dwg

Anonymous — Fri, 30 Dec 2022 22:44:53 GMT

I'm trying to write a routine that modifies all the Text Styles in a .dwg file by changing the SHX Font to "romans.shx", the Big Font to "special.shx". the Height to "0", and the Width Factor to "0.75".

The string I've written appears to work but the Text Style settings revert to their previous state after saving, closing, and reopening the .dwg.

What am I doing wrong?

Thanks.

(defun c:styles2one (/ styl)

(while (setq styl (tblnext "STYLE" (not styl)))

(setq styl (entget (tblobjname "STYLE" (cdr (assoc 2 styl)))))

(entmod (subst (cons 3 "RomanS") (assoc 3 styl) styl))

(entmod (subst (cons 4 "special") (assoc 4 styl) styl))

(entmod (subst (cons 40 0) (assoc 40 styl) styl))

(entmod (subst (cons 41 0.75) (assoc 41 styl) styl))

(command ".regen")

(princ))

)

Re: Routine for modifying multiple Text Styles and their settings in a .dwg

paullimapa — Fri, 30 Dec 2022 23:15:42 GMT

you forgot to place (setq styl in front each time you run entmod

(setq styl (entmod (subst (cons 3 "RomanS") (assoc 3 styl) styl)))

(setq styl (entmod (subst (cons 4 "special") (assoc 4 styl) styl)))

(setq styl (entmod (subst (cons 40 0) (assoc 40 styl) styl)))

(setq styl (entmod (subst (cons 41 0.75) (assoc 41 styl) styl))

Re: Routine for modifying multiple Text Styles and their settings in a .dwg

Sea-Haven — Sun, 01 Jan 2023 07:43:08 GMT

Not sure is entupd relevant here ?

Re: Routine for modifying multiple Text Styles and their settings in a .dwg

Anonymous — Tue, 03 Jan 2023 15:38:08 GMT

Thank you. I've updated to include that command in each line as you suggest. I'm still seeing Styles revert to Truetype fonts though all the other settings seem to change correctly.

Re: Routine for modifying multiple Text Styles and their settings in a .dwg

paullimapa — Tue, 03 Jan 2023 15:41:36 GMT

Post sample dwg with the text styles

Re: Routine for modifying multiple Text Styles and their settings in a .dwg

Anonymous — Tue, 03 Jan 2023 15:43:45 GMT

I don't think so, I mean I'm running regen at the end. Everything looks correct then I save and reopen the file and all the TTFs are back. Anyone?

Re: Routine for modifying multiple Text Styles and their settings in a .dwg

Anonymous — Tue, 03 Jan 2023 16:41:20 GMT

I copied in some code another person wrote for a similar problem, made a couple tweaks and it seems to work. From what I can interpret these extended AL functions do something to the file path of something so the font can be found, or saved; I don't know. I'm not going to act like I fully understand all these functions so any critiques are welcome.

(defun c:styles2one (/ styl)

(while (setq styl (tblnext "STYLE" (not styl)))

(setq styl (entget (tblobjname "STYLE" (cdr (assoc 2 styl)))))

(setq styl (entmod (subst (cons 3 "RomanS") (assoc 3 styl) styl)))

(setq styl (entmod (subst (cons 4 "special") (assoc 4 styl) styl)))

(setq styl (entmod (subst (cons 40 0) (assoc 40 styl) styl)))

(setq styl (entmod (subst (cons 41 0.75) (assoc 41 styl) styl)))

)

(vl-load-com)

(setq doc (vla-get-activedocument (vlax-get-acad-object)))

(setq FntPth (findfile "ROMANS.shx"))

(setq sty (vla-get-textstyles doc))

(vlax-for s sty (vla-put-fontfile s FntPth))

(if (ssget "X" '((0 . "text"))) (vlax-for n (vla-get-activeselectionset doc))

)

(command ".regen")

(princ)

)

Re: Routine for modifying multiple Text Styles and their settings in a .dwg

Anonymous — Tue, 03 Jan 2023 16:40:15 GMT

example file attached.

Re: Routine for modifying multiple Text Styles and their settings in a .dwg

paullimapa — Tue, 03 Jan 2023 22:36:05 GMT

since the visual lisp functions work, then just use that for both Romans.shx & special.shx:

(defun c:styles2one (/ doc FntPth FntPthB sty) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq sty (vla-get-textstyles doc)) (if (setq FntPth (findfile "ROMANS.shx")) (vlax-for s sty (vla-put-fontfile s FntPth)) ) (if (setq FntPthB (findfile "special.shx")) (vlax-for s sty (vla-put-Bigfontfile s FntPthB)) ) (vlax-for s sty (vla-put-Width s 0.75)) (vlax-for s sty (vla-put-Height s 0.0)) ;;;(if (ssget "X" '((0 . "text"))) (vlax-for n (vla-get-activeselectionset doc))) (command "_.Regen") (princ) )