[求助]：请教求交点的问题

earchen

我想用vba编写一个求交点的程序，具体情况是求一条直线与一系列曲线的交点，并把这些交点保存到变量当中。直线为已知，曲线条数不定，并且所有的曲线在一个独立的图层中。那位高手有什么办法。
我想用的办法是把曲线一条一条的从图层中读出来，再用intersectWith函数求交点，可是我不知道怎么从一个图层中读取该图层的图元。

zf9568

创建选择集，过滤条件为在指定图层中的对象和多段线。
然后遍历选择集。

lsjjm

参考:
Sub intersectpts ()
  dim ms as acadmodelspace
  set ms=thisdrawing.modelspace
  dim intpoints as Variant
  intpoints=ms(0).intersectwith(ms(1), acextendnone)
  dim i as integer
  dim str as string
  if vartype(intepoints)<>vbempty then
    for i=lbound(intpoints) to ubound(intpoints) step 3
      str= str & vbCrLf & "Intersectpoints: " & intpoints (i) & "," &_
      intpoints (i+1) & "," & intpoints (i +2)
    Next
  endif
  msgbox str
end sub