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