[求助]如何取得网格每个点的坐标表[自已解决了]

carrot1983

如何取得网格每个交点的坐标表?

其实是想得到选中的任意多条线的交点形成的坐标表...

要按从上到下,从左到右的排列顺序...

我怎么写的都写不好...希望高手帮忙

  (foreach e elst
    (setq o1 (vlax-ename->vla-object e))
    (foreach e elst
      (setq o2 (vlax-ename->vla-object e))
      (setq p (vlax-invoke o1 'intersectwith o2 acextendnone))
      (setq plst0 (cons p plst0))
    )
  )

按上面得到的点标含有相同的交点跟nil

(foreach x plst0
    (if (not (member x plst1))
      (setq plst1 (cons x plst1))
    )
  )
  (setq plst2 (vl-remove nil plst1))
  plst2

我用上面的解决了,可是有时候不管用...还是会得到相同的坐标...

carrot1983

哪位高手帮个忙,写个吧....

其实是想得到选中的任意多条线的交点形成的坐标表...