jonesy 发表于 2015-5-19 06:20:44

沿直线的距离

我们有一个“作业”要做，我们需要能够找到物体沿直线的距离。所有距离都需要从直线的起点开始。不幸的是，这条线曲折了很多次...是不是我忽略了什么，让我能够选择起点和物体的位置，并得到一个准确的距离？
**** Hidden Message *****

jonesy 发表于 2015-5-19 06:29:01

这里有一个快速的LISP来帮助您：
(defun c:pdist ( / e p )
    (if (setq e (car (entsel "\nSelect object to measure: ")))
      (while (setq p (getpoint "\nPick point on object: "))
            (princ
                (strcat "\nDistance from start point: "
                  (rtos
                        (vlax-curve-getdistatpoint e
                            (vlax-curve-getclosestpointto e (trans p 1 0))
                        )
                  )
                )
            )
      )
    )
    (princ)
)
(vl-load-com) (princ)

jonesy 发表于 2015-5-19 06:40:38

哦，谢谢李，我会试一试的。

jonesy 发表于 2015-5-19 07:38:18

不客气！
还有alanjt的作品。
页: [1]
查看完整版本: 沿直线的距离