请求LISP帮助

rkent · 发表于 2022-7-6 08:39:39

李，

我使用的文本编辑器正在断开行，因此一些字符串被断开到下一行。现在一切都好了，非常感谢你的持续慷慨。

我将尝试使其适用于外部参照，但如果我无法理解，我可能会回来。明白了，我用了“*XATT*”。

rkent公司

JWC · 发表于 2022-7-6 08:43:21

再次感谢李。。。。这正是我想要的。。。。希望我能更好地理解LISP的写作。

吉姆·C

Tharwat · 发表于 2022-7-6 08:44:22

它在这里工作得很好，并且非常平滑地创建层。

李，我应该从反应堆开始吗？

谢谢

Lee Mac · 发表于 2022-7-6 08:47:43

太好了，很高兴听到你现在工作了。如果你需要更多帮助，请大声说

好东西，吉姆，不客气-当你不必担心设置正确的图层时，它肯定会使绘图更加一致

谢谢你测试Tharwat

反应器被认为是Visual LISP的一个更高级的领域，因为您必须确保您的编码坚如磐石，并考虑到每一种可能的情况。也许可以看看theSwamp上的这个帖子：

http://www.theswamp.org/index.php?topic=39052

JWC · 发表于 2022-7-6 08:53:15

李，
有没有办法使其仅在外部参照附件上进行最大化显示？如果是这样，这将是一个完美的我需要的。它仍然很棒。再次感谢你的帮助。

吉姆·C。

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

当然，在原始代码的第123行，添加以下内容：

copy

      (if (wcmatch (strcase (car params)) "*XATTACH")
         (vla-zoomextents (vlax-get-acad-object))
     )

因此，该部分如下所示：

copy

    (progn
     (setvar 'CLAYER *oldlayer*)
     (setq *oldlayer* nil)
     (if (wcmatch (strcase (car params)) "*XATTACH")
         (vla-zoomextents (vlax-get-acad-object))
     )
   )

Lee Mac · 发表于 2022-7-6 08:57:10

对不起，您是指附加外部参照之前还是之后？

我上面的mod假设之后。

JWC · 发表于 2022-7-6 09:00:55

对不起，李。。。。附着外部参照后，我希望将其最大化。

谢谢
吉姆·C。

JWC · 发表于 2022-7-6 09:04:18

李，
我在添加后出错。

copy


(defun LayerDirectorReset ( reactor params ) (vl-load-com)
 (if
   (and (not (wcmatch (strcase (car params)) "*UNDO")) *oldlayer* (tblsearch "LAYER" *oldlayer*)
     (zerop
       (logand 1
         (cdr
           (assoc 70
             (tblsearch "LAYER" *oldlayer*)
           )
         )
       )
     )
   )
   (progn
     (setvar 'CLAYER *oldlayer*)
     (setq *oldlayer* nil)
     (if (wcmatch (strcase (car params)) "*XATTACH")
         (vla-zoomextents (vlax-get-acad-object))
     )
   )
)

Lee Mac · 发表于 2022-7-6 09:07:36

您缺少了函数的最后一部分-格式也有什么变化？

以下是替换功能：

copy

[编程交流] 请求LISP帮助

发表回复

精选推荐