请求LISP帮助

JWC · 发表于 2022-7-6 08:06:04

大家好，

我以前做过简单的Lisp程序，但我想我用这句话已经过头了。

我想更改为正确的图层，附着外部参照，更改回上一个图层，然后进行最大化。我得到了以下代码：

; This function attaches xref on  correct 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

Lee Mac · 发表于 2022-7-6 08:11:56

嗨，吉姆，欢迎来到CADTutor

你可能会对我的这个项目感兴趣：

http://lee-mac.com/layerdirector.html

当使用某些命令时，它将使用反应器自动设置正确的层（如果不存在该层，则创建该层），然后在使用该命令后重置该层。

这种方式意味着不需要覆盖内置命令，也不需要训练用户使用自定义命令。

李

JWC · 发表于 2022-7-6 08:13:07

谢谢李。。。。似乎就是我要找的。我该如何修改以使其只做我需要的事情？我不想付出太多而把事情搞砸。

我非常感谢你的帮助。

吉姆·C

Lee Mac · 发表于 2022-7-6 08:18:14

嗨，吉姆，

只需将代码顶部的“LayerData”部分更改为：

copy

  (setq *LayerData*
  '(
     ("*XATTACH" "g-anno-refr" 7)
   )
 )

（您也可以将“7”更改为图层的颜色）。

rkent · 发表于 2022-7-6 08:20:05

嗨，李，

我在试LayerDirector。lsp和我一直收到这个错误消息，错误出现在每个命令名上，无论是否在lsp中定义。

你知道我做错了什么吗？

谢谢
rkent公司

Lee Mac · 发表于 2022-7-6 08:22:31

你好，rkent，

我刚刚在我的网站上测试了代码，我似乎无法复制您收到的错误；从错误消息判断，似乎在Visual LISP函数之间添加了一个空格，即（vl-load com）可能，因此（vl-被解释为函数本身。

您是否可以重新下载/重新加载程序以确认错误是否仍然存在？

干杯

李

JWC · 发表于 2022-7-6 08:27:28

李，
感谢您的帮助和快速回复。。。。。几天来，我一直在为此头痛。你帮了大忙。

吉姆·C

Lee Mac · 发表于 2022-7-6 08:29:38

不客气，吉姆，很乐意帮忙

JWC · 发表于 2022-7-6 08:31:44

李，
我想让创建视口也这样做，但它不起作用。这是我的。

copy


(setq *LayerData*
  '(
     
("*XATTACH" "g-anno-refr" 7)
     ("_+vports" 
"g-psvw" 251)
   )
 )

Lee Mac · 发表于 2022-7-6 08:35:15

嗨，吉姆，

将其更改为：

并确保重新加载LISP函数以实现更改。

我应该在代码中的某个地方或在我的网站上提到命令应该大写。

[编程交流] 请求LISP帮助

发表回复

精选推荐