Угол между системами координат

[Zailar]

Добрый день, есть ли способ через VBA получить угол между МСК и системой координат дисплея?

[Александр Ривилис]

Добрый день, есть ли способ через VBA получить угол между МСК и системой координат дисплея?

Что такое угол между системами координат?

[Zailar]

В обоих видовых экранах оси  ХУ ориентированы одинаково, но при этом в одном видовом экране ось У ориентирована с востока на запад, а в другом с юга на север. В одном случае система координат дисплея не повернута относительно МСК, а во втором повернута, вот этот угол (поворота системы координат дисплея относительно МСК) можно определить через VBA?

[Александр Ривилис]

Понятнее мне не стало, но на всякий случай вот тебе код, с которым можно поиграться и который возвращает единичный вектор по оси X в МСК преобразованный в систему координат дисплея:

Код - Visual Basic [Выбрать]

1. Sub Angle()
2.  
3.   Dim vX(0 To 2) As Double
4.   vX(0) = 1: vX(1) = 0: vX(2) = 0
5.   Dim v1 As Variant
6.   v1 = ThisDrawing.Utility.TranslateCoordinates(vX, acWorld, acDisplayDCS, True)
7.   MsgBox ("vX(X) :" & v1(0) & vbCrLf & "vX(Y) :" & v1(1) & vbCrLf & "vX(Z) :" & v1(2) & vbCrLf)
8.  
9. End Sub

Надеюсь это тебе поможет разобраться с тем, что тебя интересует.

[Александр Ривилис]

Пожалуй это то, что ты ищешь:

Код - Visual Basic [Выбрать]

1. Sub Angle()
2.  
3.   Dim vX(0 To 2) As Double
4.   vX(0) = 1#: vX(1) = 0#: vX(2) = 0#
5.   Dim v1 As Variant
6.   v1 = ThisDrawing.Utility.TranslateCoordinates(vX, acWorld, acDisplayDCS, True)
7.   ' MsgBox ("vX(0): " & v1(0) & vbCrLf & "vX(1): " & v1(1) & vbCrLf & "vX(2): " & v1(2) & vbCrLf)
8.    
9.   Dim orig(0 To 2) As Double
10.   orig(0) = 0#: orig(1) = 0#: orig(2) = 0#
11.   Dim ang As Double
12.   ang = ThisDrawing.Utility.AngleFromXAxis(orig, v1)
13.   MsgBox ("Угол поворота оси X : " & ang / 3.14159265358979 * 180#)
14.  
15. End Sub