请问各位怎么替换最后一个点

fishflying

请问各位高手
我想替换多义线的最后一个点（注：其中有若干个相同的点）
用SUBST是替换所有一样的东西（急）

南子

不知道：您所说的“其中有若干个相同的点”是什么意思？
(defun substPloyLineLastPoint (polyline            NewPoint         /
                               ENTLIST            reverseEntList
                               LIST1            LIST2         NEWENTLIST
                               NEWLIST1
                              )
  (setq entlist (entget polyline))
  ;;得到表值
  (setq reverseEntList (reverse entlist))
  ;;得到表值的翻表
;;;  以表的最后一个点为界分裂翻转表为两个部分list1  list2
  (setq list1 (member (assoc 10 reverseEntList) reverseEntList))
  ;;
  (setq        list2 (list (assoc 210 reverseEntList)
                    (assoc 42 reverseEntList)
                    (assoc 41 reverseEntList)
                    (assoc 40 reverseEntList)
              )
  )
;;;  用新的点替换最后点后,重新组装这个翻转表
  (setq        newlist1 (cons (cons 10 (list (car newpoint) (cadr newpoint)))
                       (cdr list1)
                 )
  )
  (setq newentlist (append list2 newlist1))
;;;  更新图元
  (entmod (reverse newentlist))
)
    )
  )
)

南子

(defun cpt ()
  (if (and (setq polyline (car (entsel "\n请选择多义线:")))
           (= "LWPOLYLINE" (cdr (assoc 0 (entget polyline))))
           (setq newpoint (getpoint "\n将多义线最后一点更改为该点:"))
      )
    (substPloyLineLastPoint polyline newpoint)
  )
  (princ)
)

fishflying

谢谢你们的帮助

fishflying

我说的其中有若干个相同的点是指一条多义线上有多个重合的点，我想把重合的点去掉

南子

如果是这样就更简单，vl-remove函数很方便

fishflying

vl-remove函数是把所有相同的点删掉，但我是想相同的点只留一个
不知道怎么办

南子

先取出样本来，删掉相同点后，再把样本点放回去。

Barnacle

高手这么早就有了啊，我要从最早一个帖子开始学习，赶紧把lisp掌握