dlanorh Posted March 21, 2020 Posted March 21, 2020 OK, try the attached version. Tested on a completely non-orthoganal polyline. moveco.lsp 1 Quote
RepCad Posted March 22, 2020 Author 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
dlanorh Posted March 22, 2020 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
hosneyalaa Posted March 22, 2020 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
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.