在你的问题之后也尝试了appload。 我很确定我加载正确。
http://i.imgur.com/ocvkDLE.png 正确的方法之一如下:
将代码保存为您想要的任何名称,但最好使用与lisp命令相同的名称和扩展名进行保存。lsp
然后从autocad调用命令appload以加载lisp文件,然后从提示的对话框中加载,然后将其关闭。
最后键入on-off调用lisp函数。
注意:你应该有以h开头的层,正如你在第一篇文章中要求的那样。
现在让我来。
你确定你在那张图上有前面提到的图层吗?
如果可以,请上载样例图形。 也许就这么简单
(defun c:test nil
(if (zerop
(setvar "useri1"
(Boole 6 (getvar "useri1") 1)
)
)
(command "_.-layer" "off" "H-*" "")
(command "_.-layer" "on" "H-*" "")
)
) 谢谢你给我的提示。
以下是图纸示例:
pBe,你的代码有效!我对此非常满意。不过你介意解释一下吗?
(defun c:测试零(if(zerop; 当然
(defun c:测试零(if(zerop; 我的程序对你们不起作用,因为你们想要切换的层的前缀是以大写字母开始的,而不是你们在第一篇帖子中要求的小写字母。
在我的例程中,将前缀从h改为h,它应该可以工作。 啊,我真傻。
我没有注意到这个案例,因为autoCAD通常不特别处理案例。E、 g.在find命令期间。
我会猜到这是我方面的愚蠢错误。
无论如何,我向你道歉,再次感谢你的帮助。
没关系。
页:
1
[2]