帮我开始。

MSasu · 发表于 2022-7-6 08:22:50

没问题！

pBe · 发表于 2022-7-6 08:26:49

主人，我不是，但你说得太好了，你太善良了
但是你知道吗？这都是你的Aaryan。。我们只是来帮助你，为你指明正确的方向。

干杯

aaryan · 发表于 2022-7-6 08:27:56

非常感谢Mircea和pBe。。

我已经检查了代码，即使对于在多段线之外选择的点，它也能正常工作，但如果我选择一个点（不是在多段线上），我就得不到垂直距离。你能查一下吗。

pBe · 发表于 2022-7-6 08:33:00

如果用户确实从pline中选择了一个点。它将为您提供拾取点和垂直于多段线之间的距离？是这样吗？

copy


(defun c:test3  ()
     (setq a (car (entsel "\nSelect polyline:")))
     (setq pt (getpoint "\nPick point:"))
     (setq dist (if (vlax-curve-getDistAtPoint a pt)
               (vlax-curve-getDistAtParam a
                  (vlax-curve-getParamAtPoint  a pt))
    (distance (vlax-curve-getClosestPointTo  a pt) pt)))
 (princ (strcat "\nKP on this point is: " (rtos dist 2 3)))
       (princ)
     )

aaryan · 发表于 2022-7-6 08:34:50

不仅是拾取的点与垂直于多段线的点之间的距离，还包括与垂直于多段线的点之间的KP。

喜欢

copy

(princ (strcat "\nKp on this point is:" "xyz" "and offset from route is:abc"))

偏移量可以是正的，也可以是负的，这意味着如果我选择的点在右边，它将是正的偏移量，如果它在左边，它将是负的。

MSasu · 发表于 2022-7-6 08:37:07

我认为，通过结合pBe和我给出的代码示例，您将获得该结果-这将是一个很好的练习。

pBe · 发表于 2022-7-6 08:40:35

这是个不错的主意。我同意。
去做吧，Aaryan。

我需要一片阿斯匹林

aaryan · 发表于 2022-7-6 08:42:56

好的，这将是我的工作。。。
不管怎样，我的问题现在解决了。
我感谢你的工作和对我的帮助。
我将再次提出另一个问题和另一个主题。

谢谢并致以最良好的问候
Aaryan。

pBe · 发表于 2022-7-6 08:48:54

如果你不介意的话，完成后在这里分享你的代码。

继续编码

aaryan · 发表于 2022-7-6 08:51:06

我一定会在这里分享pBe。

当做

[编程交流] 帮我开始。

发表回复

精选推荐