dlanorh Posted March 21, 2020 Share Posted March 21, 2020 OK, try the attached version. Tested on a completely non-orthoganal polyline. moveco.lsp 1 Quote Link to comment Share on other sites More sharing options...
RepCad Posted March 22, 2020 Author Share Posted March 22, 2020 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 1 Quote Link to comment Share on other sites More sharing options...
dlanorh Posted March 22, 2020 Share Posted March 22, 2020 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. 1 Quote Link to comment Share on other sites More sharing options...
hosneyalaa Posted March 22, 2020 Share Posted March 22, 2020 (edited) 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 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.