EgtCAM5 :

- Aggiunta voce SplitArcs nelle MachOptions.
- Aggiunto modulo con parametri utili della finestra Options.
- Piccola miglioria progetto selezione avanzata(scalo le linee sul piano di vista corrente).

ProjectPage/ProjectViewModel.vb

@@ -1035,19 +1035,16 @@ Namespace EgtCAM5
             Dim dCurrDist As Double
             Dim dMinDist As Double
             ' proietto le curve sul piano di vista
-            Dim vectorX As New Vector3d(0.5, -0.5, 0)
-            vectorX.Normalize()
-            Dim vectorY As New Vector3d(0.5, 0.5, 0.5)
-            vectorY.Normalize()
-            Dim vectorZ As New Vector3d(-0.5, -0.5, 0.5)
-            vectorZ.Normalize()
-            Dim frame As New Frame3d(Frame3d.GLOB)
-            frame.Rotate(New Point3d(0, 0, 0), Vector3d.X_AX, 45)
-            frame.Rotate(New Point3d(0, 0, 0), Vector3d.Z_AX, -45)
-            For Index = 0 To CurvesIdList.Count - 1
-               Dim l = EgtScale(CurvesIdList(Index), frame, 1, 1, 0)
-            Next
-            'Dim l = EgtScaleGroup(TempGroup, frame, 1, 1, 0)
+            Dim dAngVertDeg As Double
+            Dim dAngOrizDeg As Double
+            EgtGetGenericView(dAngVertDeg, dAngOrizDeg)
+            Dim vtZView As Vector3d = Vector3d.FromSpherical(1, dAngVertDeg, dAngOrizDeg)
+            Dim vtYView As Vector3d
+            EgtGetViewUp(vtYView)
+            Dim vtXView As Vector3d
+            vtXView = vtYView ^ vtZView
+            Dim frView As New Frame3d(Point3d.ORIG, vtXView, vtYView, vtZView)
+            EgtScaleGroup(TempGroup, frView, 1, 1, 0)
             ' ciclo sulle proiezioni
             Dim bFirst As Boolean = True
             For Index = 0 To CurvesIdList.Count - 1