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

例如：
 

(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))
      

khoshravan 发表于 2022-7-6 09:03:40

 
什么是VLAX？这是Cad命令名吗？

BlackBox 发表于 2022-7-6 09:06:34

如果内存为VLAX，则指定Visual LISP ActiveX函数前缀。。。它（我的记忆）没有。请参阅下一篇文章。
 
**编辑-只是想在李（正确）回答之前得到我的猜测。英雄联盟

BlackBox 发表于 2022-7-6 09:17:43

啊哈。。。找到了！
 
Lee在这里的帖子阐明了Visual LISP使用的不同函数前缀。

khoshravan 发表于 2022-7-6 09:21:33

 
谢谢它们远远超出我的知识范围，我认为我无法使用它们。

BlackBox 发表于 2022-7-6 09:25:00

 
一点也不。。。可能需要一些时间来理解它们是如何工作的，以及如何正确使用它们。
 
你有没有试过李的密码？

Lee Mac 发表于 2022-7-6 09:35:49

 
以我以前的编码风格。。。
页: [1]
查看完整版本: 如何计算最接近的