关于“编程”t的问题

MarcoW · 发表于 2022-7-6 11:28:37

大家好，

我知道工具选项板应该用最少的编程技巧创建。我同意这一点，我确实是这样创造的。

然而我使用了许多由宏启动的方便例程（当单击工具选项板上的按钮时）。有些宏非常长。我们中的一些人会说，这不是这样做的方式，但可以。

要使工具选项板工作，需要做大量的工作来复制和粘贴所有内容，如图像、命令、宏等。

在我的情况下，我一直在使用*。mnu文件已保存很长时间。即使现在我仍然使用它们。大多数宏来自这些文件。我已经做过一次了，现在仍然很有用。

修改*时。mnu文件我用记事本做。我可以到处走动。这是一种在记事本中快速修改一个或多个宏的方法。考虑复制/粘贴/查找文本/替换文本等选项。

现在我想知道工具选项板是否可以以同样的方式制作/修改？有人有这方面的经验吗？

如果我打开*。atc文件（调色板文件）我看到了一些代码，但我不知道它是什么，PHP等等。。。

欢迎提供任何提示/头脑风暴。

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

工具栏可以通过VL进行操作，您可以添加按钮和分隔符，修改宏/位图等

作为一个快速示例，您可以使用以下内容检索工具栏项的宏：

copy


(defun GetMacros (tNme / lst)
 (vl-load-com)
 (vlax-for Men (vla-get-MenuGroups
                 (vlax-get-acad-object))
   
   (vlax-for tObj (vla-get-Toolbars Men)
     (if (eq tNme (vla-get-Name tObj))        
       (vlax-for bObj tObj
         (setq lst (cons (vla-get-Macro bObj) lst))))))
 
 (vl-remove "" (reverse lst)))
(defun c:test nil
 (princ
   (vl-princ-to-string
     (GetMacros "Object Snap")))
 (princ))