diff --git a/POWERCAD30/UNITS/form3d.pas b/POWERCAD30/UNITS/form3d.pas
index b1429c0..bebb7be 100644
--- a/POWERCAD30/UNITS/form3d.pas
+++ b/POWERCAD30/UNITS/form3d.pas
@@ -530,8 +530,10 @@ type
 
     FxObjects: TList;
     FNodes: TList;
-
-    Procedure UpdateFaces(Faces: TList; Yh: Double = 0);
+    //Tolik 22/06/2025 --
+    //Procedure UpdateFaces(Faces: TList; Yh: Double = 0);
+    Procedure UpdateFaces(Faces: TList; Yh: Double = 0; aFirstLoad: boolean = true);
+    //
     procedure UpdateModelTree;
     procedure UpdateScsModelTree;
     procedure UpdateModelTreeFromStream(Faces: TList);
@@ -2004,7 +2006,8 @@ begin
   my := y;
 end;
 
-procedure Tfrm3D.UpdateFaces(Faces: TList; Yh: Double = 0);
+//procedure Tfrm3D.UpdateFaces(Faces: TList; Yh: Double = 0);
+Procedure Tfrm3D.UpdateFaces(Faces: TList; Yh: Double = 0; aFirstLoad: boolean = true);
 //const
 //   clrBlack  : TVector = (0,    0,    0,    1);
 var
@@ -12365,9 +12368,9 @@ var
   MoveDelta: Double; // Tolik
   CanMoveObj: Boolean;
   glObject: TGLFreeForm;
-  MovedConn: T3DConnector;
+  MovedConn, xConn: T3DConnector;
   MovedComponent: T3DComponent;
-  ParentNode: TTreeNode;
+  ParentNode : TTreeNode;
   Shift: TShiftState;
   OldAngle: Double;
   currNode: TTreeNode;
@@ -12376,6 +12379,9 @@ var
   SCSLine: TOrthoLine;
   SCSConnector: TConnectorObject;
   ConnToMove1, ConntoMove2: T3DConnector;
+  dp1: T3dPoint;
+  LineToMove: T3dLine; // Tolik 19/06/2025 --
+  LastConnID: integer;//
 
   function GetParentConnector(aNode: TTreeNode): T3DConnector;
   begin
@@ -12503,7 +12509,533 @@ var
     while Result.Level > 2 do
       Result := Result.Parent;
   end;
+  //Tolik 18/06/2025 --
+  Procedure CreateNewSCSLineOnMove(adp: T3DPoint; aLine: T3DLine);
+  var SavedGCadForm: TF_Cad;
+      CreatedConn1, CreatedConn2, SnapConn: TConnectorObject;
+      SCSLine, JoinedLine: TOrthoLine;
+      i, j: integer;
+      FaceList, ObjList, Obj3dList: TList;//собрать и удалить все объекты и связанные сними узлы деревьев а также фейсы
+                                          // т.к. их необходимо будет пересоздать
+      TubeCompon: TSCSComponent;
+      SCSList: TSCSList;
+      LineCatalog: TSCSCatalog;
 
+      ComponNode, NewTraceNode, CadListNode, xScsNode: TTreeNode;
+      LineToMove, xLine: T3dLine;
+      SCSObjList: TList; // список объектов, которые нужно будет перепарсить
+      SelObj: TGLBaseSceneObject; // save selection
+      IstubeSel: Boolean; // if is tube select on trace
+
+      procedure SynchronizeCoordsToCad(aPoint: TDoublePoint; aSide: integer);
+      var SCSConn: TConnectorObject;
+      begin
+        if aSide = 1 then
+          SCSConn := TConnectorObject(SCSLine.JoinConnector1)
+        else
+          SCSConn := TConnectorObject(SCSLine.JoinConnector2);
+        //на плоскости
+        if ((CompareValue(SCSConn.ap1.x, aPoint.x) <> 0) or
+           (CompareValue(SCSConn.ap1.y, aPoint.y) <> 0)) then
+          SCSConn.Move(aPoint.x - SCSConn.ap1.x, aPoint.y - SCSConn.ap1.y);
+        //по высоте (тут вопрос... как пойдет)...
+       // if CompareValue(SCSConn.ActualZOrder[1], aPoint.z) <> 0 then
+      end;
+  begin
+    //26/06/2025 -- save selection
+    SelObj := nil;
+    IstubeSel := False;
+
+    if FSelection.Count > 0 then
+      SelObj := TGLBaseSceneObject(FSelection[i]);
+    if SelObj.TagObject <> nil then
+    begin
+      if TObject(TTreeNode(SelObj.TagObject).Data).ClassName = 'T3DLineComponent' then
+        IstubeSel := True;
+    end;
+
+    DeselectGLObjectsT; // drop selection
+
+    SCSLine := nil;
+
+    if aLine.FSCSObject <> nil then
+      SCSLine := aLine.FSCSObject; // сама трасса на каде
+
+    FaceList := TList.Create;
+    ObjList := TList.Create;
+    Obj3dList := TList.Create;
+    //собираем объекты(которые потом шлепнем)
+    // с трассы
+    ObjList.Add(aLine.FGLObject);
+    FaceList.Add(aLine.FFace);
+    Obj3dList.Add(aLine);
+
+    //с коннекторов
+    ObjList.Add(aLine.FJoinConnector1.FGLObject);
+    FaceList.Add(aLine.FJoinConnector1.FFace);
+    Obj3dList.Add(aLine.FJoinConnector1);
+
+    ObjList.Add(aLine.FJoinConnector2.FGLObject);
+    FaceList.Add(aLine.FJoinConnector2.FFace);
+    Obj3dList.add(aLine.FJoinConnector2);
+
+    //сброс из осн. дерева (все вместе в одном цикле низзя, т.к. при удалении трассы удалится не один узел а неск.,
+    //учитывая дочерние и наебнется счетчик цикла)
+    SCSModelTree.Items.BeginUpdate;
+    for i := SCSModelTree.Items.Count - 1 downto 0 do
+    begin
+      if TObject(SCSModelTree.Items[i].data).ClassName = 'T3DLine' then
+      begin
+        if T3dLine(SCSModelTree.Items[i].data).FSCSObject <> nil then
+        begin
+          if T3DLine(SCSModelTree.Items[i].data) = aLine then
+          begin
+            ComponNode := SCSModelTree.Items[i].getFirstChild;
+            while ComponNode <> nil do
+            begin
+              if TObject(ComponNode.data).ClassName = 'T3DLineComponent' then
+              begin
+                if T3DLineComponent(ComponNode.data).FGLObject <> nil then
+                begin
+                  if ObjList.IndexOf(T3DLineComponent(ComponNode.data).FGLObject) = -1 then
+                    ObjList.Add(T3DLineComponent(ComponNode.data).FGLObject);
+                end;
+
+                if T3DLineComponent(ComponNode.data).FFace <> nil then
+                begin
+                  if FaceList.IndexOf(T3DLineComponent(ComponNode.data).FFace) = -1 then
+                    FaceList.Add(T3DLineComponent(ComponNode.data).FFace);
+                end;
+
+                if Obj3DList.IndexOf(T3DLineComponent(ComponNode.data)) = -1 then
+                  Obj3DList.Add(T3DLineComponent(ComponNode.data));
+              end;
+              ComponNode := SCSModelTree.Items[i].GetNextChild(ComponNode);
+            end;
+
+            SCSModelTree.Items.Delete(SCSModelTree.Items[i]);
+            break;
+          end;
+        end;
+      end;
+    end;
+
+    for i := SCSModelTree.Items.Count - 1 downto 0 do
+    begin
+      if TObject(SCSModelTree.Items[i].data).ClassName = 'T3DConnector' then
+      begin
+        if ((T3DConnector(SCSModelTree.Items[i].data) = aLine.FJoinConnector1) or
+            (T3DConnector(SCSModelTree.Items[i].data) = aLine.FJoinConnector2)) then
+        begin
+          SCSModelTree.Items.Delete(SCSModelTree.Items[i]);
+        end;
+      end;
+    end;
+
+    SCSModelTree.Items.EndUpdate;
+
+    //с обоих коннекторов одним циклом
+    DuplicateNodeTree.Items.BeginUpdate;
+    for i := DuplicateNodeTree.Items.Count - 1 downto 0 do
+    begin
+      if TObject(DuplicateNodeTree.Items[i].Data).ClassName = 'T3DConnector' then
+      begin
+        if T3DConnector(DuplicateNodeTree.Items[i].Data).FisPipeElement then
+        begin
+          if T3DConnector(DuplicateNodeTree.Items[i].Data).FSCSObject <> nil then
+          begin
+            if ((T3DConnector(DuplicateNodeTree.Items[i].Data)= aLine.FJoinConnector1) or
+               (T3DConnector(DuplicateNodeTree.Items[i].Data) = aLine.FJoinConnector2)) then
+            begin
+              if ObjList.IndexOf(T3DConnector(DuplicateNodeTree.Items[i].Data).FGLObject) = -1 then
+                ObjList.Add(T3DConnector(DuplicateNodeTree.Items[i].Data).FGLObject);
+
+              if Obj3dList.IndexOf(T3DConnector(DuplicateNodeTree.Items[i].Data)) = -1 then
+                Obj3dList.Add(T3DConnector(DuplicateNodeTree.Items[i].Data));
+
+              if FaceList.IndexOf(T3DConnector(DuplicateNodeTree.Items[i].Data).FFace) = -1 then
+                FaceList.Add(T3DConnector(DuplicateNodeTree.Items[i].Data).FFace);
+
+              DuplicateNodeTree.Items.Delete(DuplicateNodeTree.Items[i]);
+            end;
+          end;
+        end;
+      end;
+    end;
+    DuplicateNodeTree.Items.EndUpdate;
+    //
+    //CAD
+    SavedGCadForm := GCadForm;
+    GCadForm := TF_CAD(TPowerCad(TOrthoLine(aLine.FSCSObject).Owner).Owner);
+    //Tolik 24/06/2025 --\
+    //Синхронизировать координаты с Кадом
+    SynchronizeCoordsToCad(aLine.FPoint1, 1);
+    SynchronizeCoordsToCad(aLine.FPoint2, 2);
+    //
+
+    //создать два новых коннектора
+    //основная проблема здесь....
+    aLine.FPoint1.x := Round2(aLine.FPoint1.x);
+    aLine.FPoint1.y := Round2(aLine.FPoint1.y);
+    aLine.FPoint1.z := Round2(aLine.FPoint1.z);
+
+    aLine.FPoint2.x := Round2(aLine.FPoint2.x);
+    aLine.FPoint2.y := Round2(aLine.FPoint2.y);
+    aLine.FPoint2.z := Round2(aLine.FPoint2.z);
+    //
+
+    CreatedConn1 := TConnectorObject.Create(aLine.FPoint1.x, aLine.FPoint1.y, aLine.FPoint1.z, integer(GCadForm.PCad.Layers[2]),mydsNormal,GCadForm.PCad);
+    CreatedConn1.ConnectorType := ct_Clear;
+    GCadForm.PCad.AddCustomFigure (2, CreatedConn1, False);
+
+    CreatedConn2 := TConnectorObject.Create(aLine.FPoint2.x, aLine.FPoint2.y, aLine.FPoint2.z, integer(GCadForm.PCad.Layers[2]),mydsNormal,GCadForm.PCad);
+    CreatedConn2.ConnectorType := ct_Clear;
+    GCadForm.PCad.AddCustomFigure (2, CreatedConn2, False);
+    //пересоединить трассы(если есть еще, кроме текущей) на созданные коннекторы
+    SCSLine := TOrthoLine(aLine.FSCSObject);
+
+    if TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList.Count > 1 then
+    begin
+      for i := (TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList.Count - 1) downto 0 do
+      begin
+        JoinedLine := TOrthoLine(TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList[i]);
+        if JoinedLine.ID <> SCSLine.ID then
+        begin
+          //CreatedConn1.JoinedOrtholinesList.Add(JoinedLine);
+          TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList.Delete(i);
+          {
+          if JoinedLine.JoinConnector1.ID = SCSLine.JoinConnector1.ID then
+            JoinedLine.JoinConnector1 := CreatedConn1
+          else
+            JoinedLine.JoinConnector2 := CreatedConn1;
+          }
+          if JoinedLine.JoinConnector1.ID = SCSLine.JoinConnector1.ID then
+            JoinedLine.SetJConnector1(CreatedConn1)
+          else
+            JoinedLine.SetJConnector2(CreatedConn1);
+        end;
+      end;
+    end;
+
+    if TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList.Count > 1 then
+    begin
+      for i := (TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList.Count - 1) downto 0 do
+      begin
+        JoinedLine := TOrthoLine(TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList[i]);
+        if JoinedLine.ID <> SCSLine.ID then
+        begin
+          //CreatedConn2.JoinedOrtholinesList.Add(JoinedLine);
+          TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList.Delete(i);
+          {
+          if JoinedLine.JoinConnector1.ID = SCSLine.JoinConnector2.ID then
+            JoinedLine.JoinConnector1 := CreatedConn2
+          else
+            JoinedLine.JoinConnector2 := CreatedConn2;
+          }
+          if JoinedLine.JoinConnector1.ID = SCSLine.JoinConnector2.ID then
+            JoinedLine.SetJConnector1(CreatedConn2)
+          else
+            JoinedLine.SetJConnector2(CreatedConn2);
+        end;
+      end;
+    end;
+    //Двинуть трассу по плоскости
+    if adp.y = 0 then
+    begin
+      TConnectorObject(SCSLine.JoinConnector1).Move(adp.x, adp.z);
+      TConnectorObject(SCSLine.JoinConnector2).Move(adp.x, adp.z);
+
+      CreateTraceByConnectors(GCadForm, CreatedConn1, TConnectorObject(SCSLine.JoinConnector1), false, true, false);
+      CreateTraceByConnectors(GCadForm, CreatedConn2, TConnectorObject(SCSLine.JoinConnector2), false, true, false);
+    end
+    else
+    begin //если по вертикали
+      //SCSLine.ActualZOrder[1] := SCSLine.ActualZOrder[1] + adp.y;
+      //SCSLine.ActualZOrder[2] := SCSLine.ActualZOrder[2] + adp.y;
+
+      SCSLine.ActualZOrder[1] := Round2(SCSLine.ActualZOrder[1] + adp.y);
+      SCSLine.ActualZOrder[2] := Round2(SCSLine.ActualZOrder[2] + adp.y);
+
+      TConnectorObject(SCSLine.JoinConnector1).ActualZOrder[1] := Round2(TConnectorObject(SCSLine.JoinConnector1).ActualZOrder[1] + adp.y);
+      TConnectorObject(SCSLine.JoinConnector2).ActualZOrder[1] := Round2(TConnectorObject(SCSLine.JoinConnector2).ActualZOrder[1] + adp.y);
+      {
+      SnapConnectorToConnector(CreatedConn1, TConnectorObject(SCSLine.JoinConnector1));
+      SnapConnectorToConnector(CreatedConn2, TConnectorObject(SCSLine.JoinConnector2));
+      }
+      {
+      CreateVerticalOnTwoPointObjects(CreatedConn1, TConnectorObject(SCSLine.JoinConnector1), TConnectorObject(SCSLine.JoinConnector1).ActualZOrder[1]);
+      CreateVerticalOnTwoPointObjects(CreatedConn2, TConnectorObject(SCSLine.JoinConnector2), TConnectorObject(SCSLine.JoinConnector2).ActualZOrder[1]);
+      }
+      JoinedLine := CreateVerticalOnConnector(CreatedConn1, TConnectorObject(SCSLine.JoinConnector1).ActualZOrder[1]);
+      if JoinedLine.JoinConnector1.ID = CreatedConn1.ID then
+        SnapConn := TConnectorObject(JoinedLine.JoinConnector2)
+      else
+        SnapConn := TConnectorObject(JoinedLine.JoinConnector1);
+      SnapConn := SnapConnectorToConnector(TConnectorObject(SCSLine.JoinConnector1), SnapConn);
+
+      JoinedLine := CreateVerticalOnConnector(CreatedConn2, TConnectorObject(SCSLine.JoinConnector2).ActualZOrder[1]);
+      if JoinedLine.JoinConnector1.ID = CreatedConn2.ID then
+        SnapConn := TConnectorObject(JoinedLine.JoinConnector2)
+      else
+        SnapConn := TConnectorObject(JoinedLine.JoinConnector1);
+      SnapConn := SnapConnectorToConnector(TConnectorObject(SCSLine.JoinConnector2), SnapConn);
+    end;
+    //Скопировать трубу
+    SCSList := F_ProjMan.GSCSBase.CurrProject.GetListByID(TF_CAD(TPowerCad(SCSLine.Owner).Owner).FCADListID);
+    TubeCompon := nil;
+    if SCSList <> nil then
+    begin
+      LineCatalog := SCSList.GetCatalogFromReferencesBySCSID(SCSLine.ID);
+      if LineCatalog <> nil then
+      begin
+        for i := 0 to LineCatalog.ComponentReferences.Count - 1 do
+        begin
+          if LineCatalog.ComponentReferences[i].ComponentType.SysName = ctsntube then
+          begin
+             TubeCompon := LineCatalog.ComponentReferences[i];
+            break;
+          end;
+        end;
+      end;
+      //если есть труба (или можно будет потом и другие компоненты)
+      if TubeCompon <> nil then
+      begin
+        //Трубу в списки - потом тоже шлепнем
+
+        ComponNode := F_ProjMan.FindComponOrDirInTreeByList(SCSList.Id, TubeCompon.ID, true); //
+        if ComponNode  <> nil then
+        begin
+          JoinedLine := nil;
+          for i := 0 to TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList.Count - 1 do
+          begin
+            if TOrthoLine(TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList[i]).ID <> SCSLine.ID then
+            begin
+              JoinedLine := TOrthoLine(TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList[i]);
+              break;
+            end;
+          end;
+
+          if JoinedLine <> nil then
+          begin
+            NewTraceNode := F_ProjMan.FindComponOrDirInTreeByList(SCSList.Id, JoinedLine.ID, False); //
+            if NewTraceNode <> nil then
+            begin
+              //Скопировать трубу
+              F_ProjMan.RollBackCut;
+              F_ProjMan.GSDat.ObjectID := PObjectData(ComponNode.Data).ObjectID;
+              F_ProjMan.GSDat.ItemType := PObjectData(ComponNode.Data).ItemType;
+              F_ProjMan.GEditKind := ekCopy;
+
+              F_ProjMan.Act_ClearCopyBuf.Enabled := true;
+              F_ProjMan.EnablePaste;
+              //вставить на трассу
+              F_ProjMan.GTNode := NewTraceNode;
+              F_ProjMan.GSNode := ComponNode;
+              F_ProjMan.PasteNode(F_ProjMan.GSNode, F_ProjMan.GTNode, @F_ProjMan.GSDat, F_ProjMan.GEditKind);
+            end;
+          end;
+          //трасса со второй стороны, если есть
+          JoinedLine := nil;
+          for i := 0 to TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList.Count - 1 do
+          begin
+            if TOrthoLine(TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList[i]).ID <> SCSLine.ID then
+            begin
+              JoinedLine := TOrthoLine(TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList[i]);
+              break;
+            end;
+          end;
+
+          if JoinedLine <> nil then
+          begin
+            NewTraceNode := F_ProjMan.FindComponOrDirInTreeByList(SCSList.Id, JoinedLine.ID, False); //
+            if NewTraceNode <> nil then
+            begin
+              //Скопировать трубу
+              F_ProjMan.RollBackCut;
+              F_ProjMan.GSDat.ObjectID := PObjectData(ComponNode.Data).ObjectID;
+              F_ProjMan.GSDat.ItemType := PObjectData(ComponNode.Data).ItemType;
+              F_ProjMan.GEditKind := ekCopy;
+
+              F_ProjMan.Act_ClearCopyBuf.Enabled := true;
+              F_ProjMan.EnablePaste;
+              //вставить на трассу
+              F_ProjMan.GTNode := NewTraceNode;
+              F_ProjMan.GSNode := ComponNode;
+              F_ProjMan.PasteNode(F_ProjMan.GSNode, F_ProjMan.GTNode, @F_ProjMan.GSDat, F_ProjMan.GEditKind);
+            end;
+          end;
+        end;
+      end;
+    end;
+    //
+    //шлепаем объекты
+    for i := 0 to FaceList.Count - 1 do
+    begin
+      GCadForm.PCad.Faces.Remove(TFaceRecord(FaceList[i]));
+      TfaceRecord(FaceList[i]).Free;
+    end;
+    FaceList.clear;
+    for i := 0 to ObjList.Count - 1 do
+    begin
+      DummyCube.Remove(TGLBaseSceneObject(ObjList[i]), false);
+      TGLBaseSceneObject(ObjList[i]).Free;
+    end;
+    ObjList.Clear;
+    for i := 0 to Obj3dList.Count - 1 do
+    begin
+      if frm3d.F3DModel.FScsObjects.IndexOf(Obj3dList[i]) <> -1 then
+       frm3d.F3DModel.FScsObjects.Remove(Obj3dList[i]);
+
+      TObject(Obj3dList[i]).Free;
+    end;
+    Obj3dList.Free;
+
+    //собрать СКС-объекты, которые задел сдвиг
+    SCSObjList := TList.Create;
+    SCSObjList.Add(SCSLine);
+    SCSObjList.Add(SCSLine.JoinConnector1);
+    SCSObjList.Add(SCSLine.JoinConnector2);
+
+    if TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList.Count > 1 then
+    begin
+      for i := 0 to TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList.Count - 1 do
+      begin
+        JoinedLine := TOrthoLine(TConnectorObject(SCSLine.JoinConnector1).JoinedOrtholinesList[i]);
+        if JoinedLine <> SCSLine then
+        begin
+          if SCSObjList.IndexOf(JoinedLine) = -1 then
+          begin
+            SCSObjList.Add(JoinedLine);
+            if JoinedLine.JoinConnector1 = SCSLine.JoinConnector1 then
+            begin
+              if SCSObjList.IndexOf(JoinedLine.JoinConnector2) = -1 then
+                SCSObjList.Add(JoinedLine.JoinConnector2);
+            end
+            else
+            begin
+              if SCSObjList.IndexOf(JoinedLine.JoinConnector1) = -1 then
+                SCSObjList.Add(JoinedLine.JoinConnector1);
+            end;
+          end;
+        end;
+      end;
+    end;
+
+    if TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList.Count > 1 then
+    begin
+      for i := 0 to TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList.Count - 1 do
+      begin
+        JoinedLine := TOrthoLine(TConnectorObject(SCSLine.JoinConnector2).JoinedOrtholinesList[i]);
+        if JoinedLine <> SCSLine then
+        begin
+          if SCSObjList.IndexOf(JoinedLine) = -1 then
+          begin
+            SCSObjList.Add(JoinedLine);
+            if JoinedLine.JoinConnector1 = SCSLine.JoinConnector2 then
+            begin
+              if SCSObjList.IndexOf(JoinedLine.JoinConnector2) = -1 then
+                SCSObjList.Add(JoinedLine.JoinConnector2);
+            end
+            else
+            begin
+              if SCSObjList.IndexOf(JoinedLine.JoinConnector1) = -1 then
+                SCSObjList.Add(JoinedLine.JoinConnector1);
+            end;
+          end;
+        end;
+      end;
+    end;
+    //перепарсить
+    j := frm3d.F3DModel.FScsObjects.Count;
+    Frm3D.F3DModel.CollectScsModel(FaceList, SCSObjList);
+
+    //Закинуть дерево Tolik 22/06/2025 --
+    CadListNode := nil;
+    for i := 0 to SCSModelTree.Items.Count - 1 do
+    begin
+      if TObject(SCSModelTree.Items[i].Data).ClassNAme = 'TF_CAD' then
+      begin
+        if TF_Cad(SCSModelTree.Items[i].Data).FCADListID = TF_CAD(TPowercad(SCSLine.Owner).Owner).FCADListID then
+        begin
+          CadListNode := SCSModelTree.Items[i];
+          break;
+        end;
+      end;
+    end;
+
+    if CadListNode <> nil then
+    begin
+      LastConnID := -1;
+      for i := frm3d.F3DModel.FScsObjects.Count - 1 downto j do
+      begin
+        if TObject(frm3d.F3DModel.FScsObjects[i]) is T3DConnector then
+        begin
+          xConn := T3DConnector(frm3d.F3DModel.FScsObjects[i]);
+          if (xConn.FListID <> GCadForm.FCADListID) then
+            Continue;
+          if (xConn.FConnType = ct_Empty) then
+          begin
+            // Tolik 24/09/2018 - -
+            //xConn.FFace.F3DObject := xConn;
+            //Continue;
+            if not xConn.FisPipeElement then
+            begin
+              xConn.FFace.F3DObject := xConn;
+              Continue;
+            end
+            else
+            begin
+              //Tolik 07/05/2025 --
+              if ((xConn.FSCSComponID <> -1) and (xConn.FSCSComponID = LastConnID)) then
+              begin
+                xScsNode := DuplicateNodeTree.Items.AddChild(nil, xConn.FName);;
+                xScsNode.Data := xConn;
+                xScsNode.ImageIndex := 3;
+                xScsNode.SelectedIndex := xScsNode.ImageIndex;
+                xConn.FFace.FTreeNode := xScsNode;
+              end
+              else
+              begin
+                LastConnID := xConn.FSCSComponID;
+                xScsNode := ScsModelTree.Items.AddChild(CadListNode, xConn.FName);
+                xScsNode.Data := xConn;
+                xScsNode.ImageIndex := 3;
+                xScsNode.SelectedIndex := xScsNode.ImageIndex;
+                xConn.FFace.FTreeNode := xScsNode;
+              end;
+            end;
+          end
+          else
+          begin
+            xScsNode := ScsModelTree.Items.AddChild(CadListNode, xConn.FName);
+            xScsNode.Data := xConn;
+            xScsNode.ImageIndex := 3;
+            xScsNode.SelectedIndex := xScsNode.ImageIndex;
+            xConn.FFace.FTreeNode := xScsNode;
+            //Tolik 15/10/2018 --
+           // if xConn.F3dModelFileName <> '' then
+            xConn.FFace.F3DObject := xConn;
+          end;
+        end;
+        if TObject(frm3d.F3DModel.FScsObjects[i]) is T3DLine then
+        begin
+          xLine := T3DLine(frm3d.F3DModel.FScsObjects[i]);
+          if (xLine.FListID <> FCAD.FCADListID) then
+            Continue;
+          xScsNode:= ScsModelTree.Items.AddChild(CadListNode, xLine.FName);
+          xScsNode.Data := xLine;
+          xScsNode.ImageIndex := 2;
+          xScsNode.SelectedIndex := xScsNode.ImageIndex;
+          xLine.FFace.FTreeNode := xScsNode;
+        end;
+      end;
+    end;
+    //3D
+    UpdateFaces(FaceList);
+
+    GCadForm := SavedGCadForm;
+  end;
+  //
 begin
   //if not GLSceneViewer.Focused then
   //begin
@@ -12606,6 +13138,7 @@ begin
   if CTrlDown then
     MoveDelta := 0.1;
 
+
   if FMode = F3DFirstPerson then
   begin
     case klPress of
@@ -12882,6 +13415,52 @@ begin
         //MovedConn: T3DConnector;
         //MovedComponent: T3DComponent;
 
+        //Tolik 17/06/2025 -- если зажато и SHIFT и CTRL то пробуем создать новый объект
+        //(пока что, если выбрана трасса или труба)
+        if (shiftDown and CTrlDown) then
+        begin
+          if FSelection.Count = 1 then
+          begin
+            //выбранный объект должен быть только один
+            glObject := TGLFreeForm(FSelection[0]);
+            LineToMove := nil;
+            //если выбрана труба
+            if TObject(TTreeNode(glObject.tagObject).Data).ClassName = 'T3DLineComponent' then
+            begin  //пока без проверки
+              ParentNode := TTreeNode(glObject.tagObject).Parent;
+              while ParentNode <> nil do
+              begin
+                if TObject(ParentNode.data).ClassName = 'T3DLine' then
+                begin
+                  LineToMove := T3dLine(ParentNode.Data);
+                  ParentNode := nil;
+                end
+                else
+                  ParentNode := ParentNode.Parent;
+              end;
+            end
+            else
+            begin //если выбрана трасса
+              if TObject(TTreeNode(glObject.tagObject).Data).ClassName = 'T3DLine' then
+                LineToMove := T3dLine(TTreeNode(glObject.tagObject).Data);
+            end;
+            if LineToMove <> nil then
+            begin
+              if LineToMove.FSCSObject <> nil then
+              begin
+                if LineToMove.FSCSObject.ClassNAme = ctOrtholine then
+                begin
+                  dp1.x := ((dp.x*0.25)/factor)*10;
+                  dp1.y := ((dp.y*0.25)/factor);
+                  dp1.z := ((dp.z*0.25)/factor)*10;
+                  CreateNewSCSLineOnMove(dp1, LineToMove);
+                  exit;
+                end;
+              end;
+            end;
+          end;
+        end;
+        //
         if TglBaseSceneObject(FSelection[0]).TagObject <> nil then
         begin
           currNode := TTreeNode(TglBaseSceneObject(FSelection[0]).TagObject);
diff --git a/SRC/ARCH/U_Arch3DNew.pas b/SRC/ARCH/U_Arch3DNew.pas
index 5025e61..03fb271 100644
--- a/SRC/ARCH/U_Arch3DNew.pas
+++ b/SRC/ARCH/U_Arch3DNew.pas
@@ -5874,9 +5874,6 @@ begin
   FScsObjects.free;
   //
 
-
-
-
   FGroupNet := nil;
   FHashs.free;
   F3DSHashs.free;
diff --git a/SRC/Main/U_CAD.dfm b/SRC/Main/U_CAD.dfm
index 593b7c7..6c18b46 100644
--- a/SRC/Main/U_CAD.dfm
+++ b/SRC/Main/U_CAD.dfm
@@ -1,6 +1,6 @@
 object F_CAD: TF_CAD
-  Left = 274
-  Top = 261
+  Left = 254
+  Top = 27
   Margins.Left = 0
   Margins.Top = 0
   Margins.Right = 0
diff --git a/SRC/SCSNormBase/U_BaseConstantsUKR.pas b/SRC/SCSNormBase/U_BaseConstantsUKR.pas
index 9aeaf7d..af41957 100644
--- a/SRC/SCSNormBase/U_BaseConstantsUKR.pas
+++ b/SRC/SCSNormBase/U_BaseConstantsUKR.pas
@@ -1754,6 +1754,7 @@
     cMakeEditComponentType_Msg7 = 'Опис';
     cMakeEditComponentType_Msg8 = 'Перед тим, як задати шаблон, необхідно визначити системне ім'+''''+'я';
     cMakeEditComponentType_Msg9 = 'Висота розміщення компонентів';
+    cMakeEditComponentType_Msg10 = 'Лоток проволочний';
 
     //------------------------------
     cMakeEditCrossConnection_Msg1_1 = 'По кабелям';