Могу ли я использовать .getpoint для выбора позиции для верхней части конуса

Question

Я использую этот код для получения точки, и выбранная точка является основанием конуса. Но мне нужно использовать выбранную точку, чтобы быть вершиной моего конуса, который рисует тогда.

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

Answer 1

Да, метод .getpoint просто предлагает пользователю указать произвольную точку либо путем графического выбора точки, либо путем ввода значений координат точки в командной строке AutoCAD. Таким образом, пользователь может указать любую точку в текущем окне просмотра.

Чтобы рассчитать верхнюю часть конуса, вам нужно уменьшить z-координату предоставленной пользователем точки conecenter на половину высоты конуса, например ::10000 *

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

Предполагается, что у вас есть переменная с именем coneheight, которая представляет высоту конуса.