VB中的测量命令到cole

priyanka_mehta · 发表于 2022-7-6 14:24:41

大家好，

我需要在VBA中使用类似autocad“measure”的命令。
实际上，我需要做的是；选择一条线，给出一些间距值，并按该间距收集X、Y。
所以，我在想，如果我在VBA中有一个“measure”命令的代码，也许我可以用它来收集在给定间隔创建的点的X，Y。

请建议是否有任何其他方法来做这件事，或者如果我可以在VB中获得类似测量的命令。

谢谢和问候，
普里扬卡

BIGAL · 发表于 2022-7-6 15:13:44

这对一条线来说很简单，只要选一条线，然后得到起点和终点，知道所需的距离，你们就可以计算x，y，只要重复，直到你们超过了线的长度。

只要得到线的角度。
在lisp中（setq newpt（polar startpt angle dist））（car newpt）是x（cadr newpt）是y
有人会在VBA中给你同样的代码

priyanka_mehta · 发表于 2022-7-6 15:24:58

你好

我真的很抱歉，它不是一条直线，它可能是一条多段线，或者一条样条曲线或一条充满圆弧的多段线；因此它不是均匀的，这就是我考虑在VBA中获取“measure”命令代码的原因，因为它甚至在样条曲线上以均匀距离绘制点。

谢谢，
普里扬卡

[编程交流] VB中的测量命令到cole

发表回复

精选推荐