Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Api Konfiguration eines Teils in Baugruppe bestimmen

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
  
SOLIDWORKS in der Prozesskette Blech – Teil 2
Autor Thema:  Api Konfiguration eines Teils in Baugruppe bestimmen (1521 mal gelesen)
Ernieundbert
Mitglied
Konstrukteur


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

Beiträge: 99
Registriert: 25.10.2011

Solid Works 2013 SP5
PDM Workgroup
Win 7 64bit
Fujitsu Celsius M460
Quadro FX 3800
Intel Core2Quad CPU 9330 2,5GHz
8GB RAM

erstellt am: 14. Jan. 2015 10:32    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

Hallo zusammen,

ich habe wieder ein kleines Makro Problem. Ich möchte die Zeichnungen aller Teile zu einer Baugruppe öffnen. Funktioniert auch soweit, mein Problem ist wenn ein einzelnes part in einer anderen Konfiguration abgespeichert wurde als es in der Baugruppe verwendet wird, öffnet sich die Zeichnung zu der abgespeicherten Konfiguration des parts. Hat einer eine Idee? Hier der Code:

...

If (FirstDoc.GetType = swDocASSEMBLY) Then
    FirstDoc.ForceRebuild3 (True)
    boolstatus = FirstDoc.ResolveAllLightWeightComponents(False)
   
    swAllDocs.Reset
    swAllDocs.Next 1, swDoc, NumDocsReturned

        While NumDocsReturned <> 0
            Set swConfigMgr = swDoc.ConfigurationManager
            Set swConfig = swConfigMgr.ActiveConfiguration
           
                If swDoc.GetTitle <> FirstDoc.GetTitle Then

                PathName = swDoc.GetPathName                    'Dateipfad des Teils incl. Dateiname bestimmen
                Config = swConfig.Name + "-"                      'Konfigurationsname des Dokuments
                End If

        swAllDocs.Next 1, swDoc, NumDocsReturned
       
    'Zeichnungsnamen definieren
    txtPathName = VBA.Left(PathName, Len(PathName) - 7)                        'kpl. Dateipfad incl. Dateiname ohne Extender
    Path = Left(PathName, InStrRev(PathName, "\"))                              'den Pfad der Komponente ermitteln incl. "\"
    FileName = Mid(PathName, InStrRev(PathName, "\") + 1, Len(PathName)) 'Dateiname mit Extender
    FileName = VBA.Left(FileName, Len(FileName) - 7)            'Dateiname ohne Extender

    DwgName = Config + ".SLDDRW"                                                'Namen mit Konfiguration und Extender
    dwgPath = Path + DwgName                                                    'kpl. Dateipfad incl. Dateiname, Konfiguration und Extender
       
            'Zeichnung öffnen

    Set myDwgDoc = swApp.OpenDoc6(dwgPath, swDocDRAWING, swOpenDocOptions_Silent, "", CloseErrors, CloseWarnings)  'Zeichnung wird geöffnet

   
    'prüfen, ob gefunden
    If myDwgDoc Is Nothing Then                                                'wenn keine Zeichnung gefunden wurde
        Call MsgBox("Zeichnung nicht gefunden" & vbCrLf & dwgPath, vbSystemModal, "Information")                    'Zeichnung nicht gefunden
    End If
Wend
    End If

...

------------------
Einen schönen Gruß, Thomas

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

Andi Beck
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2572
Registriert: 02.10.2006

Firma: SW 2023-4.0 + PDM Prof.
Windows 10 Pro 64bit, i9-11900
32 GbRAM, Quadro P2200
Home:
SW 2022-5.0
Passungstabelle von Heinz
Windows 11 Pro 64bit,
i7-12700K, 32 GbRAM,
GeForce GTX 1050Ti
Samsung C34H892, 3440x1440 Pixel

erstellt am: 14. Jan. 2015 11:05    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 Ernieundbert 10 Unities + Antwort hilfreich

Hallo Thomas,
dieses Makro von mir öffnet Zeichnungen aus Baugruppen heraus und druckt sie evtl. auch aus.
Es werden auch Konfigurationen berücksichtigt.

http://ww3.cad.de/foren/ubb/Forum2/HTML/022358-2.shtml

Evtl. kannst du dir da was abschauen.

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

Ernieundbert
Mitglied
Konstrukteur


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

Beiträge: 99
Registriert: 25.10.2011

Solid Works 2013 SP5
PDM Workgroup
Win 7 64bit
Fujitsu Celsius M460
Quadro FX 3800
Intel Core2Quad CPU 9330 2,5GHz
8GB RAM

erstellt am: 14. Jan. 2015 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

Eigentlich bin ich der Meinung ich müsste anstatt

Set swConfig = swConfigMgr.ActiveConfiguration

Set swConfig = swConfigMgr.ReferencedConfiguration

benutzen, aber das gibt immer eine Fehlermeldung.

------------------
Einen schönen Gruß, Thomas

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

Torsten Niemeier
Ehrenmitglied V.I.P. h.c.
Maschinenbau Ingenieur



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

Beiträge: 3682
Registriert: 21.06.2001

"ZUSE I.36", 8 BIT, 32 Lämpchen, Service-Ölkännchen "ESSO-Super", Software: AO auf Kuhlmann-Parallelogramm-Plattform
** CSWP 04/2011 **
** CSWE 08/2011 **

erstellt am: 14. Jan. 2015 20:02    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 Ernieundbert 10 Unities + Antwort hilfreich

Der Meinung bin ich auch.

Allerdings brauchst Du dazu Component2-Objekte.
Wenn ich Deinen Code richtig deute, hast Du ModelDoc2.

Wie's richtig geht, siehst Du in Andis Makro.

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