lisp needed

[CadTechJGC184]

Hello all,

 

I'm looking for a lisp that deals with wipeout frames. What i want it to do is skip me having to manual type frames/on or off.I was hoping to get a lisp that when i type the lisp name it will turn the wipeout frames on or off. Like if the frames are off and I type WF they will turn on and the next time I type WF they turn off.

 

Any help?? Thanks in advance!!

[Lee Mac]

Something like this?

 

(defun c:wp ()
 (command "_wipeout" "_F")
 (cond (flag (command "_ON")  (setq flag nil))
       (T    (command "_OFF") (setq flag T)))
 (princ))

 

Not sure if the prompts have changed since '04 though...

[CadTechJGC184]

thank you LEE Mac,

 

It works great!!

[Lee Mac]

No probs dude

[CAB]

Another:

(defun c:wp ()
 (command "_tframes")
 (princ))

[Lee Mac]

Another:

(defun c:wp ()
 (command "_tframes")
 (princ))

 

haha - didn't know about that command - I need to play around with ACAD a lot more... :wink:

[CAB]

I learn something new just about every day.

 

And at my age I forget in a month or two so I can learn it all over again.