---

blade_Mittelschnitt.SLDPRT

Hallo zusammen,

ich möchte gerne den Körper im Anhang mit der Schnittebene schneiden (sicherlich der leichtere Part) und anschließend die Kontur, die sich dann auf der Schnittebene durch den Schnitt ergibt, auslesen (d.h. die x,y,z-Koordinaten in ein Textfile).
Geht sowas?

Viele Grüße
Dave

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dave

Ich würde es so machen:
1. Extras->Skizzieren->Schnittkurve
2. Spline mit Makro in Punkte verwandeln. Macro to divide a spline in points
3. Punkte mit Makro in Excel eportieren. SolidWorks Makro export 3D-Punkte Excel

Gruss Andreas

[Diese Nachricht wurde von HenryV am 08. Dez. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

blade_Mittelschnitt.SLDPRT Divide_spline_in_points.txt

Hi Henry,

danke für deine Antwort.
Ich hab mir jetzt das 1. Makro von deiner angegebenen Seite geholt. Aber obwohl ich die Splines vorher auswähle (also ich klicke auf die 3D-Skizze1) kommt nach Ausführung des Makros (devide_spline_in_points, leider nur als .txt-Datei anhängbar) die Meldung "Spline auswählen".
Was mach ich denn falsch?  

Viele Grüße
Dave

[Diese Nachricht wurde von daweed90 am 17. Dez. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mittlerweile stürzt Solidworks immer ab, wenn ich das Makro starte.
Kann mir jemand erklären, wie ich das devide_spline_in_points-Makro zum Laufen kriege?

Viele Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dave

Da hast du wohl das falsche Makro erwischt. Das Makro aus der richtigen Antwort (das mit dem grünen Hintergrund), sollte funktionieren .

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Select_Spline.JPG

Aber ich bekomme nach wie vor die Meldung "Select Spline" obwohl ich (wie im Anhang zu sehen) einen Spline ausgewählt habe.
Woran liegt das?

Viele Grüße
Dave

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dave
Das was du da selektiert hast ist eine Kurve und keine Spline. Ein kleiner aber markanter Unterschied.
Erstelle eine 3D-Skizze und übernimm die Kurve mit "Elemente übernehmen" in die Skizze.
Dies erzeugt eine Spline, mit dieser sollte dann das Makro funktionieren.
Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Fehlermeldung.JPG

Ah ja, danke.
Das Makro funktioniert schon mal super

Jetzt habe bekomme ich aber beim 2. Makro eine Fehlermeldung (siehe Anhang). Weißt du auch, was diesmal das Problem ist?
Danke schon mal und viele Grüße.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

2018-01-10Verweis_1.jpg 2018-01-10Verweis_2.jpg

'n Abend,

wahrscheinlich fehlt da ein Verweis auf Excel  Kannst du bitte
mal schauen, ob die im 2. Screenshot markierte DLL angehakt ist?

------------------
==========
Gruß
Andreas
==========

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja das wars, jetzt kommt die Meldung nicht mehr.
Allerdings ist die Excel-Datei, die erzeugt wird leer und das obwohl ich die Punkte vorher selektiert habe.
Muss ich was bestimmtes machen, damit mir die Koordinaten ausgegeben werden?

Viele Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dave
Das erste Makro erzeugt eine 3D-Skizze. (Letztes Element im Feature-Baum)
Diese musst du für das zweite Makro auswählen.
Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Makro.JPG

Ne leider nach wie vor keine Daten in der Excel-Tabelle (siehe Anhang) :/
Sorry, wenn ich nerve...

Viele Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

wie du in dem Artikel http://ww3.cad.de/foren/ubb/Forum2/HTML/026048.shtml sehen kannst, ist es dem Makroersteller
auch nicht gelungen, das Ganze ans Laufen zu bekommen. Es klappt
z.Zt. wohl nur mit Referenzpunkten.

------------------
==========
Gruß
Andreas
==========

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mmmhh das ist ja doof.
Wie mache ich denn aus Splinepunkte Referenzpunkte?

Viele Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hat sich erledigt, habe dieses Video gefunden und damit hat sich mein Problem gelöst
https://www.youtube.com/watch?v=1tyXfCxaf8U

Danke an alle für die Hilfe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dave
Grosses Sorry von mir.
Ich habe noch einmal mein Makro mit dem von CTJ verglichen.
Und ich habe tatsächlich das aus dem 4.Beitrag und nicht das aus dem 9.
Gruss Andreas

Code:

---

Sub main()
Dim swApp As SldWorks.SldWorks
Dim doc As SldWorks.ModelDoc2
Dim part As SldWorks.PartDoc
Dim sm As SldWorks.SelectionMgr
Dim feat As SldWorks.Feature
Dim sketch As SldWorks.sketch
Dim v As Variant
Dim i As Long
Dim sseg As SldWorks.SketchSegment
Dim sline As SldWorks.SketchLine
Dim sp As SldWorks.SketchPoint
Dim ep As SldWorks.SketchPoint
Dim s As String

Dim exApp As Object
Dim sheet As Object

Set exApp = CreateObject("Excel.Application")
If Not exApp Is Nothing Then
  exApp.Visible = True
  If Not exApp Is Nothing Then
  exApp.Workbooks.Add
  Set sheet = exApp.ActiveSheet
  If Not sheet Is Nothing Then
    sheet.Cells(1, 2).Value = "X"
    sheet.Cells(1, 3).Value = "Y"
    sheet.Cells(1, 4).Value = "Z"
  End If
  End If
End If

Set swApp = GetObject(, "sldworks.application")
If Not swApp Is Nothing Then
  Set doc = swApp.ActiveDoc
  If Not doc Is Nothing Then
  If doc.GetType = swDocPART Then
    Set part = doc
    Set sm = doc.SelectionManager
    If Not part Is Nothing And Not sm Is Nothing Then
    If sm.GetSelectedObjectType2(1) = swSelSKETCHES Then
      Set feat = sm.GetSelectedObject4(1)
      Set sketch = feat.GetSpecificFeature
      If Not sketch Is Nothing Then
      v = sketch.GetSketchPoints
      For i = LBound(v) To UBound(v)
        Set sp = v(i)
        If Not sp Is Nothing And Not sheet Is Nothing And Not exApp Is Nothing Then
        sheet.Cells(2 + i, 2).Value = sp.X * 1000
        sheet.Cells(2 + i, 3).Value = sp.Y * 1000
        sheet.Cells(2 + i, 4).Value = sp.Z * 1000
        exApp.Columns.AutoFit
        End If
      Next i
      End If
    End If
    End If
  End If
  End If
End If
End Sub

---

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jep, funktioniert super.
Danke für die Mühe.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP