lisp程序设置典型

pennkraft · 发表于 2022-7-5 17:31:27

您好，我是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））（忽略错误）

这里有人能帮我开始吗？谢谢

pennkraft · 发表于 2022-7-5 17:49:28

下一个问题是，如何解冻多个层？

（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”“封面”）

（普林斯）
)

BIGAL · 发表于 2022-7-5 17:58:41

解冻多个解冻a*使用通配符选项*以

此外，解冻“0,2，a*”对于3+层是有效选项

iconeo · 发表于 2022-7-5 18:08:10

http://www.lee-mac.com/steal.html

我只需要设置一次（就像模板系统一样），然后使用李·Mac的优秀程序。这就是我的办公室设置。

pennkraft · 发表于 2022-7-5 18:28:53

这就是我正在做的，建立一个模板系统。

我和布兰德相处得比较好。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”？

pennkraft · 发表于 2022-7-5 18:36:22

当我缩放比例时，我仍然试图使视图端口的左下角保持在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”）
))

[编程交流] lisp程序设置典型

发表回复

精选推荐