Hello All,
How to get the intersect point of two 3D Object?
I have try two 3dpoly object in the same z value
but i can't get the point (use intersectwith function)
poly1: 0,0,1--> 1,1,1
poly2:1,0,1-->0.6,0.4,1
if these object not in the same elevation,
may i have their 2d intersection coordinate?
How?
--------------------------------------------------------------------------
Public Sub test()
Dim acPoly1 As AcadObject
Dim acPoly2 As AcadObject
Dim varPt1 As Variant
Dim varPt2 As Variant
ThisDrawing.Utility.GetEntity acPoly1, varPt1, "Select target line:"
ThisDrawing.Utility.GetEntity acPoly2, varPt2, "Select source line:"
varPt1 = acPoly1.IntersectWith(acPoly2, acExtendBoth)
End Sub
Thanks
Semeo Chen
