move pline vertices -- vl-every? mapcar?

i know there's a slick way to do this with little code, but it's late on a friday. hoping someone out there can just fart this out in my direction.
i want to move a polyline, given two points as reference.
so for each 10 group, modify it based on:
(polar (cdr (assoc 10 plinex) (angle p1 p2) (distance p1 p2))

just can't figure out if i'm doing this right....

thanks for any help!

--Jeremiah

 

okay, i just have to say, with the system blanking out that one word of my choice, it makes it look especially foul.
i used the f - a - r - t word, not the S word it looks like all blanked out.

--J

 

hey, i figured it out! in case anyone's interested:

(setq plinex (mapcar '(lambda (x)
(if (= (car x) 10)
(append (list 10) (polar (cdr x) (angle p1 p2) (distance p1 p2)))
x
) ; if
) ; lambda
plinex) ; mapcar
) ; setq

 

Why not (command "_.MOVE" ..... ?

-David