如何更改关联表中顶点的顺序

open_er

用rectang命令绘制一个矩形后，用entget函数获得其关联表，得到如下四个组码值为10的四个顶点的坐标：(10 364.406 411.962)  (10 660.187 411.962) (10 660.187 279.071)
(10 364.406 279.071) 。现在我想更改它们的顺序，就是想把第二个顶点调到第一个顶点的位置，修改后使第二个顶点成为第一个顶点。请问用什么方法可以实现？已经试用过pedit命令，但是好像不行。请各位多多指教了。

龙龙仔

(defun C:TT (/ HOLDOSMODE WW SS)
  (setq HOLDOSMODE (getvar "osmode"))
  (setvar "osmode" 0)
  (setq        WW (VLISP-REMOVE-IF-NOT
             10
             (entget (setq SS (car (entsel "\n选取矩形: "))))
           )
  )
  (command "_.pline"
           (nth 1 WW)
           (nth 0 WW)
           (nth 2 WW)
           (nth 3 WW)
           "c"
  )
  (command "_.erase" SS "")
  (setvar "osmode" HOLDOSMODE)
  (princ)
)

;;T. Tanzillo
(defun VLISP-REMOVE-IF-NOT (KEY LST)
  (mapcar 'cdr
          (vl-remove-if-not
            '(lambda (E) (eq (car E) KEY))
            LST
          )
  )
)