How would one go about stepping through individual vertices of an LWPOLYLINE without using Visual Lisp functions?
Is there a method beyond using (FOREACH? Perhaps a way to use (ASSOC 10, and getting differing verices?
Thanks,
Wayne
|
How would one go about stepping through individual vertices of an LWPOLYLINE without using Visual Lisp functions?
Is there a method beyond using (FOREACH? Perhaps a way to use (ASSOC 10, and getting differing verices?
Thanks,
Wayne
??Code:(vl-remove-if-not '(lambda (x) (equal (car x) 10) ) (entget (car (entsel "\n Select polyline: "))) )
Or with 'mapcar'. It depends on what you want to do to each point. If you just want to grab them, then I think foreach will work for you best.
Please do not reply to this question if you will be posting a wrong answer.Originally Posted by argutuq
Last edited by argutuq; 2007-02-19 at 11:49 PM.
And just why are you set on not using the VL- functions? They are an integral part of Autocad and Lisp. Nevertheless, this will do what you want:Originally Posted by argutuq
Code:deleted code.....don't be rude to those that try to help.
Last edited by Jeff_M; 2007-02-20 at 06:35 PM.
Maybe you didn't see the second part of my response. Guess you don't need that type of help either though since you know how to do it yourself.Originally Posted by argutuq