结构小站 | 录制宏 – 钢构人，钢结构知识宝库

我们知道excel中，如果遇到需要经常重复的操作，可以通过录制宏来完成这些重复的操作。如下图所示。

那么在cad中是不是也可以参考excel，把重复的操作录制成一个宏命令尼？

利用本文这个工具是完全可以实现的，我们先看演示效果。

加载本工具后，首先输入命令”SS”开始录制命令，这时就可以开始我们正常的操作命令，例如写文字，画线，画圆，绘制云线，移动，复制等等操作，完成我们所需要的录制命令后，再一次输入”SS”结束录制。

这时就会弹出一个文本框，记录了我们操作了过程，只要把这个文件另存成lsp文件，再加载进来就可以重复刚刚的操作了。

录制的操作命令如下所示，默认命令是test，可以自己修改。

(defun c:test( / )；默认命令

;----系统变量备份----
(setvar "cmdecho" 0);_关闭命令提示
(setq osmode_bak (getvar "osmode"));_记录捕捉
(setvar "osmode" 0);_关闭捕捉
(setq clayer_bak (getvar "clayer"));_记录当前图层
(setq cecolor_bak (getvar "cecolor"));_记录当前颜色
(setq celtype_bak (getvar "celtype"));_记录当前线型
(setq textstyle_bak (getvar "textstyle"));_记录当前文字样式

;----操作记录开始----
(entmake '((0 . "LWPOLYLINE") (5 . "1C62") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 261756.0 3650.49) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 312541.0 3650.49) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 312541.0 -34272.8) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 261756.0 -34272.8) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0)) );生成图元
(setq ob1C62(entlast));生成图元

(entmake '((0 . "LINE") (5 . "1C63") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 383418.0 -33157.4 0.0) (11 462666.0 -33157.4 0.0) (210 0.0 0.0 1.0)) );生成图元
(setq ob1C63(entlast));生成图元

;----操作记录结束----

;----系统变量还原----
(setvar "osmode" osmode_bak);_还原捕捉
(setvar "clayer" clayer_bak);_还原图层
(setvar "cecolor" cecolor_bak);_还原颜色
(setvar "celtype" celtype_bak);_还原线型
(setvar "textstyle" textstyle_bak);_还原文字样式
(setvar "cmdecho" 1);_打开命令提示
(princ);_关闭程序返回值
);_程序结束