Topic: MTEXT Background mask

[hudster]

Does anyone have a lisp to remove background masks from mtext?

I need to remove them because our clients printer prints huge black squares over each mask.

[Guest]

Just select all of your MText and turn off the background mask from the properties dialog box.

[ronjonp]

Or if they are wipeouts, use this:

Code: [Select]

(defun c:bye-wipeouts (/ ss)
  (if (setq ss (ssget "_X" '((0 . "WIPEOUT"))))
    (mapcar '(lambda (x)
       (vla-delete
(vlax-ename->vla-object x)
       )
     )
    (mapcar 'cadr (ssnamex ss))
    )
  )
  (princ)
)

[hudster]

Just select all of your MText and turn off the background mask from the properties dialog box.

That's what i am doing, but i need to process 200 drawings by 5 o'clock, it's 3 now and getting frantic.

[Guest]

http://hyperpics.com/tools/maskextension/help/index.asp

I haven't tried it, but it looks like you could script something and using Lee's tool, remove all of the background masking.

[ronjonp]

Just select all of your MText and turn off the background mask from the properties dialog box.

That's what i am doing, but i need to process 200 drawings by 5 o'clock, it's 3 now and getting frantic.

You could run this in a script:

Code: [Select]

(defun c:maskoff (/ ss)
  (if (setq ss (ssget "_X" '((0 . "MTEXT"))))
    (mapcar '(lambda (x)
       (vla-put-backgroundfill
(vlax-ename->vla-object x)
:vlax-false
       )
     )
    (mapcar 'cadr (ssnamex ss))
    )
  )
  (princ)
)

[hudster]

Cheers, scripting as we speak.

[ronjonp]

Cheers, scripting as we speak.

You tested it first before scripting right? 

[hudster]

On a few yes. why?

[ronjonp]

Just making sure...don't want you to run a lisp I created on 200 drawings and find out everything is toast afterwards.