zctao1966 发表于 2009-5-10 10:43:00

<p>确实太强了,</p><p><strong><font face="Verdana" color="#61b713">nonsmall作品,必属精品。</font></strong></p>

飞诗(fsxm) 发表于 2009-5-10 11:41:00

<p>请将entmake的参数也做成变量哦~</p><p>还有就是参照<选择易>将里面的DXF都注上中文意义哈!</p><p>DXF码表中文对照<选择易>里有现成的哦!</p><p>以前每次用entmake我都要查help</p><p>一个个对比DXF码表的意义有点烦心.</p><p>还有就是有空可以做一个Alisp的小助手,</p><p>用树形一路展开对像DXF码表(加中文意义),可输出entmake代码!</p><p>呵呵除了<font face="Verdana" color="#61b713"><strong>nonsmall</strong><font color="#000000">大好人,</font></font>这工作现在可没有几个人愿意去做呢!</p>

way1985 发表于 2009-6-3 20:48:00

高手,为什么只发图片,不放下载呢?

nonsmall 发表于 2009-6-4 09:54:00

<p>谢谢大家的支持和建议</p><p>就是用反应器来做的判定</p><p>现在做的后期编辑可以达到这样的效果</p><p>&nbsp;&nbsp;&nbsp; (Setq angle8 (* 1.5 pi));设置角度angle8<br/>&nbsp;&nbsp;&nbsp; (Setq dist7 dist2);长度变量dist2的值赋给dist7<br/>&nbsp;&nbsp;&nbsp; (Setq pt14 (Polar pt13 angle8 dist7));在变量pt13点上进行偏移后赋给pt14<br/>&nbsp;&nbsp;&nbsp; (Setq angle9 0.0);设置角度angle9<br/>&nbsp;&nbsp;&nbsp; (Setq dist8 dist2);长度变量dist2的值赋给dist8<br/>&nbsp;&nbsp;&nbsp; (Setq pt15 (Polar pt14 angle9 dist8));在变量pt14点上进行偏移后赋给pt15<br/>&nbsp;&nbsp;&nbsp; (Setq pt16 pt13);将变量pt13的值赋给pt16<br/>&nbsp;&nbsp;&nbsp; (Command ".ARC" "C" pt14 pt15 pt16);绘制一条圆弧,中心点为pt14圆弧起点为pt15圆弧端点为pt16<br/>&nbsp;(Setq name0 (Entlast));获得最后生成的一个图元名</p><p>..............</p><p>&nbsp;&nbsp;&nbsp; (Setq name1 name0);把图元变量name0的值赋给name1<br/>&nbsp;&nbsp;&nbsp; (Setq angle18 0.785);设置角度angle18<br/>&nbsp;&nbsp;&nbsp; (Setq dist20 20);设置长度dist20<br/>&nbsp;&nbsp;&nbsp; (Setq pt39 (Polar pt14 angle18 dist20));在变量pt14点上进行偏移后赋给pt39<br/>&nbsp;&nbsp;&nbsp; (Command ".dimradius" (list name1 pt39) pt39);绘制一条直径标注,标注图元为name1标注终点为pt39</p>

nonsmall 发表于 2009-8-26 00:33:00

<p>程序已发,见一楼</p><p>录制主要包括绘制和修改命令.</p>

xhq1954425 发表于 2009-8-26 05:07:00

下载学习,谢谢分享!

www1974 发表于 2009-8-26 10:07:00

支持一下~~

jxlsp 发表于 2009-8-26 14:34:00

发个非entmake版的看看啊

liao1968 发表于 2009-8-26 17:12:00

<p>你的文字我必看!</p>

xhq1954425 发表于 2009-8-27 06:28:00

楼主发的帖都有较高的技术含量,对大家很有帮助,如果方便的话,请楼主发个非entmake版的,这样就更方便我们学习和提高……谢谢!
页: 1 [2] 3 4 5 6 7
查看完整版本: [原创] Lisp 也玩宏录制