初学者宏帮助

matma7 · 发表于 2022-7-6 15:56:58

大家好，
我不久前偶然发现了这个网站，并在午休时经常浏览它。我会称自己是一个轻CAD用户，因为我做简单的2D制造图纸。我是一个狂热的魔兽世界玩家，刚刚开始为我的各种卡通制作宏。我想知道我是否可以为AutoCAD制作一些，事实证明你可以。
我完全迷路了——这就是我想要做的：
删除布局
切换回模型空间
锁层（始终称为过梁）
全选
擦除
清除（全部为是-不验证）
审核（是，修复所有错误）
当我把零件放在激光轮廓仪上时，我每天大约做20次。使用这个宏可以节省多达20分钟的时间。
谁能帮我解决这个问题吗。
问候Matt

Lee Mac · 发表于 2022-7-6 16:01:47

首先，欢迎来到CADTutor，希望你喜欢这里

我将使用LISP或VBA来解决这个问题，而不是使用宏方法-它将使问题变得更简单，并且仍然可以达到预期的结果。

我看看能想出什么

matma7 · 发表于 2022-7-6 16:04:35

很酷，谢谢你的快速反应。你似乎是这里的帮手！

:)

我不是专家（几乎是自学成才），但我可能能够在初学者论坛上提供帮助。

问候Matt

Lee Mac · 发表于 2022-7-6 16:06:53

嗯，无论你能提供什么帮助，我相信我们都会很感激的

*几乎完成你的Lisp程序*

Lee Mac · 发表于 2022-7-6 16:12:45

这应该可以做到：

copy


(defun c:ea () (c:erase_all)) ; Program Shortcut
(defun c:erase_all (/ *error* varlist oldvars laylist ss)
   (defun *error* (msg) ; Error Trap
   (mapcar 'setvar varlist oldvars)
   (if (= msg "")
       (princ "\nFunction Complete.")
       (princ "\nError or Esc Pressed...")
   ) ;_  end if
   (princ)
   ) ;_  end defun
   (setq varlist (list "CMDECHO" "CTAB" "CLAYER")
     oldvars (mapcar 'getvar varlist)
   ) ;_  end setq
   (setvar "cmdecho" 0)
   (if    (not (tblsearch "LAYER" "LINTEL"))
   (command "-layer" "M" "LINTEL" "")
   ) ;_  end if
   (setq laylist (layoutlist))
   (foreach x laylist
   (command "-layout" "D" x)
   ) ;_  end foreach
   (setvar "ctab" "MODEL")
   (command "-layer" "LO" "LINTEL" "")
   (setq ss (ssget "X" (list (cons 410 "MODEL"))))
   (command "_erase" ss "")
   (command "-purge" "A" "*" "N")
   (command "_audit" "Y")
   (*error* "") ; Force error to reset variables.
   (princ)
) ;_  end defun