lisp程序设置典型
您好，我是lisp新手，我正在尝试创建一个lisp程序，它通过我的典型布局选项卡，设置要冻结或解冻的层。我想切换到每个布局选项卡并自动设置
1、设置为模型空间
2、解冻所需层
让第1层始终处于打开状态，以形成边界。
如果缺少布局选项卡，则跳过错误。
（setvar“ctab”“front elevation”）（命令“_.mspace”）（命令“vplayer”“f”“~1”“）（命令“vplayer”“thaw”“e”“）
（普林斯）
（setvar“ctab”“rear elevation”）（命令“_.mspace”）（命令“vlayer”“f”“~1”“）（命令“layer”“thaw”“er”“））
（普林斯）
（setvar“ctab”“right elevation”）（命令“_.mspace”）（命令“vlayer”“f”“~1”“）（命令“-layer”“thaw”“es”“））
（princ））（忽略错误）
这里有人能帮我开始吗？谢谢 下一个问题是，如何解冻多个层？
（defun c：测试为零
（如果（构件“前立面”（布局列表））；区分大小写
（程序
（setvar“ctab”“前立面图”）
（if（=（getvar“cvport”）1）（命令“_.mspace”））
（命令“_.vplayer”
“f”“~1”“”
“解冻”“e”“”“”）
))
（if（成员（strcase“REAR ELEVATION”）（mapcar的strcase（layoutlist）））；不区分大小写
（程序
（setvar“ctab”“后立面”）
（if（=（getvar“cvport”）1）（命令“_.mspace”））
（命令“_.vplayer”
“f”“~1”“”
“解冻”“er”“”“”）
))
（if（构件“右立面”（布局列表））
（程序
（setvar“ctab”“右立面”）
（if（=（getvar“cvport”）1）（命令“_.mspace”））
（命令“_.vplayer”
“f”“~1”“”
“解冻”“es”“”“”）
))
（if（成员“1楼平面图”（布局列表））
（程序
（setvar“ctab”“第一层平面图”）
（if（=（getvar“cvport”）1）（命令“_.mspace”））
（命令“_.vplayer”
“f”“~1”“”
解冻“0”
“解冻”“2”“”）
))
（setvar“ctab”“封面”）
（普林斯）
) 解冻多个解冻a*使用通配符选项*以
此外，解冻“0,2，a*”对于3+层是有效选项 http://www.lee-mac.com/steal.html
我只需要设置一次（就像模板系统一样），然后使用李·Mac的优秀程序。这就是我的办公室设置。
这就是我正在做的，建立一个模板系统。
我和布兰德相处得比较好。lsp，vs steal
（if（成员（strcase“REAR ELEVATION”）（mapcar的strcase（layoutlist）））；不区分大小写
（程序
（setvar“ctab”“后立面”）
（if（=（getvar“cvport”）1）（命令“_.mspace”））
（命令“_.vplayer”
“f”“~1”“”
“解冻”“er”“”“”）
（命令“-vports”“Lo”“on”“ALL”“”）
（命令“zoom”“e”）
))
布局选项卡视图的左角是否可能为0,0
在锁定和缩放范围之前，将图形缩放到3/16“=1”？ 当我缩放比例时，我仍然试图使视图端口的左下角保持在0,0。
（如果（成员“封面”（布局列表））；区分大小写
（程序
（setvar“ctab”“封面”）
（if（=（getvar“cvport”）1）（命令“_.mspace”））
（命令“_.vplayer”
“f”“~1”“”
“解冻”“封面”“”“”）
（命令“-vports“Lo”off“ALL”）
（命令“zoom”（strcat“1/48”“”“XP”）；=1/4“比例视口
（命令“-vports”“Lo”“on”“ALL”“”）
（命令“zoom”“e”）
))
页:
[1]