| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | Engineering in the Cloud: PLM in the Cloud for effective Processes |
|
Autor
|
Thema: VBA Positionsnummer auf Text ändern und Stüli löschen (1918 mal gelesen)
|
Joshua63
Mitglied
Maschinenbautechniker
   Beiträge: 371
Registriert: 08.11.2006 W10 SP1
Intel i7 8700K
Quatro P4000
32GB RAM
SW 2021 SP4.1
SWX PDM Professional 2021
|
erstellt am: 19. Aug. 2013 16:53  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Zusammen, gibt es die Möglichkeit alle Positionsnummern einer Zeichnung per Makro ins Textformat zu ändern, und die angehängte Stückliste zu löschen ? Grüßle ------------------
Viele Wege führen zum Ziel .......... und ich will alle wissen ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Joshua63
Mitglied
Maschinenbautechniker
Beiträge: 371
Registriert: 08.11.2006 W10 SP1
Intel i7 8700K
Quatro P4000
32GB RAM
SW 2021 SP4.1
SWX PDM Professional 2021
|
erstellt am: 26. Aug. 2013 13:06 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, hat wirklich niemand eine INFO darüber ob es geht oder Nicht ? Mit dem Makro - Rekorder kam auch nix raus. Grüßle ------------------
Viele Wege führen zum Ziel .......... und ich will alle wissen ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten Heß
Mitglied
Diplom Ingenieur (Konstruktion)
Beiträge: 105
Registriert: 23.07.2004 Windows 7 64bit, 12270MB RAM,
3,2 P3 Xeon, Quadro 4000
SW 2014 64bit /SP4.0
MaxxDB SP3.04
|
erstellt am: 27. Aug. 2013 10:16 <-- editieren / zitieren --> Unities abgeben: Nur für Joshua63 
Hi Joshua, die Möglichkeit gibt es.
Zumindest kannst du alle Positionsnummern über ein Makro ansteuern. swView = swdraw.GetFirstView
Do While Not swView Is Nothing
If swView.Type <> swDrawingViewTypes_e.swDrawingSheet Then
nnote = swView.GetFirstNote
Do While Not nnote Is Nothing
If nnote.IsBomBalloon = True THEN
bret = nnote.SetBomBalloonText(swDetailingNoteTextCustom,"dein text",swDetailingNoteTextCustom,"")
End If
nnote = nnote.GetNext
Loop
End If
swView = swView.GetNextView
loop
Ich habe es selbst noch nicht ausprobiert aber so ähnlich müsste es funktionieren.
Zum Schluss dann die Stückliste markieren und löschen. Gruß Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Joshua63
Mitglied
Maschinenbautechniker
Beiträge: 371
Registriert: 08.11.2006 W10 SP1
Intel i7 8700K
Quatro P4000
32GB RAM
SW 2021 SP4.1
SWX PDM Professional 2021
|
erstellt am: 27. Aug. 2013 16:05 <-- editieren / zitieren --> Unities abgeben:
Hi Carsten, danke erst mal für die Info. wir haben ein Makro das die Stückliste ausliest und als Excel-Datei mit unserer Vorlage abspeichert. ich werde versuchen das da mit einzubauen. Muss ich die Stückliste unbedingt markieren ?
Es wird eh nur eine Liste auf der Zeichnung sein, die muss man doch so erkennen können ?! Gruß ------------------
Viele Wege führen zum Ziel .......... und ich will alle wissen ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten Heß
Mitglied
Diplom Ingenieur (Konstruktion)
Beiträge: 105
Registriert: 23.07.2004 Windows 7 64bit, 12270MB RAM,
3,2 P3 Xeon, Quadro 4000
SW 2014 64bit /SP4.0
MaxxDB SP3.04
|
erstellt am: 30. Aug. 2013 08:06 <-- editieren / zitieren --> Unities abgeben: Nur für Joshua63
Hi Joshua, man kann die Tabellen über vba aufrufen.
Immer nur eine nach der anderen.
Wenn Ihr nur eine habt, dann sollte er auch nur diese finden.
wenn du Sie als Object im vba hast, dann kann man diese über vba löschen.
Alternativ kannst du auch über den Befehl selectobject im vba die
Stückliste markieren, wenn sie immer die gleiche position auf der Zeichnung hat. Gruß Carsten 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: 30. Aug. 2013 11:57 <-- editieren / zitieren --> Unities abgeben: Nur für Joshua63
|
Foren auf CAD.de (alle Foren)
| 
