社区 › Auto Lisp › 请求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行，添加以下内容：
 
      (if (wcmatch (strcase (car params)) "*XATTACH")
         (vla-zoomextents (vlax-get-acad-object))
   )
 
因此，该部分如下所示：
 
    (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

李，
我在添加后出错。
 

(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

您缺少了函数的最后一部分-格式也有什么变化？
 
以下是替换功能：
 
7

查看完整版本: 请求LISP帮助