层Lisp问题
我有一个Lisp从李Mac，我想修改。我想有一个设置，让你选择它应该在哪一层。
我曾试着自己写点什么，但只想到了这个：
******************************************************************
(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)
******************************************************************
以及：
******************************************************************
(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程序现在是；
******************************************************************
http://lee-mac.com/lisp/html/LayerDirectorV1-4.html
******************************************************************
谢谢
附：看看李的Lisp程序！ 首先，作为李使用条款的一部分，他不希望其他人发布他的代码，而是希望他们有一个链接，请参阅以下链接：http://lee-mac.com/terms.html.李提供这些程序太棒了，所以请删除上面的代码。现在谈谈你的问题，最简单的方法是使用一个新的LISP例程，调用Lee程序的两个不同版本。拥有他的程序的两个不同副本（您需要重命名第二个副本中的函数）。然后在另一个LISP例程中调用这两个程序，该例程打开或关闭程序a、程序b。 谢谢野马队，我非常感谢你们的尊重和支持。
DesmetMartin，请参阅我对您通过我的网站发送的电子邮件查询的回复-我提供了我的图层控制器应用程序的原型版本，该应用程序包含VIEWDIR测试，以根据您的视图配置启用自动维度图层选择。
李 @支气管15；我立即改变了它，我不知道这是在李Mac的条款。我为此道歉。
@李·麦克；首先：感谢您的快速回复！
第二：我从你那里得到的回复是Viewdir。
但是，当你想要放置暗显时，有没有可能得到一个“问题”你想要哪一层，如果你按下一个数字，你就会得到你选择的层？
例如：
-->我得到了这个，但我找不到如何将其链接到图层。
谢谢
-德斯梅特马丁 还有人能帮我吗？
页:
[1]