如何计算最接近的

Hudson · 发表于 2022-7-6 08:31:06

测试回路中弧上的每个点最有效吗？

还是有更好的方法？

感谢您的所有意见

安得烈

Lee Mac · 发表于 2022-7-6 08:38:52

查看vlax曲线getClosestPointto

Hudson · 发表于 2022-7-6 08:45:11

谢谢我觉得做蛮力循环不是最好的方式

Lee Mac · 发表于 2022-7-6 08:52:01

例如：

copy


(defun c:test (/ pt ent cLs)
 (vl-load-com)
 (if (and (setq ent (car (entsel "\nSelect an Object: ")))
          (setq pt (getpoint "\nSelect a Point to Test: ")))
   (progn
     (setq cLs (vlax-curve-getClosestPointto ent pt))
     ;; --  Display Point  --
     (setvar "PDMODE" 34)
     (vla-addPoint
       (vla-get-ModelSpace
         (vla-get-ActiveDocument
           (vlax-get-acad-object)))
       (vlax-3D-point cLs))))  
 (princ))