Hallo
Um mit ".PL" zu antworten:
Ich kann Ihre "Worte" nicht in mein Makro "FreePointcurveFeatureData:: PointArray" integrieren.
Um "gt22" zu antworten:
Ich habe bereits ein Makro erstellt, das eine XYZ-Kurve FUNCTION erstellt, angehängt,
Andernfalls habe ich versucht, ein Makro zu erstellen, das eine Kurve ÜBER eine Skizze erstellt, aber es funktioniert nicht :(,
(Ich wollte eine Kurve über eine Skizze erstellen, weil es später einfacher ist, sie zu bearbeiten"
Makro FUNKTIONSKURVE: (funktioniert)
Dim swApp als SldWorks.SldWorks
Dimmen des Teils als SldWorks.ModelDoc2
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
SkiP als Objekt dimmen
myRefPlane als Objekt dimmen
SkSegment als Objekt dimmen
Sub main()
Legen Sie swApp = Application.SldWorks fest
Set Part = swApp.ActiveDoc
Öffnen Sie "Ordnerpfad\TC.txt" für die Eingabe als #1
Part.InsertCurveFileBegin
Nicht EOF(1)
Eingang #1, X, Y, Z
boolstatus = Part.InsertCurveFilePoint(X / 1000, Y / 1000, Z / 1000)
Schleife
Schließen #1
boolstatus = Teil.InsertCurveFileEnde()
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, True, False, "Spline-Stamm") 'NAME SPLINE 'Spline-Stamm'
Ende Sub
Makro SKETCH Kurve :(funktioniert nicht) Hilfe!
Dim swApp als SldWorks.SldWorks
Dimmen des Teils als SldWorks.ModelDoc2
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
SkSegment als Objekt dimmen
Dim pointArray als Variante
Dim points() als Objekt
Sub main()
Legen Sie swApp = Application.SldWorks fest
Set Part = swApp.ActiveDoc
Öffnen Sie "Ordnerpfad\TC2.txt" für die Eingabe als #1
boolstatus = Part.Extension.SelectByID2("Flächenebene", "PLANE", 0, 0, 0, Falsch, 0, Nichts, 0)
Part.SketchManager.InsertSketch True
ReDim-Punkte (0 bis 2) als Objekt
Nicht EOF(1)
Eingang #1, X, Y, Z
Punkte(0) = X / 1000
Punkte(1) = Y / 1000
Punkte(2) = Z / 1000
Schleife
Schließen #1
Set skSegment = Part.SketchManager.CreateSpline((pointArray))
Part.SketchManager.InsertSketch True
Ende Sub