布局lisp（编辑帮助）

lutcus · 发表于 2022-7-6 10:24:02

我发现这个Lisp程序。这很好。但有一点不舒服。。因为，当你从列表中选择你想要的布局时，你必须按下“OK”按钮。我想按两次（或一次）对布局的名称（不选择名称，并按确定按钮）是否可以编辑这个lisp？？。或者，也许有另一个更舒适的lisp来打开你想要的布局。。。

我的Lisp程序，我需要更改…：
布局-LK。lsp

lpseifert · 发表于 2022-7-6 10:29:20

你试过了吗？

Tiger · 发表于 2022-7-6 10:32:47

等等，点击两次而不是一次太难了？为什么不使用屏幕底部的布局按钮呢？

我建议你去Afralisp。如果你对你想要的东西那么挑剔的话，你可以自己学习写Lisps。

The Buzzard · 发表于 2022-7-6 10:34:42

首先，这个程序中有两个额外的右括号。因此，从一开始就行不通。
此外，你没有张贴dcl文件，那么有谁能帮助你。

copy


       ;;;--- If a layout was selected...
       (if selectedLayout
           ;;;--- Set the current layout
           (command "layout" "set" selectedLayout)
[color=red]         )[/color]
[color=red]       )  [/color]
     )
   )
 )

The Buzzard · 发表于 2022-7-6 10:37:46

我做了一些搜索，这个lisp实际上是调用布局。JefferyPSanders的lsp。通用域名格式

这是您要消除的警报吗？我注意到你的代码在两个额外括号所在的区域被修改了。
这是因为有人也删除了（progn）当它应该被保留在。

以下是JPS的代码，删除了警报，但保留了progn。
因此无需拆除支架。警报已消除。
命令语法：布局

我必须假设您提到的第二个OK是在您选择布局并单击对话框上的第一个OK后弹出的警报框。

这是您似乎已编辑的区域。

copy


       ;;;--- If a layout was selected...
       (if selectedLayout
[color=seagreen]          (progn                                ;You removed this when it should have been kept in.[/color]
           ;;;--- Set the current layout
           (command "layout" "set" selectedLayout)
           ;;;--- Inform the user
[color=magenta]          (alert (strcat "Current layout is --> " selectedLayout)) ; You want this removed I assume[/color]
         )
       )  
     )
   )
 )

这就是它应该看起来的样子。

copy


     ;;;--- If the user pressed the okay button
     (if(= ddiag 2)
       ;;;--- If a layout was selected...
       (if selectedLayout
         (progn
           ;;;--- Set the current layout
           (command "layout" "set" selectedLayout)
         )
       )  
     )
   )
 )