Question

AutoCad里面如何用vba编程的方式确定一条多段线上任意一点距起点的长度

我把pline、arc、line合并成了一条pline，现在我想知道每个端点（合并前各个pline、arc、line的端点）距离起点的长度的数值是多少该怎么弄？
两百分，就只有这么多了。各位爷，帮个忙。

Answer 1

autolisp程序编写，用VBAX函数，代码如下：

(defun C:tes ( / &dis1 &k1 &n1 &p1 &ss1)
 (if (null vlax-dump-object) (vl-load-com) )
 (setq &ss1 '("LINE" "LWPOLYLINE" "CIRCLE" "ARC" "HELIX" "ELLIPSE" "SPLINE" "POLYLINE"))
 ;曲线有起点：直线，多段线，圆，圆弧，螺旋对象，椭圆，样条曲线，二维多段线
 (if (and
  (setq &k1 (entsel "\n请选择曲线"))
  (setq &k1 (car &k1))
  (member (cdr (assoc 0 (entget &k1))) &ss1);确认是曲线
  (setq &p1 (getpoint "\n请选择指定点"))
  (setq &p1 (vlax-curve-getclosestpointto &k1 &p1));取得最近点
  (setq &n1 (vlax-curve-getParamAtPoint &k1 &p1));取得参数
  (setq &dis1 (vlax-curve-getDistAtParam &k1 &n1));到起点距离
     )
  (princ (strcat "\n指定点到曲线起点距离为" (rtos &dis1)));命令行显示
 )
 (princ)
);复制到记事本，以【.lsp】为后缀命名，打开cad，【appload】加载，命令【TES】就可以查询到起点距离。

Answer 2

利用天正里面的线变复线来实现。。。。。。。。。你试下吧

追问

没用过天正建筑
你说的就是pedit命令吗？
但我要的不是吧线条转换成pline，而是鼠标点pline上面的某个点，得到这个点距离pline起点的距离值。我要的是这个值。