求转出槽孔每个点坐标成文本文件的LISP!

yth0407

就是比如一个异形孔,选孔或点一下闭合了的孔里面就能转出每条线的交点坐标文件的,转出坐标要按顺时针或逆时针的排序.久仰明经里面高手如云...希望高手能出来帮帮忙.在下感激不尽!!

yth0407

几天了,,高手呢?唉....

sailorcwx

最好能给个图，画上几个比较有代表性的孔，让我们好分析

毕竟隔行如隔山

yth0407

请问怎么样上传本地图片?

天龙八部

首先得说明你的OBJECT，至于点坐标，不同的对象用的属性和方法也不同，

yth0407

yth0407

能像这样转出坐标的,转出的坐标成文本文件的.高手们帮帮忙.谢谢.

天龙八部

看了一下，都是LINE直线,应该可以!代码大致如下:

private sub xxxx111()

     dim ppset1111 as acadselectionsets

     if ppset1111.count>0 then

        ppset1111.delete

     end if

     set ppset1111=thisdrawing.selectionsets.add("lineselect")

dim ppline1(0 to 0) as integer,ppline2(0 to 0) as variant

ppline1(0)=0

ppline2(0)="line"

ppset1111.select acselectionsetall,,,ppline1,ppline2

dim ppline1 as acadentity

dim ppoint1 as variant,ppoint2 as variant

dim ii1() as variant,ii2() as variant,ii3() as variant

dim i as double

i=0

for each ppline1 in ppset1111

   ppoint1=ppline1.startpoint

   ppoint2=ppline1.endpoint

  redim ii1(i)

  ii1(i)(0)=ppoint(0)

  ii1(i)(1)=ppoint(1)

  ii1(i)(2)=0

dim pptext as acadtext

dim insertpoint(0 to 0) as double

insertpoint(0)=ii1(i)(0)

insertpoint(1)=ii1(i)(1)+10 '

insertpoint(2)=0

set pptext=thisdrawing.modelspace.addtext(insertpoint,ii1(i)(0),1)

....................

next ppline1

end sub

yth0407

 错误: 函数错误: "lineselect"

这样啊,天龙八部兄能不能再帮帮忙写好?非常感激.

yth0407

天龙八部兄再现身帮帮忙啊.