yogesh Posted December 8, 2008 Share Posted December 8, 2008 Hi all I want to change the properties of the points which are inside the polygon. There are many polygons in the drawing, I want to change the properties based on every polygon... Can anyone tell me how can I make this possible using autolisp... thanx in advance... Yogesh Quote Link to comment Share on other sites More sharing options...
lpseifert Posted December 8, 2008 Share Posted December 8, 2008 try this ;; CAB 08/25/06 - revised 07.25.07 ;; get pline vertex list for any (defun getcoords (ent / endp idx pt result) (setq idx 0 endp (vlax-curve-getEndParam ent)) (while (< (setq idx (1+ idx)) endp) (setq pt (vlax-curve-getpointatparam ent idx)) (setq result (cons pt result)) ) (reverse (cons (vlax-curve-getendpoint ent) result)) ) ;; Thanks CAB (defun c:test (/ ent ptlst ss-pts ) (setq ent (car(entsel)) coord-lst (getcoords ent) ss-pts (ssget "_WP" coord-lst '((0 . "point"))) ) ) Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted December 9, 2008 Share Posted December 9, 2008 ahh the genius of CAB... 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.