| 30 |
|
|
| 31 |
|
Public lst_AreteDoublon As New Collection |
| 32 |
|
|
| 33 |
< |
Public OptionMettreNoteIntersection As Boolean = True |
| 33 |
> |
Public OptionMettreNoteIntersection As Boolean = False |
| 34 |
|
|
| 35 |
|
|
| 36 |
|
Public Structure sectionPoutre |
| 1223 |
|
Dim SwEnt As sldworks.Entity |
| 1224 |
|
Dim p As sldworks.Parameter |
| 1225 |
|
SwEnt = swArete |
| 1226 |
< |
attr = SwEnt.FindAttribute(DefAttrRCP1, 0) |
| 1227 |
< |
If attr Is Nothing Then Return False |
| 1228 |
< |
p = attr.GetParameter("D1") |
| 1229 |
< |
If p.GetDoubleValue = -9 Then Return True Else Return False |
| 1226 |
> |
attr = SwEnt.FindAttribute(Intersections.DefAttrIgnorer, 0) |
| 1227 |
> |
If attr Is Nothing Then Return False Else Return True |
| 1228 |
|
End Function |
| 1229 |
|
|
| 1230 |
|
Public Sub GetMidPointSegment(ByVal seg As sldworks.SketchSegment, ByRef x As Double, ByRef y As Double, ByRef z As Double) |
