Author Topic: Select and Change all Background Masks  (Read 1657 times)

0 Members and 1 Guest are viewing this topic.

tcdan

  • Guest
Select and Change all Background Masks
« on: June 27, 2005, 04:10:43 PM »
To distinguish text from the images they are placed over, I like using background masks. . . however, I need to change the border offset factor for ALL of my text boxes at once.  I don't think there is a command to change the variable for background masks - perhaps there is a way to do this with a LISP.

David Hall

  • Automatic Duh Generator
  • King Gator
  • Posts: 4076
Select and Change all Background Masks
« Reply #1 on: June 27, 2005, 05:28:20 PM »
i have some code to get you started.
Everyone has a photographic memory, Some just don't have film.
They say money can't buy happiness, but it can buy Bacon and that's a close second.
Sometimes the question is more important than the answer. (Thanks Kerry for reminding me)

David Hall

  • Automatic Duh Generator
  • King Gator
  • Posts: 4076
Select and Change all Background Masks
« Reply #2 on: June 27, 2005, 05:29:39 PM »
Code: [Select]
(defun wiper ()
  (if (ssget "x" '((0 . "WIPEOUT")))
    (progn
      (imback)
      (COMMAND "_.wipeout" "_f" "_ON")
      (COMMAND "-LAYER" "m" "WIPEOUT" "c" "RED" "WIPEOUT" "")
      (setq ss1 (ssget "x" '((0 . "WIPEOUT"))))
      (COMMAND "_CHANGE" "p" "" "p" "la" "WIPEOUT" "")
      (setq ss1   (ssget "x" '((0 . "WIPEOUT")))
   SS1LEN (sslength SS1)
   ENT1   T
   COUNT  0
      )
;COUNT 0   )
      (REPEAT SS1LEN
(setq ent1 (ssname ss1 COUNT))
(COMMAND "_IREGFROMVEC" ENT1)
(SETQ COUNT (1+ COUNT))
      )
      (SETQ SS1REMS (ssget "x" '((0 . "AECIDBREMPOLYREG"))))
      (COMMAND "ERASE" SS1REMS "")
      (setq ss1 (ssget "x" '((0 . "WIPEOUT"))))
      (COMMAND "ERASE" SS1 "")
    )
  )
)
Everyone has a photographic memory, Some just don't have film.
They say money can't buy happiness, but it can buy Bacon and that's a close second.
Sometimes the question is more important than the answer. (Thanks Kerry for reminding me)