AutoLisp changing vertexes in a rentagle?

[Anonymous]

(setq telem (assoc 10 ent_curent)
listvar (cons 10 0.0 0.0)
ent_curent(subst listvar telem ent_curent)

So what I did here was to merely change a rentagle's (LWPOLYLINE) first vertex position to ```0.0 0.0 ```
What I'm trying to do is to access and change the other vertexes' positions of that specific POLYLINE to 0.0 0.0 . How can one do that?

[CodeDing]

@Anonymous ,

You can use this type of approach.. assuming you have implemented some kinds of checks to be sure it is in fact a 4-point rectangle:

(setq pList (list p1 p2 p3 p4))
(setq n -1)
(setq ent_current
  (mapcar
    '(lambda (x)
      (if (= 10 (car x)) (nth (setq n (1+ n)) pList) x)
    );lambda
    ent_current
  );mapcar
);setq

EDIT:

Are you trying to MOVE the rectangle? Because this could be accomplished by other methods...

Best,

~DD

[pbejse]

Are you saying "move" the lwpolyline using the first vertex coordinates as a basepoint and 0.0 0.0 as the second point?

[Kent1Cooper]

---

@Anonymous wrote:

.... to merely change a rentagle's (LWPOLYLINE) first vertex position to ```0.0 0.0 ```

What I'm trying to do is to access and change the other vertexes' positions of that specific POLYLINE to 0.0 0.0 . How can one do that?

---

Just curious -- why  would one want to do that?  You will make a Polyline with all 4 vertices at the same place, of zero length and zero area.  Polyline vertices that coincide are known to cause various difficulties with certain things you might want to do with them.

[Sea-Haven]

Just use a block 1x1 in size and use the x and y scale to resize much easier