IntersectWith function for Alignment and Parcel

[Anonymous]

Hi,

I need to determine intersection points between Alignment and Parcels.
In .NET I haven't Parcel object and in COM IntersectWith function doesn't work.
Can I somehow solve my issue?

[Anonymous]

Hi Alexey,

I think it's the same question you asked to DevTech / ADN team earlier which we already responded to you :

>>>
Public Sub test()
    Dim ent1 As AcadEntity
    Dim ent2 As AcadEntity
    Dim pick As Object
   
    ThisDrawing.Utility.GetEntity ent1, pick, "Select first entity: "
    ThisDrawing.Utility.GetEntity ent2, pick, "Select second entity: "
   
    Dim res As Variant
    res = ent1.IntersectWith(ent2, acExtendNone)
   
End Sub
<<<

Thanks,