vba - 我可以使用 .getpoint 选择圆锥顶部的位置吗

Question

我将此代码用于获取点，我选择的一个点是圆锥体的底部但是我需要使用一个选定的点作为我正在绘制的圆锥体的顶部。

conecenter = .GetPoint(, vbCr & "select position for base of cone:")

标签： vbaautocad

Answer 1

是的，该.getpoint方法仅提示用户指定任意点，或者通过图形方式选择点，或者在 AutoCAD 命令行中输入点坐标值。因此，用户可以指定当前视口中的任何点。

要计算圆锥的顶部，您需要将用户提供的点的 z 坐标减少conecenter圆锥高度的一半，例如：

conecenter(2) = conecenter(2) - coneheight / 2.0

这假设您有一个名为的变量coneheight，它代表圆锥体的高度。