[原创] Lisp 也玩宏录制

nonsmall

宏记录是能为用户提供“用户前台操作，后台生成代码，模拟用户操作”的功能。

该程序将帮助初学者快速学会Lisp图元生成和修改，图层 图块 参照的处理等功能

作者：nonsmall 20090505

大家能猜到原理，我就不多说了

程序如下:

使用命令SS开始记录(任意绘制命令和修改命令)

再次使用SS停止记录并生成源代码.

 

mccad

对，应该学一下2010版的录制宏功能，把选取的点坐标可以做后期编辑。

ZJ135016

加载生成的LSP的时候显示：错误: 输入的点对中含有多余的 cdrs

香远益清

真没想到还有这玩意，以后编程都智能化，程序化了，直接程序编程了

27012701

厉害

carrot1983

在点前面加上: "_non"

nonsmall

萝卜：那种方式关捕捉是否很常用？

测试结果代码：

;此Lisp程序由nonsmall开发工具全自动生成
(defun c:test( / osmode_bak clayer_bak cecolor_bak pt1 pt2 pt_cen r)

----系统变量备份----
(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 pt_cen '(4581.33 2141.23 0.0));定义中心点
    (setq r 1066.34);定义半径
    (setvar "clayer" "图层2");_修改图层为 "图层2" 层
    (setvar "cecolor" "3");_修改颜色为 3 号色
    (command ".Circle" pt_cen r);_绘制圆
   
    ;-绘制圆弧-
    (setq pt1 '(3142.65 1275.16 0.0));_定义起始点
    (setq pt2 '(3915.46 1572.18 0.0));_定义终止点
    (setq pt_cen '(3579.99 1291.14 0.0));_定义中心点
    (setvar "clayer" "图层1");_修改图层为 "图层1" 层
    (setvar "cecolor" "1");_修改颜色为 1 号色
    (command ".Arc" pt1 "c" pt_cen pt2);_绘制圆弧
   
    ;-绘制直线-
    (setq pt1 '(2198.66 1877.15 0.0));_定义起始点
    (setq pt2 '(2737.33 2777.47 0.0));_定义终止点
    (setvar "clayer" "图层1");_修改图层为 "图层1" 层
    (setvar "cecolor" "2");_修改颜色为 2 号色
    (setvar "celtype" "ByLayer");_修改线型为 "ByLayer"
    (command ".Line" pt1 pt2 "");_绘制直线
   
;----绘制部分结束----

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

飞诗(fsxm)

再将坐标精度加大一点．．．搞个entmake版的！平时有可能用的到～～

wucai0503

代码在那里啊，我怎么么有看见啊

nonsmall

entmake 版的写起来比这个轻松多了

还有Vlisp版也考虑

这工具没什么难度，纯体力活。

nonsmall

fsxm发表于2009-5-6 20:13:00再将坐标精度加大一点．．．搞个entmake版的！平时有可能用的到～～

;此Lisp程序由nonsmall制作的宏记录器自动生成
(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 . "LINE") (5 . "167") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 -2935.84 257.892 0.0) (11 -2748.33 83.5754 0.0) (210 0.0 0.0 1.0)) );生成图元
(setq ob167(entlast));生成图元

(entmake '((0 . "CIRCLE") (5 . "168") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 -2711.87 359.359 0.0) (40 . 191.732) (210 0.0 0.0 1.0)) );生成图元
(setq ob168(entlast));生成图元

(entmake '((0 . "LWPOLYLINE") (5 . "169") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 -2680.61 10.7268) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -2513.94 10.7268) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -2513.94 -108.953) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -2680.61 -108.953) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0)) );生成图元
(setq ob169(entlast));生成图元

(entmake '((0 . "DIMENSION") (5 . "16A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbDimension") (2 . "*D3") (10 -2774.37 65.3633 0.0) (11 -2839.48 67.4466 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 130.216) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "ISO-25") (100 . "AcDbAlignedDimension") (13 -2904.59 67.965 0.0) (14 -2774.37 67.965 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension")) );生成图元
(setq ob16A(entlast));生成图元

(entmake '((0 . "ARC") (5 . "177") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 -2785.89 277.597 0.0) (40 . 59.1329) (210 0.0 0.0 1.0) (100 . "AcDbArc") (50 . 5.58709) (51 . 2.26789)) );生成图元
(setq ob177(entlast));生成图元

(entmake '((0 . "SPLINE") (5 . "178") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbSpline") (210 0.0 0.0 1.0) (70 . 8) (71 . 3) (72 . 10) (73 . 6) (74 . 4) (42 . 1.0e-010) (43 . 1.0e-010) (44 . 1.0e-010) (40 . 0.0) (40 . 0.0) (40 . 0.0) (40 . 0.0) (40 . 241.961) (40 . 361.761) (40 . 488.775) (40 . 488.775) (40 . 488.775) (40 . 488.775) (10 -2917.61 159.026 0.0) (10 -2957.28 55.1598 0.0) (10 -3016.6 -100.132 0.0) (10 -2737.26 -99.6296 0.0) (10 -2835.7 -28.4864 0.0) (10 -2886.36 8.12507 0.0) (11 -2917.61 159.026 0.0) (11 -2917.61 -82.9357 0.0) (11 -2797.81 -82.9357 0.0) (11 -2886.36 8.12507 0.0)) );生成图元
(setq ob178(entlast));生成图元

(setq entg (entget ob167));获取图元组码
;修改图元属性
(setq entg (entmod (subst '(11 -2748.33 -28.2992 0.0) '(11 -2748.33 83.5754 0.0) entg)))
(entmod entg);更新图元

(setq entg (entget ob169));获取图元组码
;修改图元属性
(setq entg (entmod (subst '(10 -2680.61 125.203) '(10 -2680.61 10.7268) entg)))
(entmod entg);更新图元

(setq entg (entget ob177));获取图元组码
;修改图元属性
(setq entg (entmod (subst '(10 -3020.11 43.1474 0.0) '(10 -2785.89 277.597 0.0) entg)))
(setq entg (entmod (subst '(40 . 341.755) '(40 . 59.1329) entg)))
(setq entg (entmod (subst '(50 . 0.959106) '(50 . 5.58709) entg)))
(setq entg (entmod (subst '(51 . 0.612686) '(51 . 2.26789) entg)))
(entmod entg);更新图元

(setq entg (entget ob168));获取图元组码
;修改图元属性
(setq entg (entmod (subst '(10 -2667.59 -88.1392 0.0) '(10 -2711.87 359.359 0.0) entg)))
(entmod entg);更新图元

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

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

lionyoyo

似乎加入一段错误中断处理就完美了

另外

是不是把所有的点改成getpoint更实用些