fsxm发表于2009-5-6 20:13:00
;此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);_关闭程序返回值
);_程序结束