I'm not a regular coder for Catia and I am late with the answer ... but I hope it helps somebody.
Option Explicit
Sub CATMain()
'part declaration________________
Dim catDocument As PartDocument
Dim catPart As Part
Set catDocument = CATIA.ActiveDocument
Set catPart =...
I forgot to mention ...
we must put some conditions like the lines to have different angles a1<>a2 (or a1<>-a2, I forgot how it's called this function, you know it ...) to avoid the situation when they are paralel
Helau Senor Fredo, helau - helau, I am back in business !
"Is not so easy, drafting workbench is not so friendly" :-D hey-hey, get rid of the computer, close Catia ... take a pen, a paper and remember Analytical Geometry from 9-th class
how I can understand from the posts above, the problem is...