Move all circles to inside polyline

[dlanorh]

OK, try the attached version. Tested on a completely non-orthoganal polyline.

 

 

 

moveco.lsp

[RepCad]

12 hours ago, dlanorh said:

OK, try the attached version. Tested on a completely non-orthoganal polyline.

 

Thanks dlanorh, my problem has been resolved with your help.

 

moveco.lsp 1.86 kB · 2 downloads

 

[dlanorh]

Glad I could help. I tried to calculate the point, but I was a bit brain dead, and the number of conditions kept growing; so it was easier to use the ray and find the closest intersection point.

[hosneyalaa]

hi  dlanorh

 

Allow me to

 

An idea for  Lisp who wrote it

 

use

function to check if a polyline is counter clockwise

After the line

(setq   c_pt (vlax-curve-getclosestpointto obj i_pt))

 

And

 (setq angP (angle '(0.0 0.0 0.0) (vlax-curve-getfirstderiv obj (vlax-curve-getparamatpoint obj c_pt))))
                 
;;;                 (setq   ang (angle i_pt c_pt))
                  (setq c_pttt (polar c_pt (+ angP (/ pi 2.)) dst))
                  (entmake (list (cons 0 "CIRCLE") ;*** 
               (cons 6 "BYLAYER") 
               (cons 8 "0") 
               (cons 10 c_pttt) ;*** 
               (cons 39 0.0) 
               (cons 40 10) ; radius
               (cons 62 256) 
               (cons 210 (list 0.0 0.0 1.0)))) 

 

Then delete the circle

Please accept my suggestion

 

 

 

 

 

Edited March 22, 2020 by hosneyalaa