层Lisp问题

DesmetMartin · 发表于 2022-7-5 17:44:31

我有一个Lisp从李Mac，我想修改。

我想有一个设置，让你选择它应该在哪一层。
我曾试着自己写点什么，但只想到了这个：
******************************************************************

copy

(setq TASH (getint "\nChoose dimensions layer: Dim. (1), Front view (2)"))
 ); end while
   
   ); progn
 );TASH = 1, Dim
 (if (= TASH 1 )
   (progn
     ; S-Dimensions
       (command "DIM*"                                       "S-DIMENSIONS"   "Dimension Layer"              3        "Continuous"           -3                 1                   nil         )
   ); progn
 ); if (= TAMR 1)

******************************************************************
以及：

******************************************************************

copy

(defun CommandReactor:CommandWillStart (rea cmd)
 (if (wcmatch (strcase (car cmd)) "*DIM*")
           (progn
                     (setq *OldClayer* (getvar 'clayer))
                             (vla-add
                        (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
                                (setq TASH (getint "\nChoose dimensions layer: Dim. (1), Front view (2)"))
                                                 ); end while
     (setvar 'clayer layerName)
   )
 )
)

******************************************************************
但我不知道是不是要把它放在李·麦克现有的嘴边。
有人能帮忙吗？

李的Lisp程序现在是；
******************************************************************

copy


http://lee-mac.com/lisp/html/LayerDirectorV1-4.html

******************************************************************
谢谢

附：看看李的Lisp程序！

broncos15 · 发表于 2022-7-5 18:07:31

首先，作为李使用条款的一部分，他不希望其他人发布他的代码，而是希望他们有一个链接，请参阅以下链接：http://lee-mac.com/terms.html.李提供这些程序太棒了，所以请删除上面的代码。现在谈谈你的问题，最简单的方法是使用一个新的LISP例程，调用Lee程序的两个不同版本。拥有他的程序的两个不同副本（您需要重命名第二个副本中的函数）。然后在另一个LISP例程中调用这两个程序，该例程打开或关闭程序a、程序b。