yogesh Posted December 8, 2008 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
lpseifert Posted December 8, 2008 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
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.