lisp绘制法兰,[原创] Lisp 也玩宏录制 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

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);_关闭程序返回值

);_程序结束