乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 13|回复： 0

如何将这段lisp译成arx??请大师帮忙!!!

[复制链接]
291118

2

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
14
发表于 2009-6-28 22:05:00 | 显示全部楼层 |阅读模式
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)
)
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-2-6 00:58 , Processed in 0.339650 second(s), 54 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表