Design done
This commit is contained in:
@@ -1,190 +1,151 @@
|
||||
<Window
|
||||
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
|
||||
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
|
||||
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
|
||||
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
|
||||
xmlns:materialDesign="http://materialdesigninxaml.net/winfx/xaml/themes"
|
||||
x:Name="MainWindow"
|
||||
x:Class="MainWindow"
|
||||
TextElement.Foreground="{DynamicResource MaterialDesignBody}"
|
||||
TextElement.FontWeight="Regular"
|
||||
TextElement.FontSize="13"
|
||||
TextOptions.TextFormattingMode="Ideal"
|
||||
TextOptions.TextRenderingMode="Auto"
|
||||
Background="{DynamicResource MaterialDesignPaper}"
|
||||
FontFamily="{DynamicResource MaterialDesignFont}"
|
||||
mc:Ignorable="d"
|
||||
Title="Dokumentáció készítő"
|
||||
Height="417"
|
||||
Width="614"
|
||||
FontSize="13"
|
||||
WindowStyle="None"
|
||||
ResizeMode="NoResize"
|
||||
WindowStartupLocation="CenterScreen"
|
||||
SizeToContent="WidthAndHeight"
|
||||
MinHeight="370"
|
||||
MaxHeight="370">
|
||||
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
|
||||
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
|
||||
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
|
||||
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
|
||||
xmlns:materialDesign="http://materialdesigninxaml.net/winfx/xaml/themes"
|
||||
x:Class="MainWindow"
|
||||
x:Name="MainWindow"
|
||||
TextElement.Foreground="{DynamicResource MaterialDesignBody}"
|
||||
TextElement.FontWeight="Regular"
|
||||
TextElement.FontSize="13"
|
||||
TextOptions.TextFormattingMode="Ideal"
|
||||
TextOptions.TextRenderingMode="Auto"
|
||||
Background="{DynamicResource MaterialDesignPaper}"
|
||||
FontFamily="{DynamicResource MaterialDesignFont}"
|
||||
mc:Ignorable="d"
|
||||
Title="Dokumentáció készítő"
|
||||
MinWidth="630"
|
||||
MinHeight="250"
|
||||
WindowStyle="None"
|
||||
ResizeMode="NoResize"
|
||||
SizeToContent="WidthAndHeight"
|
||||
WindowStartupLocation="CenterScreen" Height="283">
|
||||
|
||||
|
||||
<!-- ******** THEME ******** -->
|
||||
<Window.Resources>
|
||||
<!-- Correct BundledTheme usage -->
|
||||
<materialDesign:BundledTheme
|
||||
BaseTheme="Light"
|
||||
PrimaryColor="Teal"
|
||||
SecondaryColor="Teal" />
|
||||
<materialDesign:BundledTheme BaseTheme="Light"
|
||||
PrimaryColor="Teal"
|
||||
SecondaryColor="Teal" />
|
||||
</Window.Resources>
|
||||
|
||||
<Grid x:Name="MainGrid" HorizontalAlignment="Center" Height="360" VerticalAlignment="Top" Width="614">
|
||||
<Grid.RowDefinitions>
|
||||
<RowDefinition Height="14*"/>
|
||||
<RowDefinition Height="173*"/>
|
||||
</Grid.RowDefinitions>
|
||||
<!-- ******** ROOT LAYOUT (DockPanel) ******** -->
|
||||
<DockPanel Margin="0,0,0,-18">
|
||||
|
||||
<Label Content="Dokumentáció készítő" Height="22" VerticalAlignment="Top" FontSize="14" MouseDown="Label_MouseDown" HorizontalAlignment="Left" Width="462"/>
|
||||
<!-- === TITLE BAR (VS Code-like) === -->
|
||||
<Grid DockPanel.Dock="Top" Height="30"
|
||||
Background="{DynamicResource PrimaryHueMidBrush}"
|
||||
MouseDown="Label_MouseDown">
|
||||
<Grid.ColumnDefinitions>
|
||||
<ColumnDefinition/>
|
||||
<ColumnDefinition Width="Auto"/>
|
||||
</Grid.ColumnDefinitions>
|
||||
|
||||
<TabControl Style="{StaticResource MaterialDesignTabControl}" Margin="0,27,0,2" HorizontalAlignment="Left" Width="600" Grid.RowSpan="2">
|
||||
<TabControl.Background>
|
||||
<ImageBrush/>
|
||||
</TabControl.Background>
|
||||
<TextBlock Text="Dokumentáció készítő"
|
||||
VerticalAlignment="Center"
|
||||
Margin="10,0,0,0"
|
||||
Foreground="White"
|
||||
FontWeight="SemiBold"/>
|
||||
|
||||
<TabItem Header="DOKSI készítő" FontSize="13" Width="140">
|
||||
<Grid HorizontalAlignment="Left" Width="600" Margin="0,0,0,-6" Height="325" VerticalAlignment="Top">
|
||||
<Button x:Name="CreateDocument" Content="Dokumentáció készítése" HorizontalAlignment="Left" Margin="434,222,0,0" VerticalAlignment="Top" Width="156" RenderTransformOrigin="0.785,1.101"/>
|
||||
<ListBox x:Name="ListBox1" Height="52" Margin="542,176,-396,0" VerticalAlignment="Top" Background="{x:Null}" BorderThickness="2" BorderBrush="#FFECE0E0"/>
|
||||
<StackPanel Margin="10,10,0,0" HorizontalAlignment="Left" Width="180">
|
||||
<GroupBox Header="Dokumentáció típusa" Padding="5">
|
||||
<StackPanel>
|
||||
<CheckBox x:Name="PDFCheckBox" Content="PDF"/>
|
||||
<CheckBox x:Name="DXFCheckBox" Content="DXF"/>
|
||||
<CheckBox x:Name="XLSCheckbox" Content="XLS"/>
|
||||
<CheckBox x:Name="TIFFCheckbox" Content="TIFF"/>
|
||||
</StackPanel>
|
||||
</GroupBox>
|
||||
</StackPanel>
|
||||
<StackPanel Margin="0,10,215,243" HorizontalAlignment="Right" Width="180">
|
||||
<GroupBox Header="Dokumentáció" Padding="5">
|
||||
<StackPanel>
|
||||
<RadioButton x:Name="NamingSyntaxStefani" Content="Stefani"/>
|
||||
<RadioButton x:Name="NamingSyntaxAudi" Content="Audi"/>
|
||||
</StackPanel>
|
||||
</GroupBox>
|
||||
</StackPanel>
|
||||
<StackPanel Margin="10,126,0,71" HorizontalAlignment="Left" Width="250">
|
||||
<GroupBox Header="Egyéb" Padding="5">
|
||||
<StackPanel>
|
||||
<CheckBox x:Name="AutomaticFolderSelect" Content="Automatikus mappa választás"/>
|
||||
<CheckBox x:Name="PDFOsszeCheckBox" Content="PDF összefűzése"/>
|
||||
</StackPanel>
|
||||
</GroupBox>
|
||||
</StackPanel>
|
||||
<GroupBox Header="Rajz használat módja" Margin="390,10,0,0" Width="200" HorizontalAlignment="Left" VerticalAlignment="Top" Padding="5">
|
||||
<!-- Window-control buttons -->
|
||||
<StackPanel Grid.Column="1" Orientation="Horizontal">
|
||||
<Button x:Name="CloseButton"
|
||||
Click="ExitButton_Click"
|
||||
Style="{StaticResource MaterialDesignFlatButton}"
|
||||
FontFamily="Segoe MDL2 Assets"
|
||||
Content=""
|
||||
Width="45" Height="30"
|
||||
Foreground="DarkRed"/>
|
||||
</StackPanel>
|
||||
</Grid>
|
||||
|
||||
<!-- === MAIN CONTENT AREA === -->
|
||||
<Grid x:Name="MainGrid"
|
||||
Margin="10" Height="261">
|
||||
|
||||
<Grid Width="600" HorizontalAlignment="Center" Margin="0,0,0,-81">
|
||||
|
||||
<!-- Dokumentáció készítése gomb -->
|
||||
<Button x:Name="CreateDocument"
|
||||
Content="Dokumentáció készítése"
|
||||
HorizontalAlignment="Left"
|
||||
Margin="434,206,0,0"
|
||||
VerticalAlignment="Top"
|
||||
Width="156" />
|
||||
|
||||
<!-- listbox placeholder -->
|
||||
<ListBox x:Name="ListBox1"
|
||||
Margin="265,126,10,0"
|
||||
Background="{x:Null}"
|
||||
BorderThickness="2"
|
||||
BorderBrush="#FFECE0E0" Height="70" VerticalAlignment="Top"/>
|
||||
|
||||
<!-- BAL OLDALI CSOPORTOK -->
|
||||
<StackPanel Margin="10,10,0,0" HorizontalAlignment="Left" Width="180">
|
||||
<GroupBox Header="Dokumentáció típusa" Padding="5">
|
||||
<StackPanel>
|
||||
<RadioButton x:Name="MaterialRadioButton3" Content="Aktív rajz használata"/>
|
||||
<RadioButton x:Name="KulonAloRajzok" Content="Különálló rajzok használata"/>
|
||||
<CheckBox x:Name="PDFCheckBox" Content="PDF"/>
|
||||
<CheckBox x:Name="DXFCheckBox" Content="DXF"/>
|
||||
<CheckBox x:Name="XLSCheckbox" Content="XLS"/>
|
||||
<CheckBox x:Name="TIFFCheckbox" Content="TIFF"/>
|
||||
</StackPanel>
|
||||
</GroupBox>
|
||||
<Button x:Name="Files_Browse" Content="Böngészés" HorizontalAlignment="Left" Margin="390,87,0,0" VerticalAlignment="Top" Width="200" RenderTransformOrigin="0.785,1.101" Height="30" FontSize="8"/>
|
||||
<Grid HorizontalAlignment="Left" Height="32" Margin="10,222,0,0" VerticalAlignment="Top" Width="419">
|
||||
<Grid.ColumnDefinitions>
|
||||
<ColumnDefinition Width="308*"/>
|
||||
<ColumnDefinition Width="111*"/>
|
||||
</Grid.ColumnDefinitions>
|
||||
<ProgressBar x:Name="Progressbar" HorizontalAlignment="Left" Height="32" VerticalAlignment="Center" Width="419" Grid.ColumnSpan="2" />
|
||||
<Label x:Name="ProgressText" Content="" HorizontalAlignment="Left" VerticalAlignment="Center" Height="22" Margin="206,0,0,0"/>
|
||||
</Grid>
|
||||
<CheckBox x:Name="DWGCheckBox" HorizontalAlignment="Left" Margin="109,55,0,0" VerticalAlignment="Top" Content="DWG" RenderTransformOrigin="0.763,0.741"/>
|
||||
</StackPanel>
|
||||
|
||||
<StackPanel Margin="0,10,215,252" HorizontalAlignment="Right" Width="190">
|
||||
<GroupBox Header="Dokumentáció " Padding="5" Height="73">
|
||||
<StackPanel>
|
||||
<RadioButton x:Name="NamingSyntaxStefani" Content="Robotizálunk"/>
|
||||
<RadioButton x:Name="NamingSyntaxAudi" Content="Audi"/>
|
||||
</StackPanel>
|
||||
</GroupBox>
|
||||
</StackPanel>
|
||||
|
||||
<StackPanel Margin="10,126,0,71" HorizontalAlignment="Left" Width="250">
|
||||
<GroupBox Header="Egyéb" Padding="5">
|
||||
<StackPanel>
|
||||
<CheckBox x:Name="AutomaticFolderSelect" Content="Automatikus mappa választás"/>
|
||||
<CheckBox x:Name="PDFOsszeCheckBox" Content="PDF összefűzése"/>
|
||||
</StackPanel>
|
||||
</GroupBox>
|
||||
</StackPanel>
|
||||
|
||||
<!-- Rajz használat módja -->
|
||||
<GroupBox Header="Rajz használat módja"
|
||||
Margin="390,10,0,235" Width="200" HorizontalAlignment="Left" Padding="5">
|
||||
<StackPanel>
|
||||
<RadioButton x:Name="MaterialRadioButton3" Content="Aktív rajz használata"/>
|
||||
<RadioButton x:Name="KulonAloRajzok" Content="Különálló rajzok használata"/>
|
||||
</StackPanel>
|
||||
</GroupBox>
|
||||
|
||||
<!-- Böngészés gomb -->
|
||||
<Button x:Name="Files_Browse"
|
||||
Content="Böngészés"
|
||||
HorizontalAlignment="Left"
|
||||
Margin="390,87,0,0"
|
||||
VerticalAlignment="Top"
|
||||
Width="200" Height="30"
|
||||
FontSize="10"/>
|
||||
|
||||
<!-- Progress bar -->
|
||||
<Grid HorizontalAlignment="Left" Height="32" Margin="8,206,0,0" VerticalAlignment="Top" Width="420">
|
||||
<Grid.ColumnDefinitions>
|
||||
<ColumnDefinition Width="241*"/>
|
||||
<ColumnDefinition Width="68*"/>
|
||||
<ColumnDefinition Width="111"/>
|
||||
</Grid.ColumnDefinitions>
|
||||
<ProgressBar x:Name="Progressbar" Height="32" Width="419" Grid.ColumnSpan="3" Margin="0,0,1,0"/>
|
||||
<Label x:Name="ProgressText" Height="22" Margin="50,0,72,0"
|
||||
VerticalAlignment="Center" Grid.ColumnSpan="3"/>
|
||||
</Grid>
|
||||
</TabItem>
|
||||
|
||||
<TabItem Header="Egyéb" IsEnabled="False">
|
||||
<Grid>
|
||||
<TabControl HorizontalAlignment="Right" Width="500" Height="297" VerticalAlignment="Top" Background="{x:Null}" IsEnabled="False">
|
||||
<TabItem Header="Drw osztó">
|
||||
<TabItem.RenderTransform>
|
||||
<TransformGroup>
|
||||
<ScaleTransform/>
|
||||
<SkewTransform AngleY="-0.415"/>
|
||||
<RotateTransform/>
|
||||
<TranslateTransform Y="0.326"/>
|
||||
</TransformGroup>
|
||||
</TabItem.RenderTransform>
|
||||
<Grid Margin="0,0,0,-1">
|
||||
<Grid.RowDefinitions>
|
||||
<RowDefinition Height="33*"/>
|
||||
<RowDefinition Height="8*"/>
|
||||
</Grid.RowDefinitions>
|
||||
<Button x:Name="drwSplitButton" Content="Split" HorizontalAlignment="Left" Margin="10,54,0,0" VerticalAlignment="Top" Width="91" RenderTransformOrigin="0.785,1.101"/>
|
||||
<CheckBox x:Name="AktualisRajzRadioButton" HorizontalAlignment="Left" Margin="10,91,0,0" VerticalAlignment="Top" Content="Aktuális rajz mentése" Width="156"/>
|
||||
<Button x:Name="test" Content="Split" HorizontalAlignment="Left" Margin="393,54,0,0" VerticalAlignment="Top" Width="91" RenderTransformOrigin="0.785,1.101"/>
|
||||
<CheckBox x:Name="RajzCsereRadioButton" HorizontalAlignment="Left" Margin="328,91,0,0" VerticalAlignment="Top" Content="Rajz csere" Width="156"/>
|
||||
</Grid>
|
||||
</TabItem>
|
||||
<TabItem Header="Purge">
|
||||
<Grid>
|
||||
<CheckBox x:Name="PRTCheckBox" HorizontalAlignment="Left" Margin="10,104,0,0" VerticalAlignment="Top" Content="PRT" RenderTransformOrigin="-0.023,5.167"/>
|
||||
<CheckBox x:Name="ASMCheckBox" HorizontalAlignment="Left" Margin="114,104,0,0" VerticalAlignment="Top" Content="ASM"/>
|
||||
<CheckBox x:Name="DRWCheckBox" HorizontalAlignment="Left" Margin="58,104,0,0" VerticalAlignment="Top" Content="DRW"/>
|
||||
<Button x:Name="FixNamesButton" Content="Fix names" HorizontalAlignment="Left" Margin="124,67,0,0" VerticalAlignment="Top" Width="94" RenderTransformOrigin="0.785,1.101"/>
|
||||
<Button x:Name="PurgeBongeszesButton" Content="Böngészés" HorizontalAlignment="Left" Margin="10,67,0,0" VerticalAlignment="Top" Width="109" RenderTransformOrigin="0.785,1.101"/>
|
||||
<CheckBox x:Name="subdirctories" HorizontalAlignment="Left" Margin="179,104,0,0" VerticalAlignment="Top" Content="ASM"/>
|
||||
</Grid>
|
||||
</TabItem>
|
||||
<TabItem Header="Translator">
|
||||
<Grid Height="287" VerticalAlignment="Top" Margin="0,0,2,0">
|
||||
<Button x:Name="Button1" Content="Button" HorizontalAlignment="Left" Margin="10,137,0,0" VerticalAlignment="Top" Width="75"/>
|
||||
<CheckBox x:Name="PromtTranslateCBOX" Content="CheckBox" HorizontalAlignment="Left" Margin="10,174,0,0" VerticalAlignment="Top"/>
|
||||
</Grid>
|
||||
</TabItem>
|
||||
</TabControl>
|
||||
</Grid>
|
||||
</TabItem>
|
||||
|
||||
<TabItem Header="Nényjegy" Width="124" IsEnabled="False">
|
||||
<Grid>
|
||||
<Image HorizontalAlignment="Center" Height="98" Margin="46,70,48,129" VerticalAlignment="Center" Width="406" Source="logo.png" Stretch="Fill"/>
|
||||
</Grid>
|
||||
</TabItem>
|
||||
|
||||
<Image Height="100" Width="100"/>
|
||||
|
||||
</TabControl>
|
||||
<Button
|
||||
HorizontalAlignment="Right"
|
||||
VerticalAlignment="Top"
|
||||
Width="40"
|
||||
Height="40"
|
||||
Click="Button_Click"
|
||||
Background="Transparent"
|
||||
BorderBrush="DarkRed"
|
||||
BorderThickness="1"
|
||||
ToolTip="Exit" Grid.RowSpan="2">
|
||||
<Button.Content>
|
||||
<TextBlock
|
||||
Text="✕"
|
||||
FontSize="32"
|
||||
Foreground="DarkRed"
|
||||
HorizontalAlignment="Center"
|
||||
VerticalAlignment="Center"
|
||||
TextAlignment="Center"
|
||||
/>
|
||||
</Button.Content>
|
||||
<Button.Style>
|
||||
<Style TargetType="Button" BasedOn="{StaticResource MaterialDesignFlatButton}">
|
||||
<Setter Property="Background" Value="Transparent" />
|
||||
<Setter Property="BorderBrush" Value="DarkRed" />
|
||||
<Setter Property="BorderThickness" Value="1" />
|
||||
<Style.Triggers>
|
||||
<Trigger Property="IsMouseOver" Value="True">
|
||||
<Setter Property="Background" Value="#30FF0000" />
|
||||
</Trigger>
|
||||
<Trigger Property="IsPressed" Value="True">
|
||||
<Setter Property="Background" Value="#50FF0000" />
|
||||
</Trigger>
|
||||
</Style.Triggers>
|
||||
</Style>
|
||||
</Button.Style>
|
||||
</Button>
|
||||
|
||||
|
||||
|
||||
</Grid>
|
||||
</Window>
|
||||
<!-- DWG jelölő négyzet -->
|
||||
<CheckBox x:Name="DWGCheckBox" Content="DWG"
|
||||
HorizontalAlignment="Left"
|
||||
Margin="100,56,0,0"
|
||||
VerticalAlignment="Top"/>
|
||||
</Grid>
|
||||
</Grid>
|
||||
</DockPanel>
|
||||
</Window>
|
||||
@@ -117,10 +117,6 @@ Public Class MainWindow
|
||||
XLSCheckbox.IsChecked = True
|
||||
NamingSyntaxStefani.IsChecked = True
|
||||
namingsyntax = "stefani"
|
||||
AktualisRajzRadioButton.IsChecked = True
|
||||
|
||||
|
||||
|
||||
|
||||
If params.Contains("-arg") Then
|
||||
Try
|
||||
@@ -379,51 +375,10 @@ Public Class MainWindow
|
||||
conn.Disconnect(1)
|
||||
|
||||
End Sub
|
||||
Private Sub PurgeBongeszesButton_Click(sender As Object, e As EventArgs) Handles PurgeBongeszesButton.Click
|
||||
|
||||
Dim mydig As New Ookii.Dialogs.Wpf.VistaFolderBrowserDialog
|
||||
mydig.ShowDialog()
|
||||
|
||||
Dim PurgeSelectedPath = mydig.SelectedPath() + "\"
|
||||
|
||||
Try
|
||||
My.Computer.FileSystem.DeleteFile(Path.GetTempPath() + "FilesDeletedRenamed.txt")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
Dim TempTxtFile As String = Path.GetTempPath() + "FilesDeletedRenamed.txt"
|
||||
Dim fs As FileStream = File.Create(TempTxtFile)
|
||||
fs.Close()
|
||||
Dim allDirectories = System.IO.Directory.EnumerateDirectories(PurgeSelectedPath, "*", System.IO.SearchOption.AllDirectories)
|
||||
'Dim allDirectoriesList As String()
|
||||
|
||||
|
||||
For Each DirD In allDirectories
|
||||
' MsgBox(DirD)
|
||||
|
||||
If PRTCheckBox.IsChecked = True Then
|
||||
Purge.Purge(DirD, 1, ".prt", True, False, TempTxtFile)
|
||||
End If
|
||||
If ASMCheckBox.IsChecked = True Then
|
||||
Purge.Purge(DirD, 1, ".asm", True, False, TempTxtFile)
|
||||
End If
|
||||
If DRWCheckBox.IsChecked = True Then
|
||||
Purge.Purge(DirD, 1, ".drw", True, False, TempTxtFile)
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
Process.Start(Path.GetTempPath() + "FilesDeletedRenamed.txt")
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub drwSplitButton_Click_1(sender As Object, e As EventArgs) Handles drwSplitButton.Click
|
||||
|
||||
TakeAway()
|
||||
|
||||
End Sub
|
||||
'Radio Buttons
|
||||
Private Sub MaterialRadioButton4_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -657,7 +612,7 @@ Public Class MainWindow
|
||||
'Handles sheets on drw
|
||||
|
||||
|
||||
ParamaterChecker(model1)
|
||||
|
||||
|
||||
' ChangeSheets(model1, session, Drawing)
|
||||
|
||||
@@ -1523,175 +1478,7 @@ Public Class MainWindow
|
||||
iParamValueStr = iParamValue.StringValue
|
||||
End Sub
|
||||
'drw Split sub
|
||||
Private Sub TakeAway()
|
||||
Dim session As IpfcBaseSession = Nothing
|
||||
Dim conn As IpfcAsyncConnection = Nothing
|
||||
Connect(session, conn)
|
||||
Dim model1 As IpfcModel
|
||||
Dim sheetowner As IpfcSheetOwner = Nothing
|
||||
Dim Drawing As IpfcDrawing = Nothing
|
||||
Dim model2d As IpfcModel2D
|
||||
Dim cmodels As CpfcModels
|
||||
Dim oModelDescriptor As IpfcModelDescriptor = Nothing
|
||||
Dim oModelDescriptorCreate As New CCpfcModelDescriptor
|
||||
Dim options As IpfcRetrieveModelOptions = Nothing
|
||||
Dim NewWorkingDir As String
|
||||
Dim OldWorkDir As String
|
||||
Dim model2 As IpfcModel = Nothing
|
||||
|
||||
' Dim copyins As New CopyInstructions
|
||||
model1 = session.CurrentModel
|
||||
Dim model1name As String = model1.FileName
|
||||
sheetowner = model1
|
||||
Dim numberorsheets As Integer = sheetowner.NumberOfSheets
|
||||
Dim oPath As String = Path.GetDirectoryName(model1.Origin)
|
||||
|
||||
Dim mydig As New Ookii.Dialogs.Wpf.VistaFolderBrowserDialog
|
||||
mydig.ShowDialog()
|
||||
NewWorkingDir = mydig.SelectedPath() + "\"
|
||||
|
||||
OldWorkDir = session.GetCurrentDirectory
|
||||
session.ChangeDirectory(NewWorkingDir)
|
||||
|
||||
For k = 1 To numberorsheets
|
||||
sheetowner = model1
|
||||
If Not AktualisRajzRadioButton.IsChecked = True Then
|
||||
sheetowner.CurrentSheetNumber = k
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim h As Integer = 1
|
||||
Dim numberofsheetsforloop As Integer
|
||||
If k = 1 And AktualisRajzRadioButton.IsChecked = False Then
|
||||
numberofsheetsforloop = numberorsheets
|
||||
Else
|
||||
numberofsheetsforloop = numberorsheets - 1
|
||||
End If
|
||||
|
||||
For j = 1 To numberofsheetsforloop
|
||||
If Not sheetowner.CurrentSheetNumber = h Then
|
||||
sheetowner.DeleteSheet(h)
|
||||
End If
|
||||
If Not h = sheetowner.CurrentSheetNumber Then
|
||||
h = h - 1
|
||||
End If
|
||||
h = h + 1
|
||||
Next
|
||||
|
||||
model2d = model1
|
||||
|
||||
cmodels = model2d.ListModels()
|
||||
For i = 0 To cmodels.Count - 1
|
||||
Try
|
||||
model2d.DeleteModel(cmodels.Item(i))
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Next
|
||||
|
||||
Dim FileNameMod As String
|
||||
namingsyntax = "stefani"
|
||||
|
||||
FileNameMod = model1.FileName
|
||||
|
||||
FileNames.Add(FileNameMod)
|
||||
HandleNames(FileNameMod, 0, 0, ".DRW", model1)
|
||||
Console.WriteLine(FileNameMod)
|
||||
|
||||
Dim savedName As String = Strings.Left(Path.GetFileName(FileNameMod), Path.GetFileName(FileNameMod).Length - 4)
|
||||
Dim fname As String = "r_" + Strings.Left(Path.GetFileName(FileNameMod), Path.GetFileName(FileNameMod).Length - 4)
|
||||
|
||||
Try
|
||||
model1.Copy(savedName, Nothing)
|
||||
Catch ex As Exception
|
||||
model1.Copy(fname, Nothing)
|
||||
End Try
|
||||
|
||||
|
||||
options = (New CCpfcRetrieveModelOptions).Create
|
||||
options.AskUserAboutReps = False
|
||||
|
||||
MsgBox(FileNameMod)
|
||||
|
||||
Dim oModelDescriptor2 As IpfcModelDescriptor
|
||||
|
||||
oModelDescriptor2 = oModelDescriptorCreate.Create(EpfcModelType.EpfcMDL_PART, FileNameMod, "")
|
||||
oModelDescriptor2.Path = oPath
|
||||
model2 = session.RetrieveModelWithOpts(oModelDescriptor2, options)
|
||||
|
||||
oModelDescriptor = oModelDescriptorCreate.Create(EpfcModelType.EpfcMDL_PART, NewWorkingDir, "")
|
||||
model2.Backup(oModelDescriptor)
|
||||
|
||||
|
||||
Dim iWindow As IpfcWindow
|
||||
iWindow = session.CurrentWindow
|
||||
iWindow.Close()
|
||||
model1name = model1.FileName
|
||||
|
||||
model1.Erase()
|
||||
options = (New CCpfcRetrieveModelOptions).Create
|
||||
options.AskUserAboutReps = False
|
||||
oModelDescriptor = oModelDescriptorCreate.Create(EpfcModelType.EpfcMDL_DRAWING, Strings.Left(model1name, model1name.Length - 4), "")
|
||||
oModelDescriptor.Path = oPath
|
||||
Try
|
||||
model1 = session.RetrieveModelWithOpts(oModelDescriptor, options)
|
||||
Catch ex As Exception
|
||||
MsgBox("Nem megefelelő munkakönyvtár?")
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
|
||||
model1 = session.RetrieveModelWithOpts(oModelDescriptor, options)
|
||||
iWindow = session.OpenFile(oModelDescriptor)
|
||||
iWindow.Activate()
|
||||
|
||||
|
||||
|
||||
|
||||
If AktualisRajzRadioButton.IsChecked = True Then
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Dim iWindows As IpfcWindows
|
||||
iWindows = session.ListWindows
|
||||
|
||||
For Each iWindow As IpfcWindow In iWindows
|
||||
iWindow.Close()
|
||||
Next
|
||||
|
||||
Dim model3 As IpfcModel
|
||||
Dim model4 As IpfcModel
|
||||
|
||||
|
||||
Dim modelToRetrive As String = model2.InstanceName
|
||||
oModelDescriptor = oModelDescriptorCreate.Create(EpfcModelType.EpfcMDL_DRAWING, modelToRetrive, "")
|
||||
|
||||
session.EraseUndisplayedModels()
|
||||
model3 = session.RetrieveModel(oModelDescriptor)
|
||||
|
||||
Dim newModelName As String
|
||||
newModelName = InputBox("Eneter new model name", "New model name", "")
|
||||
model3.Rename(newModelName, False)
|
||||
oModelDescriptor = oModelDescriptorCreate.Create(EpfcModelType.EpfcMDL_PART, modelToRetrive, "")
|
||||
|
||||
model4 = session.RetrieveModel(oModelDescriptor)
|
||||
model4.Rename(newModelName, False)
|
||||
model3.Save()
|
||||
session.EraseUndisplayedModels()
|
||||
|
||||
|
||||
|
||||
session.ChangeDirectory(OldWorkDir)
|
||||
conn.Disconnect(1)
|
||||
FileNames.Clear()
|
||||
|
||||
|
||||
End Sub
|
||||
'Don't know wtf this is atm
|
||||
Private Sub AutomatedFolderPick(ByVal session As IpfcBaseSession)
|
||||
'WTF is this?
|
||||
Dim WorkingDir As String
|
||||
@@ -2048,153 +1835,6 @@ Public Class MainWindow
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
Dim session As IpfcBaseSession = Nothing
|
||||
Dim conn As IpfcAsyncConnection = Nothing
|
||||
|
||||
Dim fs As New FileStream("Serialized.ser", FileMode.Open)
|
||||
Dim MyFormatter As New BinaryFormatter()
|
||||
|
||||
dict = MyFormatter.Deserialize(fs)
|
||||
fs.Close()
|
||||
|
||||
|
||||
|
||||
Try
|
||||
Connect(session, conn)
|
||||
Catch ex As Exception
|
||||
If ex.Message = "pfcExceptions::XToolkitAmbiguous" Then
|
||||
MsgBox("Egynél több Creo fut, kérlezk zárd be az egyiket.")
|
||||
End If
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
Dim WorkingDir As String
|
||||
WorkingDir = session.GetCurrentDirectory()
|
||||
Dim strFileSize As String = ""
|
||||
Dim di As New IO.DirectoryInfo(WorkingDir)
|
||||
Dim aryFi As IO.FileInfo() = di.GetFiles("SHM-*.prt*")
|
||||
Dim options As IpfcRetrieveModelOptions = Nothing
|
||||
Dim model1 As IpfcModel = Nothing
|
||||
Dim oWindow As IpfcWindow
|
||||
|
||||
For Each fi In aryFi
|
||||
strFileSize = (Math.Round(fi.Length / 1024)).ToString()
|
||||
Console.WriteLine("File Name: {0}", fi.FullName)
|
||||
Next
|
||||
|
||||
'Clean up list
|
||||
Dim PrtList As New List(Of String) 'prt list with duplicates
|
||||
|
||||
'remove version number from
|
||||
For Each fi In aryFi
|
||||
PrtList.Add(Path.GetFileNameWithoutExtension(Path.GetFileNameWithoutExtension(fi.Name)))
|
||||
Next
|
||||
|
||||
Dim result As List(Of String) = PrtList.Distinct().ToList 'prtlist without duplicates
|
||||
|
||||
Dim MyFile As New FileStream("Serialized.ser", FileMode.Create, FileAccess.Write, FileShare.None)
|
||||
Try
|
||||
|
||||
|
||||
For Each Strss In result
|
||||
Dim oModelDescriptor As IpfcModelDescriptor = Nothing
|
||||
Dim oModelDescriptorCreate As New CCpfcModelDescriptor
|
||||
Dim PrtNaneWE As String = Strss
|
||||
|
||||
|
||||
oModelDescriptor = oModelDescriptorCreate.Create(EpfcModelType.EpfcMDL_PART, PrtNaneWE, "")
|
||||
|
||||
options = (New CCpfcRetrieveModelOptions).Create
|
||||
options.AskUserAboutReps = False
|
||||
oModelDescriptor.Path = WorkingDir
|
||||
|
||||
model1 = session.RetrieveModelWithOpts(oModelDescriptor, options)
|
||||
|
||||
oWindow = session.OpenFile(oModelDescriptor)
|
||||
oWindow.Activate()
|
||||
Dim ParamValueR As String = ""
|
||||
|
||||
Try
|
||||
ReadParam(model1, "MEGNEVEZES_1", ParamValueR)
|
||||
Catch ex As Exception
|
||||
ParamValueR = "Nem létezik a paraméter"
|
||||
End Try
|
||||
|
||||
Dim form5window As New Form5
|
||||
|
||||
form5window.NemetMegnevezes.Text = ParamValueR
|
||||
Dim ParamValueW As String = ""
|
||||
|
||||
If dict.TryGetValue(ParamValueR, ParamValueW) = True Then
|
||||
form5window.MaterialLabel4.Background = Brushes.Green
|
||||
form5window.MaterialLabel4.Content = "Megtaláható a szótárban!"
|
||||
Else
|
||||
'form5window.MaterialLabel4.Background = SystemColors.ButtonFace
|
||||
form5window.MaterialLabel4.Content = ""
|
||||
ParamValueW = gtranslate(ParamValueR, "de", "hu")
|
||||
End If
|
||||
|
||||
form5window.MagyarMegnevezes.Text = ParamValueW
|
||||
|
||||
|
||||
|
||||
If Not PromtTranslateCBOX.IsChecked = True And dict.TryGetValue(ParamValueR, ParamValueW) = True Then
|
||||
form5window.WWClicked = "OK"
|
||||
Else
|
||||
form5window.ShowDialog()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ParamValueW = form5window.MagyarMegnevezes.Text
|
||||
|
||||
If form5window.WWClicked = "OK" Then
|
||||
WriteParam(model1, ParamValueW, "Megnevezes_1")
|
||||
|
||||
If ParamValueR = form5window.NemetMegnevezes.Text Then
|
||||
Else
|
||||
' WriteParam(model1, Form5.NemetMegnevezes.Text, "Megnevezes_1")
|
||||
End If
|
||||
|
||||
|
||||
Dim TestForChange As String = ""
|
||||
If dict.TryGetValue(ParamValueR, TestForChange) = True Then
|
||||
If Not TestForChange = ParamValueW Then
|
||||
dict(ParamValueR) = ParamValueW
|
||||
End If
|
||||
Else
|
||||
|
||||
dict.Add(ParamValueR, ParamValueW)
|
||||
End If
|
||||
|
||||
|
||||
ElseIf form5window.WWClicked = "FB" Then
|
||||
|
||||
MyFormatter.Serialize(MyFile, dict)
|
||||
MyFile.Close()
|
||||
conn.Disconnect(1)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
oWindow.Close()
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
MyFormatter.Serialize(MyFile, dict)
|
||||
MyFile.Close()
|
||||
|
||||
conn.Disconnect(1)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -2430,9 +2070,6 @@ Public Class MainWindow
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As RoutedEventArgs) Handles Button1.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub KulonAloRajzok_Checked(sender As Object, e As RoutedEventArgs) Handles KulonAloRajzok.Checked
|
||||
If KulonAloRajzok.IsChecked = True Then
|
||||
@@ -2450,8 +2087,9 @@ Public Class MainWindow
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
|
||||
Private Sub ExitButton_Click(sender As Object, e As RoutedEventArgs)
|
||||
Environment.Exit(0)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub AutomaticFolderSelect_Checked(sender As Object, e As RoutedEventArgs) Handles AutomaticFolderSelect.Checked
|
||||
@@ -2465,29 +2103,9 @@ Public Class MainWindow
|
||||
|
||||
|
||||
|
||||
Private Sub Subdirctories_Checked(sender As Object, e As RoutedEventArgs) Handles subdirctories.Checked
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub ParamaterChecker(model1 As IpfcModel)
|
||||
Dim ParamValueDef As String
|
||||
ParamNameD = "OA_MEGNEVEZES_1"
|
||||
ParamValueDef = "Focsoport"
|
||||
ReadParam(model1, ParamNameD, ParamValueD)
|
||||
|
||||
|
||||
If ParamValueD = ParamValueDef Then
|
||||
' MsgBox(sresult)
|
||||
NewWindow.ShowDialog()
|
||||
End If
|
||||
If Form2.ans = "ok" Then
|
||||
WriteParam(model1, Form2.NewParamValue, ParamNameD)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub BackgroundWorker3_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker3.DoWork
|
||||
@@ -2528,20 +2146,5 @@ Public Class MainWindow
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Test_Click(sender As Object, e As RoutedEventArgs) Handles test.Click
|
||||
Dim session As IpfcBaseSession = Nothing
|
||||
Dim conn As IpfcAsyncConnection = Nothing
|
||||
Connect(session, conn)
|
||||
|
||||
Dim iWindows As IpfcWindows
|
||||
iWindows = session.ListWindows
|
||||
|
||||
For Each iWindow As IpfcWindow In iWindows
|
||||
iWindow.Close()
|
||||
Next
|
||||
|
||||
session.EraseUndisplayedModels()
|
||||
conn.Disconnect(1)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user