Create line from intersect Grid polylines

[Trudy 6]

Hello i need help i want to create lines where cover the first polyline where cross the grid polygon.

I upload file for better understand.

 

Thank you

Tr1.dwg

[Tharwat 188]

This should be the missing part you need to finish the goal of your program and I am sure that you do the rest part for lines.  

;; where variables:					;;
;; obj = Green Polyline.				;;
;; lst = list of intersected points.			;;
;; srt = sorted points to use to create lines in order.	;;

(foreach pt lst
  (setq pts (cons (vlax-curve-getdistatpoint obj (vlax-curve-getclosestpointto obj pt)) pts))
  )
(setq srt (vl-sort pts '(lambda (j k) (< j k))))

 

[Trudy 6]

Hello, @Tharwat I add this just now and work perfect.

 

Thank you very much

[Tharwat 188]

Excellent, you're most welcome.