Jozi68 发表于 2022-7-6 11:26:51

vb。净长度总计

我需要编写代码来更改行的长度,就像LEN Total命令一样。我有线路和起点。有什么想法吗?它必须在vb中。网

MSasu 发表于 2022-7-6 11:42:57

可以尝试以下方法:
[列表]
[*]列出起点和终点;
[*]计算直线与X轴的角度;
[*]使用角度的正弦和余弦以及所需长度重新计算新端点的位置;
[*]更新直线的端点属性。
完成!
 
我可以为您发布VBA代码,但恐怕这与VSTA代码有很大不同。
 
当做

Jozi68 发表于 2022-7-6 11:46:46

Thanx msasu,我将感谢VBA代码。我想我应该能弄明白。

MSasu 发表于 2022-7-6 11:53:51

这里是(未声明的变量):
 
关于,

MSasu 发表于 2022-7-6 12:06:42

此外,可以直接从实体获取线的方向:
 
Alfa = theLineEntity.Angle
 
当做

Jozi68 发表于 2022-7-6 12:10:36

Thanx我成功了

MSasu 发表于 2022-7-6 12:20:52

听起来不错!不客气!

gile 发表于 2022-7-6 12:26:57

你好
 
IMO,写作。NET从VBA编码不是一个好的学习方法。净额。
.NET提供了比COM多得多的API来处理几何问题(即使用3d向量而不是2d角度)。
 
这里有一个小示例(C)。
它包含一个函数(LineTotalLength)和一个“Test”命令,该函数用于更改拾取侧的线的总长度(需要线对象ID、拾取点和长度)。
 
2
页: [1]
查看完整版本: vb。净长度总计