Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Makro: Stücklisten entfernen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS
  
PLM TechnologieForum Hannover
Autor Thema:  Makro: Stücklisten entfernen (1011 mal gelesen)
ramsy77
Mitglied
Admin


Sehen Sie sich das Profil von ramsy77 an!   Senden Sie eine Private Message an ramsy77  Schreiben Sie einen Gästebucheintrag für ramsy77

Beiträge: 125
Registriert: 17.12.2009

immer am letztstand...

erstellt am: 08. Apr. 2013 13:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Mahlzeit!

Gibt's eine Möglichkeit, zB ein Makro, dass mir die Stücklisten löscht falls vorhanden?

Mit Pac4SWX könnte man so komplette Projekte bearbeiten um hier Details wie Lieferant oder Bestellnummer verschwinden zu lassen.
(Stichwort Ersatzteilgeschäft)

Danke vorab!

Rainer

------------------
www.cadshop.com

http://cadshop.com/software/kingcost-dcc.html

http://www.tacton.com/

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

ramsy77
Mitglied
Admin


Sehen Sie sich das Profil von ramsy77 an!   Senden Sie eine Private Message an ramsy77  Schreiben Sie einen Gästebucheintrag für ramsy77

Beiträge: 125
Registriert: 17.12.2009

immer am letztstand...

erstellt am: 09. Apr. 2013 10:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

ich hab mal im design-checker nachgesehen - da gibt's aber hierzu auch nix nützliches wenn ich richtig gesehen habe...

------------------
www.cadshop.com

http://cadshop.com/software/kingcost-dcc.html

http://www.tacton.com/

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

HenryV
Mitglied
Konstrukteur, Engineering


Sehen Sie sich das Profil von HenryV an!   Senden Sie eine Private Message an HenryV  Schreiben Sie einen Gästebucheintrag für HenryV

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: 09. Apr. 2013 10:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ramsy77 10 Unities + Antwort hilfreich

Hallo Rainer

Aus dem Offiziellen SolidWorks-Forum
https://forum.solidworks.com/message/38625

Code:
Private Sub DeleteAllSwBomTables()

    Dim SwApp As SldWorks.SldWorks
    Dim SwModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swView As SldWorks.View
    Dim swAnn As SldWorks.Annotation
    Dim swSelData As SldWorks.SelectData
    Dim Boolstatus As Boolean

    Set SwApp = Application.SldWorks
    Set SwModel = SwApp.ActiveDoc
    Set swDraw = SwModel
    Set swView = swDraw.GetFirstView

    'Loop through the views and delete the SW BOM if they exists
    While Not swView Is Nothing
        Debug.Print " View = " & swView.GetName2
        Set swAnn = swView.GetFirstAnnotation3
        While Not swAnn Is Nothing
            If swTableAnnotation = swAnn.GetType Then
                Debug.Print " " & swAnn.GetName
                Boolstatus = swAnn.Select3(True, swSelData)
                Debug.Assert Boolstatus
            End If
            Set swAnn = swAnn.GetNext3
        Wend
        Set swView = swView.GetNextView
    Wend
    SwModel.EditDelete
End Sub


Gruss Andreas

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

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

ramsy77
Mitglied
Admin


Sehen Sie sich das Profil von ramsy77 an!   Senden Sie eine Private Message an ramsy77  Schreiben Sie einen Gästebucheintrag für ramsy77

Beiträge: 125
Registriert: 17.12.2009

immer am letztstand...

erstellt am: 10. Apr. 2013 11:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

thx - habs getestet und funkt einwandfrei...

leider löscht das makro aber alle tabellen, nicht nur die BOM
(bohrungstabelle, versionstabelle, zuschnittslisten, passungstabelle, ...)

läßt sich das noch anpassen?

rainer

------------------
www.cadshop.com

http://cadshop.com/software/kingcost-dcc.html

http://www.tacton.com/

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

HenryV
Mitglied
Konstrukteur, Engineering


Sehen Sie sich das Profil von HenryV an!   Senden Sie eine Private Message an HenryV  Schreiben Sie einen Gästebucheintrag für HenryV

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: 15. Apr. 2013 15:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ramsy77 10 Unities + Antwort hilfreich

Hallo Rainer

Hier eine überarbeitete Version

Code:
Sub DeleteAllSwBomTables()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swFeat As SldWorks.Feature
    Dim retval As Boolean

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swFeat = swModel.FirstFeature

    Do While Not swFeat Is Nothing
        If "BomFeat" = swFeat.GetTypeName Then
            Debug.Print "******************************"
            Debug.Print "Feature Name :- " & swFeat.Name
            retval = swFeat.Select2(False, -1)
            retval = swModel.DeleteSelection(False)
        End If
        Set swFeat = swFeat.GetNextFeature
    Loop

End Sub


Gruss Andreas

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

[Diese Nachricht wurde von HenryV am 15. Apr. 2013 editiert.]

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

ramsy77
Mitglied
Admin


Sehen Sie sich das Profil von ramsy77 an!   Senden Sie eine Private Message an ramsy77  Schreiben Sie einen Gästebucheintrag für ramsy77

Beiträge: 125
Registriert: 17.12.2009

immer am letztstand...

erstellt am: 16. Apr. 2013 17:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

der mann mit den goldenen händen

funktioniert einwandfrei - vielen, dank!!!!

grüße aus wien, rainer

------------------
www.cadshop.com

http://cadshop.com/software/kingcost-dcc.html

http://www.tacton.com/

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz