怎样获取离多段线上指定点最近的两个顶点的坐标

jzf1987

在多段线上指定一点，获取离这个指定点最近的两个端点的坐标，这个距离是沿线线上的距离，不是点到点的距离。这个怎么写？

4楼正解

caoyin

(defun C:TT (/ E P)
(if (setq E (entsel "\n选择多段线: "))
  (progn
    (setq P (trans (cadr E) 1 0)
          E (car E)
          P (vlax-curve-getClosestPointTo E P)
          P (fix (vlax-curve-getParamAtPoint E P))
    )
    (list (vlax-curve-getPointAtParam E P)
          (vlax-curve-getPointAtParam E (1+ P))
    )
  )
)
)

wzg356

http://bbs.mjtd.com/thread-182471-1-1.html

jzf1987

wzg356 发表于 2021-3-29 13:09
http://bbs.mjtd.com/thread-182471-1-1.html

是一条多段线中的一段，不是继续画

jzf1987

caoyin 发表于 2021-3-29 14:29
(defun C:TT (/ E P)
(if (setq E (entsel "\n选择多段线: "))
  (progn

  怎样把这两个点坐标提取并赋值给新的两个点

caoyin

  (setq AAA  (vlax-curve-getPointAtParam E P)
          BBB  (vlax-curve-getPointAtParam E (1+ P))
    )