2013-09-21 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

清风明月10

清风明月(897902105)于2013-09-21 08-49-44：
(defun C:TT (/ EN OBJ PT PP)
  (if (and (setq EN (entsel "\n选择多选线: "))
           (setq EN (car EN))
           (sssetfirst nil (ssadd EN))
           (setq OBJ (vlax-ename->vla-object EN))
           (or (= (vla-get-objectname OBJ) "AcDbPolyline")
               (and (princ "\n所选的对象不是多段线。") nil)
           )
      )
    (while (setq PT (getpoint "\n指定新顶点: "))
      (setq PT (trans PT 1 0);即将PT由用户坐标系转为世界坐标系
            PP (vlax-curve-getclosestpointto OBJ PT));返回曲线上离指定点最近的点（在 WCS 上）vlax-curve-getClosestPointTo函数
      (vlax-invoke
        OBJ
        'ADDVERTEX
        (1+ (fix (vlax-curve-getparamatpoint OBJ PP)))
        (list (car PT) (cadr PT))
      )
    )
  )
  (sssetfirst)
  (princ)
)
上面代码是增加多段线顶点的，请问，如何改能让顶点总是增加在最后一个

炫翔

炫翔(2363673534)于2013-09-21 08-51-47：
说清清楚一些

炫翔

炫翔(2363673534)于2013-09-21 08-52-00：
最后的一个添加是啥意思?

炫翔

炫翔(2363673534)于2013-09-21 08-52-35：
在最后一个点 添加一节线进去？

清风明月10

清风明月(897902105)于2013-09-21 08-54-00：
比如多义线为6个上点，我增加一个点它就排第7位

清风明月10

清风明月(897902105)于2013-09-21 08-54-16：
这时多义线就7个点了

炫翔

炫翔(2363673534)于2013-09-21 08-54-19：
多段线的点也是按顺序的

炫翔

炫翔(2363673534)于2013-09-21 08-54-38：
总不能你在多段线上弄一点为第7点吧

清风明月10

清风明月(897902105)于2013-09-21 08-54-57：
是在线外加一点

炫翔

炫翔(2363673534)于2013-09-21 08-55-12：
那还不好办？

清风明月10

清风明月(897902105)于2013-09-21 08-55-22：
是在线外加一点A，只不过A要放在最后面

炫翔

炫翔(2363673534)于2013-09-21 08-56-14：
思路:
选取多段线 获取多段线的起点到终点点表
指点一点 将点加到后面
删除多段线 重新生成

炫翔

炫翔(2363673534)于2013-09-21 08-56-49：
明白？

炫翔

炫翔(2363673534)于2013-09-21 08-56-57：
看你一大早的到处问

清风明月10

清风明月(897902105)于2013-09-21 08-57-03：
我是要求在已有的代码（上面发的）基础上改好