| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Intertool 2024 |
Autor
|
Thema: Koordinaten von Kurve auslesen (3311 mal gelesen)
|
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 08. Dez. 2017 12:30 <-- editieren / zitieren --> Unities abgeben:
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 |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 08. Dez. 2017 14:41 <-- editieren / zitieren --> Unities abgeben: Nur für daweed90
|
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 17. Dez. 2017 12:35 <-- editieren / zitieren --> Unities abgeben:
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 |
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 17. Dez. 2017 20:46 <-- editieren / zitieren --> Unities abgeben:
|
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 18. Dez. 2017 09:08 <-- editieren / zitieren --> Unities abgeben: Nur für daweed90
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 |
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 10. Jan. 2018 15:36 <-- editieren / zitieren --> Unities abgeben:
|
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 10. Jan. 2018 15:49 <-- editieren / zitieren --> Unities abgeben: Nur für daweed90
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 |
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 10. Jan. 2018 18:34 <-- editieren / zitieren --> Unities abgeben:
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 |
ad_man Mitglied freiberuflicher Entwicklungsing. (Fahrzeugtechnik, CSWP, CPPA))
Beiträge: 1366 Registriert: 20.12.2003
|
erstellt am: 10. Jan. 2018 21:21 <-- editieren / zitieren --> Unities abgeben: Nur für daweed90
|
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 10. Jan. 2018 22:05 <-- editieren / zitieren --> Unities abgeben:
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 |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 11. Jan. 2018 08:47 <-- editieren / zitieren --> Unities abgeben: Nur für daweed90
|
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 11. Jan. 2018 17:49 <-- editieren / zitieren --> Unities abgeben:
|
ad_man Mitglied freiberuflicher Entwicklungsing. (Fahrzeugtechnik, CSWP, CPPA))
Beiträge: 1366 Registriert: 20.12.2003
|
erstellt am: 11. Jan. 2018 18:10 <-- editieren / zitieren --> Unities abgeben: Nur für daweed90
|
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 11. Jan. 2018 19:27 <-- editieren / zitieren --> Unities abgeben:
|
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 11. Jan. 2018 19:44 <-- editieren / zitieren --> Unities abgeben:
|
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 12. Jan. 2018 09:33 <-- editieren / zitieren --> Unities abgeben: Nur für daweed90
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 StringDim 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 |
daweed90 Mitglied
Beiträge: 140 Registriert: 01.06.2014 MS Windows 7 Professional; SP 1, 64 Bit Betriebssystem; Prozessor: Intel(R) Core(TM)2 Quad CPU Q6600 @ 2,40 GHz; 4 GB RAM; SW Premium 2015 x64-Edition
|
erstellt am: 23. Jan. 2018 14:05 <-- editieren / zitieren --> Unities abgeben:
|