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

open_er · 发表于 2003-3-16 18:08:00

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

龙龙仔 · 发表于 2003-3-17 10:09:00

(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
      )
  )
)

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

发表回复

精选推荐