[shumilovvv]

Обнаружил, на мой взгляд нелогичную вещь, при вставке блока через object.InsertBlock(InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation [, Password]) с текущей системой координат (ТСК) совпадающей с мировой или расположенной к ней нормально Rotation представляет угол с осью X текущей системой координат, а ТСК ориентирована в пространстве сложнее, оси систем координат не коллинеарны то при вставке блока нужно вводить поправку к Rotation. Как её определить?

[Кулик Алексей aka kpblc]

Попробуй сначала вставлять с Rotation = 0, потом меняешь Normal, следом - Rotation.

[shumilovvv]

Сообщение от Кулик Алексей aka kpblc Попробуй сначала вставлять с Rotation = 0, потом меняешь Normal, следом - Rotation.

а на что Normal менять? обок правильно ориентирован в плоскость XY, просто при угле равном 0 направление не совпадает с осью X.

Отвечаю сам на свой вопрос.
Угол между мнимой осью от которой отсчитывается Rotationи осью X текйщей системой координат можно получить как угол между вектором X взятый из UCSXDIR и точкой начала дуги единичного радиуса построенной в текущей системе координат.

Function угол() As Double
Dim Point0(0 To 2) As Double '
Point0(0) = 0: Point0(1) = 0: Point0(2) = 0 '
Dim retvar As Variant

Dim x1 As Double
Dim x2 As Double
Dim y1 As Double
Dim y2 As Double
Dim z1 As Double
Dim z2 As Double

Point0(0) = 0: Point0(1) = 0: Point0(2) = 0 '
Dim aArc As AcadArc
Set aArc = ThisDrawing.ModelSpace.AddArc(Point0, 1, 0, Rad(90))

retvar = ThisDrawing.GetVariable("UCSXDIR")

x1 = aArc.StartPoint(0)
y1 = aArc.StartPoint(1)
z1 = aArc.StartPoint(2)

x2 = retvar(0)
y2 = retvar(1)
z2 = retvar(2)

aArc.Delete
Dim a As Double
a = (x1 * x2 + y1 * y2 + z1 * z2) / (Sqr(x1 ^ 2 + y1 ^ 2 + z1 ^ 2) * Sqr(x2 ^ 2 + y2 ^ 2 + z2 ^ 2))
If a <> 1 Then угол = Arccos(a)
End Function

Function Arccos(X As Double) As Double
Arccos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function