关于两点间距离

xiaomihu

一条由若干直线和弧线首尾相连组成的线上，任意选两个点，怎样才能得到沿这条线的两点间距离，在选择的时候如果不是按照连接的顺序选择，怎么建立这个选择集

cqnj023

2. (defun c:qxdist  (/ SS DIST DIST1 DIST2 EN ENOBJ OSM P1 P2)
3.    (vl-load-com)
4.    (setq ss (ssget))
5.    (command "pedit" "M" ss "" "" "j" "0" "")
6.    (setq osm (getvar "OSMode"))
7.    (setvar "OSMode" 512)
8.    (setq p1 (getpoint "\n选择第一点："))
9.    (setq p2 (getpoint "\n选择第二点："))
10.    (setq en (ssname (ssget p1) 0))
11.    (setq enobj (vlax-ename->vla-object en))
12.    (setq dist1 (vlax-curve-getDistAtPoint enobj p1))
13.    (setq dist2 (vlax-curve-getDistAtPoint enobj p2))
14.    (command "undo" "1")
15.    (setvar "OSMode" osm)
16.    (princ "\n测量段曲线长度：")
17.    (setq dist (abs (- dist1 dist2)))
18. )

(defun c:qxdist  (/ SS DIST DIST1 DIST2 EN ENOBJ OSM P1 P2)    (vl-load-com)    (setq ss (ssget))    (command "pedit" "M" ss "" "" "j" "0" "")    (setq osm (getvar "OSMode"))    (setvar "OSMode" 512)    (setq p1 (getpoint "\n选择第一点："))    (setq p2 (getpoint "\n选择第二点："))    (setq en (ssname (ssget p1) 0))    (setq enobj (vlax-ename->vla-object en))    (setq dist1 (vlax-curve-getDistAtPoint enobj p1))    (setq dist2 (vlax-curve-getDistAtPoint enobj p2))    (command "undo" "1")    (setvar "OSMode" osm)    (princ "\n测量段曲线长度：")    (setq dist (abs (- dist1 dist2))) )

xyp1964

似乎有问题 (command "pedit" "M" ss "" "" "j" "0" "") 是否应改为 (command "pedit" "M" ss "" "j" "0" "")

cqnj023

我在2002下调试没有问题,其它版本没有调试过,不知pedit命令的选项是否有变化。