Change all Text

[Hunter]

Hi Lee, it's wonderful~

Is it possible that the user can selecet the textstyle from dialogue box and keyin to decide the height?

 

Much appreciate~

 

For instance to change all text and mtext to Verdana with height 4.5:

 

(defun txtchng (sNme Ht / ss)
 (vl-load-com)
 (if (and (tblsearch "STYLE" sNme)
      (setq ss (ssget "X" (list (cons 0 "TEXT,MTEXT")
            (if (getvar "CTAB")(cons 410 (getvar "CTAB"))
               (cons 67 (- 1 (getvar "TILEMODE"))))))))
   (progn
     (setq ss (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
     (foreach e ss    
       (entmod (subst (cons 7 sNme) (assoc 7 e) (subst (cons 40 Ht) (assoc 40 e) e)))))
   (princ "\n<!> No Text Found or Verdana Style Doesn't Exist <!>"))
 (princ))

(defun c:test ()
 (txtchng "VERDANA" 4.5)
 (princ))

[Lee Mac]

A Dialog Box eh... that may take slightly longer...

[Lee Mac]

Perhaps something like this?

 

Make sure you put the DCL in ACAD search path and run LISP as normal.

TextChanger.zip

[Lee Mac]

Sorry, posted too soon as usual.... here is better:

 

Type TXCH to run.

Text Changer.zip

[CAB]

To answer your question to me.

(defun txtchng (sNme Ht / ss elst_list lst)
 (vl-load-com)
 (if (and (tblsearch "STYLE" sNme)
          (setq ss (ssget "X"
                          (list (cons 0 "TEXT,MTEXT")
                                (if (getvar "CTAB")
                                  (cons 410 (getvar "CTAB"))
                                  (cons 67 (- 1 (getvar "TILEMODE")))
                                ))))
     )
   (progn
     ;; (vl-remove-if 'listp  is only needed when the user selects the ss
     ;; so when not using window to get the ss, don't need to use it
     ;; although its only penalty for using it is time 
     (setq elst_list (mapcar 'entget (mapcar 'cadr (ssnamex ss))))
     (foreach lst elst_list
       (mapcar '(lambda (new old) (setq lst (subst new old lst)))
               (list (cons 7 sNme)(cons 40 Ht))
               (list (assoc 7 e)(assoc 40 e))
       )
       (entmod lst)
     )
   )
   (princ "\n<!> No Text Found or Verdana Style Doesn't Exist <!>")
 )
 (princ)
)

[Lee Mac]

Ahh, yes - thanks CAB for the advice.

 

I didn't think a lambda function was needed, as I provided the subst with the arguments it needed in LISP form, but obviously this is a better way to do it.

 

Thanks once again

 

Lee

[CAB]

The problem is using subst which requires 3 arguments.

Using Mapcar without lambda does not lend itself to this application.

[Lee Mac]

I see, just need to choose the correct tool for the job

 

Thanks CAB.

[Hunter]

Thanks Lee~

It's marvelous!

 

Would u please tell me how to add ACAD search path?

It seems to be work only when I put the DCL in C:\Program Files\AutoCAD 2006\Support .

 

Regards~

 

Perhaps something like this?

 

Make sure you put the DCL in ACAD search path and run LISP as normal.

[Hunter]

forgiev my ignorance, I find the answer here:

 

 

http :discussion.autodesk.com/forums/message.jspa?messageID=5533620

 

Go to:

 

Options

Files tab

Support Files Search Path

Add

Browse (select the folder where you installed the program.

 

Re-Load and Re-Run the program and it should work.

 

Thanks Lee~

It's marvelous!

 

Would u please tell me how to add ACAD search path?

It seems to be work only when I put the DCL in C:\Program Files\AutoCAD 2006\Support .

 

Regards~

[Lee Mac]

No worries, glad you like it

 

I normally have a folder in my docs entitled "ACAD Search Path", and locate this in ACAD - then I can quickly just dump dcls and lsps in there with ease.

 

Glad you like it - if you have any further questions, just ask

 

Cheers

 

Lee