198526 发表于 2011-5-6 17:20:13

记录的多段线好像有问题
(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 . "POLYLINE") (5 . "5A6BB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (100 . "AcDb2dPolyline") (66 . 1) (10 0.0 0.0 -6.16597e-019) (70 . 0) (40 . 0.0) (41 . 0.0) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0)) );生成图元
(setq ob5A6BB(entlast));生成图元

(entmake '((0 . "VERTEX") (5 . "5A6BC") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 8478.11 -4943.54 -6.16597e-019) (40 . 0.0) (41 . 0.0) (42 . 0.0) (70 . 0) (50 . 0.0)) );生成图元
(setq ob5A6BC(entlast));生成图元

(entmake '((0 . "VERTEX") (5 . "5A6BD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 11035.7 -3964.13 -6.16597e-019) (40 . 0.0) (41 . 0.0) (42 . -0.419961) (70 . 0) (50 . 0.0)) );生成图元
(setq ob5A6BD(entlast));生成图元

(entmake '((0 . "VERTEX") (5 . "5A6BE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 11770.8 -4300.8 -6.16597e-019) (40 . 0.0) (41 . 0.0) (42 . 0.0) (70 . 0) (50 . 0.0)) );生成图元
(setq ob5A6BE(entlast));生成图元

(entmake '((0 . "VERTEX") (5 . "5A6BF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 12015.9 -5020.06 -6.16597e-019) (40 . 0.0) (41 . 0.0) (42 . 0.312791) (70 . 0) (50 . 0.0)) );生成图元
(setq ob5A6BF(entlast));生成图元

(entmake '((0 . "VERTEX") (5 . "5A6C0") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 12720.4 -5540.37 -6.16597e-019) (40 . 0.0) (41 . 0.0) (42 . -0.129057) (70 . 0) (50 . 0.0)) );生成图元
(setq ob5A6C0(entlast));生成图元

(entmake '((0 . "VERTEX") (5 . "5A6C1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 13914.9 -5892.35 -6.16597e-019) (40 . 0.0) (41 . 0.0) (42 . 0.0) (70 . 0) (50 . 0.0)) );生成图元
(setq ob5A6C1(entlast));生成图元

(entmake '((0 . "VERTEX") (5 . "5A6C2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (100 . "AcDbVertex") (100 . "AcDb2dVertex") (10 13317.6 -6749.34 -6.16597e-019) (40 . 0.0) (41 . 0.0) (42 . 0.0) (70 . 0) (50 . 0.0)) );生成图元
(setq ob5A6C2(entlast));生成图元

(entmake '((0 . "SEQEND") (5 . "5A6C3") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (-2 . <图元名: 7e6e3c98>)) );生成图元
(setq ob5A6C3(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);_关闭程序返回值
);_程序结束
; 错误: 输入的点对中含有多余的 cdrs
_$

MaKaiJin 发表于 2011-11-18 14:09:05

问题是没有但是我希望能够加强，从坐标点开始

quarx 发表于 2011-11-18 15:43:36

好东西哦

lohas1118 发表于 2011-11-18 15:51:09

谢谢共享
.

野狼谷/〈M〉 发表于 2011-12-10 11:14:49

死猫太强悍了，天才啊！

w245272914 发表于 2011-12-10 13:39:56

如果猫老师可以搞个插入点就好了。

srv2 发表于 2012-7-12 09:43:40

很好的思路, 开眼界了.

东北-水地暖-温 发表于 2012-7-22 07:57:05

期待完整源码

zhd81617 发表于 2012-7-22 14:18:29

错误: 参数类型错误: stringp nil

duuudu 发表于 2012-7-22 21:59:03

很好，回去可以自己尝试一下
页: 1 2 3 4 [5] 6 7
查看完整版本: [原创] Lisp 也玩宏录制