如何将这段lisp译成arx??请大师帮忙!!!
defun WipeOutFrames ( ZeroOrOne / valid data ss i )<br/>(cond<br/>( (and<br/>(member ZeroOrOne (setq valid '(0 1)))<br/>(setq data (DictSearch (NamedObjDict) "acad_wipeout_vars"))<br/>(null (eq ZeroOrOne (cdr (assoc 70 data))))<br/>)<br/>(entmod<br/>(subst<br/>(cons 70 ZeroOrOne)<br/>(assoc 70 data)<br/>data<br/>)<br/>)<br/>(if (setq i -1 ss (ssget "x" '((0 . "wipeout"))))<br/>(repeat (sslength ss)<br/>(entupd (ssname ss (setq i (1+ i))))<br/>)<br/>)<br/>)<br/>( (null (member ZeroOrOne valid))<br/>(princ "\nInvalid parameter value. Syntax:")<br/>(princ "\n (WipeOutFrames 0) to turn frames off.")<br/>(princ "\n (WipeOutFrames 1) to turn frames on.")<br/>)<br/>)<br/>(princ)<br/>)
页:
[1]