REPOS_ERICCA/magicsld/CLProp.vb

Imports SldWorks
Imports SWPublished
Imports SwConst

' la classe des propriétés

Namespace ConditionsAuxLimites
    Public Class ConditionLimitePage
        Dim iSwApp As SldWorks.SldWorks
        Dim userAddin As MAGIC.Magic
        Dim handler As CLPageHandler
        Dim ppage As PropertyManagerPage2

#Region "Property Manager Page Controls"
        'Groupes
        Dim group1 As PropertyManagerPageGroup
        'Dim group2 As PropertyManagerPageGroup

        ''Controles
        'Dim checkbox1 As PropertyManagerPageCheckbox
        Dim BoutonSousJascent As PropertyManagerPageButton
        Dim checkbox2 As PropertyManagerPageCheckbox
        Dim selection1 As PropertyManagerPageSelectionbox
        Dim combo1 As PropertyManagerPageCombobox
        Dim Numberbox1 As PropertyManagerPageNumberbox
        Dim DessinerCheck As PropertyManagerPageCheckbox


#End Region

        Function Init(ByVal sw As SldWorks.SldWorks, ByVal addin As MAGIC.Magic) As Object
            iSwApp = sw
            userAddin = addin
            CreatePage()
            AddControls()
            Return Nothing
        End Function

        Sub Show()
            ppage.Show()
        End Sub

        Sub CreatePage()
            handler = New CLPageHandler
            handler.Init(iSwApp, userAddin)
            Dim options As Integer
            Dim errors As Integer
            options = swPropertyManagerPageOptions_e.swPropertyManagerOptions_OkayButton + swPropertyManagerPageOptions_e.swPropertyManagerOptions_CancelButton
            ppage = iSwApp.CreatePropertyManagerPage("Condition limite", options, handler, errors)
        End Sub

        Sub AddControls()
            Dim options As Integer
            Dim leftAlign As Integer
            Dim controlType As Integer

            ppage.SetMessage("La sélection de l'option «Inclure les topologies sous-jacentes» n'affichera pas les entités dans la liste mais les sélectionne sur le modèle (et les prend en compte)", swPropertyManagerPageMessageVisibility.swMessageBoxVisible)
            ' premier (et théoriquement seul) groupe
            options = swAddGroupBoxOptions_e.swGroupBoxOptions_Expanded + swAddGroupBoxOptions_e.swGroupBoxOptions_Visible
            group1 = ppage.AddGroupBox(0, "Condition de frontière", options)


            'Selection1, qui contiendra les entités sélectionnées
            controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
            leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
            options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
            selection1 = group1.AddControl(1, controlType, "Topologies sélectionnées", leftAlign, options, "Montre les entités qui ont été sélectionnées")
            If Not selection1 Is Nothing Then
                Dim filter() As Integer = New Integer() {swSelectType_e.swSelVERTICES, swSelectType_e.swSelEDGES, swSelectType_e.swSelFACES, swSelectType_e.swSelPOINTREFS} ' pour sélectionner juste les faces, aretes et sommets
                selection1.Height = 50
                selection1.SetSelectionFilters(filter)
            End If
            CLCode.selection1 = selection1 ' pour accéder à ses méthodes à partir du module CLCode...


            'Bouton1, qui demande si on doit inclure les topologies sous-jacentes
            controlType = swPropertyManagerPageControlType_e.swControlType_Button
            leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
            options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
            BoutonSousJascent = group1.AddControl(2, controlType, "Ajouter les topologies sous-jacentes", leftAlign, options, "Une face sélectionnée ajoute les arêtes et sommets, une arete sélectionnée ajoute ses sommets")
            BoutonSousJascent.Caption = "Sélectionner topologies sous-jacentes"
            'CLCode.SousJacent = False
            'CLCode.checkbox1 = checkbox1

            'Checkbox2, qui demande si l'on doit utiliser une seule annotation pour toutes les entités
            'controlType = swPropertyManagerPageControlType_e.swControlType_Checkbox
            'leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
            'options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
            'checkbox2 = group1.AddControl(3, controlType, "Utiliser une seule annotation", leftAlign, options, "Utiliser une seule annotation pour désigner toutes les conditions aux limites de ce type")
            'checkbox2.Checked = True
            'CLCode.checkbox2 = checkbox2
            'CLCode.AnnoSeul = True

            'Combo1, les types de conditions aux limites
            controlType = swPropertyManagerPageControlType_e.swControlType_Combobox
            leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
            options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
            combo1 = group1.AddControl(4, controlType, "Type de conditions", leftAlign, options, " Choix du type de condition à appliquer à (aux) entité(s) sélectionnée(s)")
            If Not combo1 Is Nothing Then
                combo1.Height = 600
                Dim items() As String = New String() {"Da, Bloquer les translations", "Dx, Bloquer les translations en X", "Dy, Bloquer les translations en Y", "Dz, Bloquer les translations en Z", "Fx, Force en X", "Fy, Force en Y", "Fz, Force en Z", "Px, Pression en X", "Py, Pression en Y", "Pz, Pression en Z", "Pn, Pression normale"}
                combo1.Style = swPropMgrPageComboBoxStyle_e.swPropMgrPageComboBoxStyle_EditableText
                combo1.AddItems(items)
            End If
            CLCode.combo1 = combo1

            'Numberbox1, là où on entre les valeurs
            controlType = swPropertyManagerPageControlType_e.swControlType_Numberbox
            leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
            options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
            Numberbox1 = group1.AddControl(5, controlType, "Valeur", leftAlign, options, "Entrez la valeur de la condition")
            Numberbox1.Value = 0
            Numberbox1.SetRange(SwConst.swNumberboxUnitType_e.swNumberBox_UnitlessDouble, -1.0E+20, 1.0E+20, 1, True)
            CLCode.Numberbox1 = Numberbox1

            ' checkbox où on dit que l'on veut dessiner
            controlType = swPropertyManagerPageControlType_e.swControlType_Checkbox
            leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
            options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
            DessinerCheck = group1.AddControl(8, controlType, "Dessiner les conditions", leftAlign, options, "Place des repères pour illustrer les conditions")
            CLCode.DessinerCL = DessinerCheck

        End Sub
    End Class


End Namespace
Revision:	40
Committed:	Mon Aug 20 21:30:28 2007 UTC (17 years, 8 months ago) by bournival
File size:	7296 byte(s)
Log Message:	Projet de these de Sylvain Bournival. Attention projet VB.
#	User	Rev	Content
1	bournival	40	Imports SldWorks
2			Imports SWPublished
3			Imports SwConst
4
5			' la classe des propriétés
6
7			Namespace ConditionsAuxLimites
8			Public Class ConditionLimitePage
9			Dim iSwApp As SldWorks.SldWorks
10			Dim userAddin As MAGIC.Magic
11			Dim handler As CLPageHandler
12			Dim ppage As PropertyManagerPage2
13
14			#Region "Property Manager Page Controls"
15			'Groupes
16			Dim group1 As PropertyManagerPageGroup
17			'Dim group2 As PropertyManagerPageGroup
18
19			''Controles
20			'Dim checkbox1 As PropertyManagerPageCheckbox
21			Dim BoutonSousJascent As PropertyManagerPageButton
22			Dim checkbox2 As PropertyManagerPageCheckbox
23			Dim selection1 As PropertyManagerPageSelectionbox
24			Dim combo1 As PropertyManagerPageCombobox
25			Dim Numberbox1 As PropertyManagerPageNumberbox
26			Dim DessinerCheck As PropertyManagerPageCheckbox
27
28
29
30			#End Region
31
32			Function Init(ByVal sw As SldWorks.SldWorks, ByVal addin As MAGIC.Magic) As Object
33			iSwApp = sw
34			userAddin = addin
35			CreatePage()
36			AddControls()
37			Return Nothing
38			End Function
39
40			Sub Show()
41			ppage.Show()
42			End Sub
43
44			Sub CreatePage()
45			handler = New CLPageHandler
46			handler.Init(iSwApp, userAddin)
47			Dim options As Integer
48			Dim errors As Integer
49			options = swPropertyManagerPageOptions_e.swPropertyManagerOptions_OkayButton + swPropertyManagerPageOptions_e.swPropertyManagerOptions_CancelButton
50			ppage = iSwApp.CreatePropertyManagerPage("Condition limite", options, handler, errors)
51			End Sub
52
53			Sub AddControls()
54			Dim options As Integer
55			Dim leftAlign As Integer
56			Dim controlType As Integer
57
58			ppage.SetMessage("La sélection de l'option «Inclure les topologies sous-jacentes» n'affichera pas les entités dans la liste mais les sélectionne sur le modèle (et les prend en compte)", swPropertyManagerPageMessageVisibility.swMessageBoxVisible)
59			' premier (et théoriquement seul) groupe
60			options = swAddGroupBoxOptions_e.swGroupBoxOptions_Expanded + swAddGroupBoxOptions_e.swGroupBoxOptions_Visible
61			group1 = ppage.AddGroupBox(0, "Condition de frontière", options)
62
63
64			'Selection1, qui contiendra les entités sélectionnées
65			controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
66			leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
67			options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
68			selection1 = group1.AddControl(1, controlType, "Topologies sélectionnées", leftAlign, options, "Montre les entités qui ont été sélectionnées")
69			If Not selection1 Is Nothing Then
70			Dim filter() As Integer = New Integer() {swSelectType_e.swSelVERTICES, swSelectType_e.swSelEDGES, swSelectType_e.swSelFACES, swSelectType_e.swSelPOINTREFS} ' pour sélectionner juste les faces, aretes et sommets
71			selection1.Height = 50
72			selection1.SetSelectionFilters(filter)
73			End If
74			CLCode.selection1 = selection1 ' pour accéder à ses méthodes à partir du module CLCode...
75
76
77			'Bouton1, qui demande si on doit inclure les topologies sous-jacentes
78			controlType = swPropertyManagerPageControlType_e.swControlType_Button
79			leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
80			options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
81			BoutonSousJascent = group1.AddControl(2, controlType, "Ajouter les topologies sous-jacentes", leftAlign, options, "Une face sélectionnée ajoute les arêtes et sommets, une arete sélectionnée ajoute ses sommets")
82			BoutonSousJascent.Caption = "Sélectionner topologies sous-jacentes"
83			'CLCode.SousJacent = False
84			'CLCode.checkbox1 = checkbox1
85
86			'Checkbox2, qui demande si l'on doit utiliser une seule annotation pour toutes les entités
87			'controlType = swPropertyManagerPageControlType_e.swControlType_Checkbox
88			'leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
89			'options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
90			'checkbox2 = group1.AddControl(3, controlType, "Utiliser une seule annotation", leftAlign, options, "Utiliser une seule annotation pour désigner toutes les conditions aux limites de ce type")
91			'checkbox2.Checked = True
92			'CLCode.checkbox2 = checkbox2
93			'CLCode.AnnoSeul = True
94
95			'Combo1, les types de conditions aux limites
96			controlType = swPropertyManagerPageControlType_e.swControlType_Combobox
97			leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
98			options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
99			combo1 = group1.AddControl(4, controlType, "Type de conditions", leftAlign, options, " Choix du type de condition à appliquer à (aux) entité(s) sélectionnée(s)")
100			If Not combo1 Is Nothing Then
101			combo1.Height = 600
102			Dim items() As String = New String() {"Da, Bloquer les translations", "Dx, Bloquer les translations en X", "Dy, Bloquer les translations en Y", "Dz, Bloquer les translations en Z", "Fx, Force en X", "Fy, Force en Y", "Fz, Force en Z", "Px, Pression en X", "Py, Pression en Y", "Pz, Pression en Z", "Pn, Pression normale"}
103			combo1.Style = swPropMgrPageComboBoxStyle_e.swPropMgrPageComboBoxStyle_EditableText
104			combo1.AddItems(items)
105			End If
106			CLCode.combo1 = combo1
107
108			'Numberbox1, là où on entre les valeurs
109			controlType = swPropertyManagerPageControlType_e.swControlType_Numberbox
110			leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
111			options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
112			Numberbox1 = group1.AddControl(5, controlType, "Valeur", leftAlign, options, "Entrez la valeur de la condition")
113			Numberbox1.Value = 0
114			Numberbox1.SetRange(SwConst.swNumberboxUnitType_e.swNumberBox_UnitlessDouble, -1.0E+20, 1.0E+20, 1, True)
115			CLCode.Numberbox1 = Numberbox1
116
117			' checkbox où on dit que l'on veut dessiner
118			controlType = swPropertyManagerPageControlType_e.swControlType_Checkbox
119			leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
120			options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
121			DessinerCheck = group1.AddControl(8, controlType, "Dessiner les conditions", leftAlign, options, "Place des repères pour illustrer les conditions")
122			CLCode.DessinerCL = DessinerCheck
123
124			End Sub
125			End Class
126
127
128
129
130			End Namespace