1 |
+ |
Imports SolidWorks.Interop |
2 |
+ |
Imports SolidWorks.Interop.swconst |
3 |
+ |
Imports SolidWorks.Interop.swpublished |
4 |
+ |
|
5 |
|
Public Class SuperSommet |
6 |
|
Inherits SuperEntite |
7 |
|
Public swSommet As SldWorks.Vertex |
136 |
|
Public Overrides Sub Selectionner(Optional ByVal Mark As Integer = 0, Optional ByRef Append As Boolean = True) |
137 |
|
Dim swent As SldWorks.Entity |
138 |
|
swent = swSommet |
139 |
< |
swent.Select2(append, Mark) |
139 |
> |
swent.Select2(Append, Mark) |
140 |
|
End Sub |
141 |
|
|
142 |
|
|
157 |
|
''' <returns></returns> |
158 |
|
''' <remarks></remarks> |
159 |
|
Public Function GetX() As Double |
160 |
< |
Return Me.x |
160 |
> |
Return Me.X |
161 |
|
End Function |
162 |
|
|
163 |
|
''' <summary> |
166 |
|
''' <returns></returns> |
167 |
|
''' <remarks></remarks> |
168 |
|
Public Function GetY() As Double |
169 |
< |
Return Me.y |
169 |
> |
Return Me.Y |
170 |
|
End Function |
171 |
|
|
172 |
|
''' <summary> |
175 |
|
''' <returns></returns> |
176 |
|
''' <remarks></remarks> |
177 |
|
Public Function GetZ() As Double |
178 |
< |
Return Me.z |
178 |
> |
Return Me.Z |
179 |
|
End Function |
180 |
|
|
181 |
|
|