插入文本块的宏

Chad_bestmnf · 发表于 2022-7-6 12:29:40

首先，我对这一点很陌生，通过在谷歌上挖掘，我发现了其中的一些原因。所以你必须说得很慢。

我想制作一个宏来插入我创建的特定文本块。如果我能制作一个甚至可以让我插入信息来创建块的工具，那将是太好了，但现在我很高兴在插入块后编辑它。

我已经做得够多了，第一次尝试时它会插入我的块，但它也会打开autocad帮助。第二次尝试使用该命令时，它要么不起作用，要么重复上一个命令，要么打开CUI对话框。下面是我使用的宏。非常感谢您的任何建议。

Chad_bestmnf · 发表于 2022-7-6 12:35:40

copy

^c^c-insert;programstamp;

Lee Mac · 发表于 2022-7-6 12:39:18

首先，

欢迎来到CADTutor！我们希望你喜欢这里

您可以使用宏来自动执行此任务，但为什么不深入研究令人兴奋的LISP世界呢

该例程将更加健壮，您可以编辑属性/执行旋转/打断。。。这个清单是无穷无尽的

李

Chad_bestmnf · 发表于 2022-7-6 12:40:16

我完全赞成。唯一的问题是宏仍然在我头上10英尺左右，你能帮我理解lisp吗？在哪里插入该文本？

Lee Mac · 发表于 2022-7-6 12:43:10

如果您想学习LISP的基础知识，请查看以下几点：

http://www.cadtutor.net/forum/showthread.php?t=38760

http://www.cadtutor.net/forum/showthread.php?t=38734

http://www.afralisp.net/

http://www.jefferypsanders.com/autolisptut.html

http://ronleigh.info/autolisp/index.htm

http://midpointcad.com/au/docs/lakose_The_Visual_LISP_Developers_Bible.pdf

但为了让您开始，这可能是使用LISP插入块的最简单方法：

copy


(defun c:ins (/ blk iPt)
 (setq blk "programstamp") ;; Block Name
 (cond ((not (or (tblsearch "BLOCK" blk)
                 (setq blk (findfile (strcat blk ".dwg")))))
        (princ "\n** Block Not Found **"))
       ((setq iPt (getpoint "\nSelect Point for Block: "))
        (command "_.-insert" blk "_non" iPt 1. 1. 0.)))
 (princ))

注意：-这可以通过使用错误处理程序等在许多方面进行改进-但让我们从简单的事情开始

李

Glen Smith · 发表于 2022-7-6 12:46:25

欢迎来到CADTutor！

首先要知道的是，李会（也可能会）编写一个LISP例程来读懂他的心思，并直接输入他的图纸。

今天，让宏插入你的块肯定是你力所能及的，编写一个LISP来完成这项工作需要一些时间。

正确执行宏的最佳方法是通过键盘执行您试图（尽可能）自动执行的功能，完成后，打开Autocad文本窗口（点击F2）并查看您键入的内容。“Enter”键在宏中编码为分号您在宏中缺少其中一些。如果需要用户输入，可以通过键盘或鼠标点击插入点，使用“\”。

要获得特殊字符的完整列表，请在AutoCAD帮助中搜索“在宏中使用特殊控制字符”。

祝你好运，如果你需要更多帮助，请发邮件。

格伦