26 |
|
Dim DessinerCheck As sldworks.PropertyManagerPageCheckbox |
27 |
|
|
28 |
|
|
29 |
– |
|
29 |
|
#End Region |
30 |
|
|
31 |
|
Function Init(ByVal sw As SldWorks.SldWorks, ByVal addin As MAGIC.Magic) As Object |
98 |
|
combo1 = group1.AddControl(4, controlType, "Type de conditions", leftAlign, options, " Choix du type de condition à appliquer à (aux) entité(s) sélectionnée(s)") |
99 |
|
If Not combo1 Is Nothing Then |
100 |
|
combo1.Height = 600 |
101 |
< |
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"} |
101 |
> |
Dim items() As String = New String() {"Da, Fixer tout", "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"} |
102 |
|
combo1.Style = swPropMgrPageComboBoxStyle_e.swPropMgrPageComboBoxStyle_EditableText |
103 |
|
combo1.AddItems(items) |
104 |
|
End If |