请求LISP帮助
大家好，我以前做过简单的Lisp程序，但我想我用这句话已经过头了。
我想更改为正确的图层，附着外部参照，更改回上一个图层，然后进行最大化。我得到了以下代码：
; This function attaches xref oncorrect layer
;
( DEFUN C:XRA
()
;(SETQ CURRENTLAYER (GETVAR"CLAYER"))
(SETVAR "CLAYER"
"g-anno-refr")
(initdia)
(command"._xref")
(princ)
;(SETVAR
"CLAYER" CURRENTLAYER)
)
设置层未设置为正常工作，因为它不工作。
我有一些其他的代码，但它根本不工作，所以我删除了它。
在工作中，每个人都忘记了为ref设置图层，我正在尝试解决这个问题。
非常感谢您的帮助。
吉姆·C。
AutoCad Civil 3D 2011 嗨，吉姆，欢迎来到CADTutor
你可能会对我的这个项目感兴趣：
http://lee-mac.com/layerdirector.html
当使用某些命令时，它将使用反应器自动设置正确的层（如果不存在该层，则创建该层），然后在使用该命令后重置该层。
这种方式意味着不需要覆盖内置命令，也不需要训练用户使用自定义命令。
李 谢谢李。。。。似乎就是我要找的。我该如何修改以使其只做我需要的事情？我不想付出太多而把事情搞砸。
我非常感谢你的帮助。
吉姆·C 嗨，吉姆，
只需将代码顶部的“LayerData”部分更改为：
(setq *LayerData*
'(
("*XATTACH" "g-anno-refr" 7)
)
)
（您也可以将“7”更改为图层的颜色）。 嗨，李，
我在试LayerDirector。lsp和我一直收到这个错误消息，错误出现在每个命令名上，无论是否在lsp中定义。
你知道我做错了什么吗？
谢谢
rkent公司 你好，rkent，
我刚刚在我的网站上测试了代码，我似乎无法复制您收到的错误；从错误消息判断，似乎在Visual LISP函数之间添加了一个空格，即（vl-load com）可能，因此（vl-被解释为函数本身。
您是否可以重新下载/重新加载程序以确认错误是否仍然存在？
干杯
李 李，
感谢您的帮助和快速回复。。。。。几天来，我一直在为此头痛。你帮了大忙。
吉姆·C
不客气，吉姆，很乐意帮忙 李，
我想让创建视口也这样做，但它不起作用。这是我的。
(setq *LayerData*
'(
("*XATTACH" "g-anno-refr" 7)
("_+vports"
"g-psvw" 251)
)
)
嗨，吉姆，
将其更改为：
并确保重新加载LISP函数以实现更改。
我应该在代码中的某个地方或在我的网站上提到命令应该大写。
页:
[1]
2