Point of intersection

[Kalsefar]

Hello Everyone,

I'm looking for a code that's can help me to export coordinates for the point of intersection .

please look to the attached file be more clear 

 

 

 

 

Edited October 8, 2020 by Kalsefar

[hosneyalaa]

(defun c:test (/ )
  (if
    (setq ss (ssget '((0 . "point"))))
     (repeat (setq i (sslength ss))
       (setq e (entget (ssname ss (setq i (1- i)))))
       (princ (cdr (assoc 10 e)))
       
     )
     
  )
)

 

[BIGAL]

1 If you set osmode to 32 it will find the intersection point.

 

2 If its a block then generally the intersection is the insertion point.

 

3 Like hosneyalaa if a "Point".

 

You need to clarify which it is.

 

There is so many export points to csv file examples out there just google.

Edited October 8, 2020 by BIGAL

[Lee Mac]

Assuming the image shows two separate lines, obtain the coordinates the line end points from DXF groups 10 & 11 and then use the inters function to calculate the point of intersection.

[BIGAL]

Like lee if its a symetrical 2 lines around mid point pick 1 line.

 

(setq lin (car (entsel "\nPick line")))
(setq pt (mapcar '/ (mapcar '+ (vlax-curve-getStartPoint lin) (vlax-curve-getEndPoint lin)) '(2 2 2)))