sunxc 发表于 2007-5-11 19:15:00

[求助]自动绘制门的lisp程序，先谢谢各位大侠

<p>我是一新手，初来希望各位大侠能伸出援助之手，帮一帮在下。在下不胜感激。</p><p>谢谢各位大侠！！！！！！！！！！！！！！</p>

zml84 发表于 2007-5-12 11:12:00

本帖最后由 作者 于 2007-5-12 12:27:38 编辑 <br /><br /> 代码太多，传不上来，请到：<a href="http://zml84.blog.sohu.com/45702719.html">http://zml84.blog.sohu.com/45702719.html</a><br/>
<center><h1>绘制单双门.LSP</h1></center>

sunxc 发表于 2007-5-14 16:54:00

<p>非常感谢!!!!!!!</p><p>真是"及时雨"呀!!!!!!!!</p>

天龙八部 发表于 2007-8-14 16:21:00

<p>LISP不太容易控制参数，做一个门啊！很简单啊！输入,LENGTH,WIDTH,HEIGHT ,TYPE,COUNT,等等！.....</p><p>sub autodoor()</p><p>dim xxx1 as double</p><p>dim xx2 as double,xx2 as double</p><p>xxx1=thisdrawing.utility.getinteger("len:")</p><p></p><p>'同理xx2.........</p><p>xx3...............</p><p>’then</p><p>dim (0 to 9) as acadlwpolyline '</p><p>dim(0)=变量的值</p><p>........</p><p>.......</p><p>.............</p><p>'然后用轻多段线生成就OK了</p><p>'弧用ARC</p><p>'判断ANGLE,用utility.angle...</p><p>'不规格线条用acadspline</p><p></p><p></p><p>end sub</p>
页: [1]
查看完整版本: [求助]自动绘制门的lisp程序，先谢谢各位大侠