[ARX程序]：谁能把这段ＬＩＳＰ译成ＡＲＸ啊？？求各位大师了

291118 · 发表于 2009-6-28 21:59:19

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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)
)

luowy · 发表于 2009-7-16 20:17:08

就是关闭光栅的代码么？
不麻烦的

longer1000 · 发表于 2009-7-22 11:07:06

牛人哦都是

账号		自动登录	找回密码
密码			立即注册

[ARX程序]：谁能把这段ＬＩＳＰ译成ＡＲＸ啊？？求各位大师了

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子