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> (Setq angle8 (* 1.5 pi));设置角度angle8<br/> (Setq dist7 dist2);长度变量dist2的值赋给dist7<br/> (Setq pt14 (Polar pt13 angle8 dist7));在变量pt13点上进行偏移后赋给pt14<br/> (Setq angle9 0.0);设置角度angle9<br/> (Setq dist8 dist2);长度变量dist2的值赋给dist8<br/> (Setq pt15 (Polar pt14 angle9 dist8));在变量pt14点上进行偏移后赋给pt15<br/> (Setq pt16 pt13);将变量pt13的值赋给pt16<br/> (Command ".ARC" "C" pt14 pt15 pt16);绘制一条圆弧,中心点为pt14圆弧起点为pt15圆弧端点为pt16<br/> (Setq name0 (Entlast));获得最后生成的一个图元名</p><p>..............</p><p> (Setq name1 name0);把图元变量name0的值赋给name1<br/> (Setq angle18 0.785);设置角度angle18<br/> (Setq dist20 20);设置长度dist20<br/> (Setq pt39 (Polar pt14 angle18 dist20));在变量pt14点上进行偏移后赋给pt39<br/> (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版的,这样就更方便我们学习和提高……谢谢!