Option Explicit

Dim swApp As Object
Dim Part As Object

Dim tabx(1000) As Double
Dim taby(1000) As Double
Dim tabz(1000) As Double

Dim length As Double
Dim bolle As Boolean
Dim n As Integer
Dim rayon As Double
Dim rayon2 As Double
Dim nombre As Integer
Dim dist As Double

Dim skSegment As Object
Dim myDimension As SldWorks.Dimension
Dim myDisplayDim As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

'Ouverture d'une nouvelle pièce
Set swApp = Application.SldWorks
Dim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
Set COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS

Dim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
swSheetHeight = 0
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\Pièce.prtdot", 0, swSheetWidth, swSheetHeight)
Dim swPart As PartDoc
Set swPart = Part
swApp.ActivateDoc2 "Pièce6", False, longstatus
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

'Esquisse 3D
Part.SketchManager.Insert3DSketch (True)
Part.SketchManager.AddToDB = True

'Nombre de boule
n = InputBox("Entrer la valeur de n")
nombre = n

'Déclaration longueur et rayons
length = InputBox("Entrer la valeur de l") / 1000
rayon = InputBox("Entrer la valeur des particules") / 1000
rayon2 = rayon * 1.2

Dim i, j As Integer
For i = 1 To n  '10= NB inclusions (à modifier)
Randomize Timer 'Gener. Aléatoire
tabx(i) = Rnd * (length - rayon2 * 2) + rayon2  'Position x
taby(i) = Rnd * (length - rayon2 * 2) + rayon2  'Position y
tabz(i) = length / 2
'tabz(i) = Rnd * (length - rayon2 * 2) + rayon2  'Position z

bolle = 0
If (i <> 1) Then
For j = 1 To i - 1
dist = Sqrt((tabx(i) - tabx(j)) ^ 2 + (taby(i) - taby(j)) ^ 2 + (tabz(i) - tabz(j)) ^ 2)
If (dist < 2.2 * rayon) Then bolle = 1
Next j
End If

If (bolle = 0) Then
Dim skPoint As Object
Set skPoint = Part.SketchManager.CreatePoint(tabx(i), taby(i), tabz(i)) 'Creation du point
'MsgBox tabx(i) & " " & taby(i) & " " & tabz(i)
Else
i = i - 1
End If

Next i

'Insertion d 'une Cylindre
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("Plan de face", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, rayon, 0#, 0#)

Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, length, length, False, False, False, False, 0.01, 0.01, False, False, False, False, True, True, True, 0, 0, False)


'Répétition par esquisee
boolstatus = Part.Extension.SelectByID2("Esquisse3D1", "SKETCH", 0, 0, 0, False, 64, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Boss.-Extru.1", "SOLIDBODY", -6.74308053442019E-03, 2.69252183593949E-03, 5.47894052022002E-03, True, 256, Nothing, 0)
Part.FeatureManager.FeatureSketchDrivenPattern True, False
boolstatus = Part.Extension.SelectByID2("Boss.-Extru.1", "SOLIDBODY", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Boss.-Extru.1", "SOLIDBODY", 0, 0, 0, True, 0, Nothing, 0)

'Suppression de la première révolution
boolstatus = Part.Extension.SelectByID2("Boss.-Extru.1", "SOLIDBODY", -9.00371912371156E-03, 3.2719117743909E-03, 4.32472761337976E-03, True, 0, Nothing, 0)
Set myFeature = Part.FeatureManager.InsertDeleteBody2(False)

'Cacher l'esquisse 3D1
boolstatus = Part.Extension.SelectByID2("Esquisse3D1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.BlankSketch


End Sub