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

VB中的测量命令到cole

大家好,
 
我需要在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”命令代码的原因,因为它甚至在样条曲线上以均匀距离绘制点。
 
 
谢谢,
普里扬卡
页: [1]
查看完整版本: VB中的测量命令到cole