yth0407
发表于 2007-8-31 20:30:00
求转出槽孔每个点坐标成文本文件的LISP!
<p>就是比如一个异形孔,选孔或点一下闭合了的孔里面就能转出每条线的交点坐标文件的,转出坐标要按顺时针或逆时针的排序.久仰明经里面高手如云...希望高手能出来帮帮忙.在下感激不尽!!</p>
yth0407
发表于 2007-9-4 20:45:00
<p>几天了,,高手呢?唉....</p>
sailorcwx
发表于 2007-9-5 02:08:00
<p>最好能给个图，画上几个比较有代表性的孔，让我们好分析</p><p>毕竟隔行如隔山</p>
yth0407
发表于 2007-9-6 00:52:00
<p>请问怎么样上传本地图片?</p>
天龙八部
发表于 2007-9-6 15:30:00
首先得说明你的OBJECT，至于点坐标，不同的对象用的属性和方法也不同，
yth0407
发表于 2007-9-7 01:06:00
<p></p>
yth0407
发表于 2007-9-7 01:09:00
<p>能像这样转出坐标的,转出的坐标成文本文件的.高手们帮帮忙.谢谢.</p>
天龙八部
发表于 2007-9-7 16:46:00
<p>看了一下，都是LINE直线,应该可以!代码大致如下:</p><p>private sub xxxx111()</p><p> dim ppset1111 as acadselectionsets</p><p> if ppset1111.count>0 then</p><p> ppset1111.delete</p><p> end if</p><p> set ppset1111=thisdrawing.selectionsets.add("lineselect")</p><p>dim ppline1(0 to 0) as integer,ppline2(0 to 0) as variant</p><p>ppline1(0)=0</p><p>ppline2(0)="line"</p><p>ppset1111.select acselectionsetall,,,ppline1,ppline2</p><p>dim ppline1 as acadentity</p><p>dim ppoint1 as variant,ppoint2 as variant</p><p>dim ii1() as variant,ii2() as variant,ii3() as variant</p><p>dim i as double</p><p>i=0</p><p>for each ppline1 in ppset1111</p><p> ppoint1=ppline1.startpoint</p><p> ppoint2=ppline1.endpoint</p><p> redim ii1(i)</p><p> ii1(i)(0)=ppoint(0)</p><p> ii1(i)(1)=ppoint(1)</p><p> ii1(i)(2)=0</p><p>dim pptext as acadtext</p><p>dim insertpoint(0 to 0) as double</p><p>insertpoint(0)=ii1(i)(0)</p><p>insertpoint(1)=ii1(i)(1)+10 '</p><p>insertpoint(2)=0</p><p>set pptext=thisdrawing.modelspace.addtext(insertpoint,ii1(i)(0),1)</p><p>....................</p><p>next ppline1</p><p></p><p></p><p></p><p></p><p>end sub</p>
yth0407
发表于 2007-9-8 00:37:00
<p> 错误: 函数错误: "lineselect"</p><p>这样啊,天龙八部兄能不能再帮帮忙写好?非常感激.</p>
yth0407
发表于 2007-9-10 08:45:00
天龙八部兄再现身帮帮忙啊.