朝着per中的一条线投影

samifox · 发表于 2022-7-5 23:51:03

你好

我的问题是这样的：

在我的脚本中的一些点中，lisp生成一条线，然后我要求用户在特定位置设置一个点，该点必须以垂直角度向该线投影，然后在相交点上执行打断。

我不知道该怎么做，也不知道这是否可能

见附件

提前感谢
谢伊

MSasu · 发表于 2022-7-6 00:02:51

请检查vlax curve getClosestPointTo函数；从一点到一条直线的最短距离是其在所述直线（垂线）上的投影。

pBe · 发表于 2022-7-6 00:15:05

(defun c:demo ()
 (command "_.line" "\" "\" "")
 (setq lin (entlast))
 (command "_point" "\")
 (setq p (vlax-curve-getClosestPointTo lin (getvar 'lastpoint)))
 (command "_break"
   lin
   "_non"
   (setq p (vlax-curve-getClosestPointTo lin (getvar 'lastpoint)))
   "_non"
   p
 )
)