[求助]：pl 线的接点

cqxt00

如何在pl线上加接点
比如：
绘一条PL线，该线只有两个接点（一个是：起点（0,1），另一个是端点(0,5)）
能不能在该PL线上加几个接点使其PL线为（0,1 )(0,2) (0,3)(0,4)(0,5) ）多了几个点.

xyp1964

加10000个够用吗？！
将距离设为0.0004即可：
http://www.xdcad.net/forum/showthread.php?s=&threadid=301953
参考dwg文件：

lsjjm

最初由 cqxt00 发布
[B]如何在pl线上加接点... [/B]

什么是多义线的“接点”？建议使用AUTOCAD的标准术语。
如果是顶点（VERTEX）的话，
可以直接使用PEDIT-EDIT VERTES-INSERT
或者：
[PHP]
(defun c:test ()
  (vl-load-com)
  (setq ent (entsel))
  (setq p (cadr ent)
      obj (vlax-ename->vla-object (car ent))
       pp (vlax-curve-getclosestpointto obj (trans p 1 0))
        n (fix (vlax-curve-getparamatpoint obj pp))
       pn (getpoint "\nPick a Point: ")
       pn (list (car pn)(cadr pn))
     newv (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 1)) pn))
  (vla-addvertex obj (1+ n) newv)
)
[/PHP]

xxxyzxx

请1楼楼主去2楼提供的地址试验一下，可以自动平分点，我已经试用过N周了，你说的情况绝对满足～

cuiwenjun2008

反之，
分别绘三条PL线，三条线的起终点分别是【（0，1 ），（0，2） 】；【（0，2），（0，3） 】；【（0，3），（0，4） 】。
能不能把它们连接成一条PL线，类似于join的命令。
当然是想用CAD都框住，一下就连成一条PL线。并不想用CAD中PE命令的JOIN命令。

lsjjm

将几条线“连接”成多义线即使是编程似乎只能用PE命令， 不知你的想法缘于何处，有何特殊目的？