初学者宏帮助
大家好，我不久前偶然发现了这个网站，并在午休时经常浏览它。我会称自己是一个轻CAD用户，因为我做简单的2D制造图纸。我是一个狂热的魔兽世界玩家，刚刚开始为我的各种卡通制作宏。我想知道我是否可以为AutoCAD制作一些，事实证明你可以。
我完全迷路了——这就是我想要做的：
删除布局
切换回模型空间
锁层（始终称为过梁）
全选
擦除
清除（全部为是-不验证）
审核（是，修复所有错误）
当我把零件放在激光轮廓仪上时，我每天大约做20次。使用这个宏可以节省多达20分钟的时间。
谁能帮我解决这个问题吗。
问候Matt 首先，欢迎来到CADTutor，希望你喜欢这里
我将使用LISP或VBA来解决这个问题，而不是使用宏方法-它将使问题变得更简单，并且仍然可以达到预期的结果。
我看看能想出什么 很酷，谢谢你的快速反应。你似乎是这里的帮手！
:)
我不是专家（几乎是自学成才），但我可能能够在初学者论坛上提供帮助。
问候Matt 嗯，无论你能提供什么帮助，我相信我们都会很感激的
*几乎完成你的Lisp程序* 这应该可以做到：
(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
我尽了最大努力，我仍在学习诚实-我的视觉LISP知识是缺乏大的时间。。。但这里有这么多知识渊博、乐于助人的人，这让学习变得非常容易。 哇，谢谢你。这真是太快了。当我第一次发布时，我想可能需要几天才能收到回复。
我真的很感谢你的帮助！
问候Matt 没问题，马特，
希望一切都对你有用。如果您有任何进一步的疑问或问题，请告诉我；此外，如果您需要帮助保存、加载或运行LISP，FAQ可能是第一个查看的地方，如果您仍然感到困惑，请告诉我们。
干杯
李 这将需要几天的时间，除了李写了一个Lisp程序的例行程序，消除了他睡觉的必要性。一旦他完成了他的人机界面LISP和超相对论LISP，他实际上就可以在你想要求它之前编写LISP了。所以，当LISPs开始在你的绘图中随机打开时，一定要回到这里并感谢他。
哈哈，该死的你在盯着我。。。
页:
[1]
2