Bonjour,
Pour répondre à ".PL" :
je n'arrive pas à intégrer ton "mots" dans ma macro, "FreePointcurveFeatureData:: PointArray".
Pour répondre à "gt22" :
J'ai déjà créer une macro qui créé une FONCTION courbe XYZ, ci-joint,
Autrement j'ai éssayé de créer une macro qui créer une courbe VIA une esquisse mais elle ne marche pas :(,
(j'ai voulu créer une courbe via une esquisse car c'est plus facile à éditer par la suite"
macro FONCTION courbe: (fonctionne)
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim skiP As Object
Dim myRefPlane As Object
Dim skSegment As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Open "Chemin du dossier\TC.txt" For Input As #1
Part.InsertCurveFileBegin
Do While Not EOF(1)
Input #1, X, Y, Z
boolstatus = Part.InsertCurveFilePoint(X / 1000, Y / 1000, Z / 1000)
Loop
Close #1
boolstatus = Part.InsertCurveFileEnd()
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, True, False, "spline tige") 'NOMMER SPLINE "spline tige"'
End Sub
macro ESQUISSE courbe :(ne fonctionne pas) Help!
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim skSegment As Object
Dim pointArray As Variant
Dim points() As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Open "Chemin du dossier\TC2.txt" For Input As #1
boolstatus = Part.Extension.SelectByID2("Plan de face", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
ReDim points(0 To 2) As Object
Do While Not EOF(1)
Input #1, X, Y, Z
points(0) = X / 1000
points(1) = Y / 1000
points(2) = Z / 1000
Loop
Close #1
Set skSegment = Part.SketchManager.CreateSpline((pointArray))
Part.SketchManager.InsertSketch True
End Sub