Multileader Text Lisp

[kamig]

hello every one on this site,

 

 

my name is kamran saleem from ksa i am Mechanical Draftsman i need your help to edit the text i have more then 20 or 30 drawing and there is text is Multileader i want Rchange the text hight how can i?

 

 

 

please help me regrading this.

[Lee Mac]

Not too difficult

 

(defun c:mlhgt (/ ss hgt)
 (vl-load-com)
 (if (and (setq ss (ssget "_X" '((0 . "MULTILEADER"))))
          (setq hgt (getdist "\nSpecify New Height: ")))
   (mapcar
     (function
       (lambda (x)
         (vla-put-TextHeight x hgt)))
     (mapcar 'vlax-ename->vla-object
       (mapcar 'cadr (ssnamex ss))))
   (princ "\n<< No MLEADERs in Drawing >>"))
 (princ))

[kamig]

dear,

Lee Mac can you give me lisp file for this code because i don't know how to make lisp file if you don't mind please thanks,

 

or do one think tell me how to make lisp file with this code or how can i use this code please, i am realy thank full to you,

[Lee Mac]

Just copy the code into a new Notepad document, and save it as .lsp where the filename can be anything you choose.

 

Make sure that the "Save as Type" box is set to "All Files".

 

Then load and run the LISP as normal.

More info can be found here.

 

Lee

[kamig]

thanks dear realy vary thank

[Lee Mac]

thanks dear realy vary thank

 

No probs mate

[kamig]

Hello Lee Mac,

 

 

i Attached that drawing with this i can't do that what you told me with lisp file and 2nd this i can't remove the leyer from this dwg. can you explain me regarding layer and text.

SH-MH-203.dwg

[Lee Mac]

You can't operate the LISP file?