| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge |
|
Autor
|
Thema: Blattwechsel mit VB (862 mal gelesen)
|
RalphRX8
Mitglied
Kontruktionsbüro
   Beiträge: 333
Registriert: 17.11.2004 AutoCAD-Mechanical 2017, SolidEdge ST8
|
erstellt am: 23. Mai. 2011 20:53  <-- editieren / zitieren -->   Unities abgeben:          
Hallo zusammen, ich wollte eben ein kleines Tool in VB schreiben.
Hierfür muß ich in der Draft alle Blätter durchlaufen. Ich habe das wie folgt durchgeführt: Dim mSheets As SolidEdgeDraft.Sheets
Dim mSheet As SolidEdgeDraft.Sheet
Set mSheets = objDoc.Sheets
Zähler = 1
For Each mSheet In mSheets
mSheet.Activate
objDoc.SaveAs NewFilename
Zähler = Zähler + 1
Next mSheet Wenn ich das laufen lasse, macht er mir unendlich viele Reiter unten auf, Hintergrundblätter, etliche nummerierte......
Weiß jemand wie der Befehl für den Durchlauf der Arbeitblätter lauten muß? Viele Grüße
Ralph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
peticeo
Mitglied
Wirtschaftsinformatiker FH
Beiträge: 162
Registriert: 25.10.2005 Windows 7 64bit
Quad X5472
ST 2/12
Teamcenter 8.1
|
erstellt am: 24. Mai. 2011 09:45 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8 
Hallo Ralph Was willst du den machen?
Grundsätzlich stimmt das Quellcode, aber ..
Zitat:
objDoc.SaveAs NewFilename
1. zu jeden bestehenden Register speicherst du ein neues Register! 2. wozu brauchst du die Variable Zähler? Schildere was du erreichen willst. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RalphRX8
Mitglied
Kontruktionsbüro
Beiträge: 333
Registriert: 17.11.2004 AutoCAD-Mechanical 2017, SolidEdge ST8
|
erstellt am: 24. Mai. 2011 11:02 <-- editieren / zitieren --> Unities abgeben:
Ich stricke gerade an einem Tool, welches jedes Blatt der Zeichnung als dwg rausschreibt. Der Zähler wird belegt um den Dateinamen (der dwg) mit Blattnummern zu versehen. Er wird in einer For Each-Schleife jeweils um 1 hochgesetzt und dem Dateinamen angehängt. objDoc repräsentiert die aktuell offene dft. [Diese Nachricht wurde von RalphRX8 am 24. Mai. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
pablo
Mitglied
Techniker
Beiträge: 453
Registriert: 23.01.2002 Win10
Office 365
SE 2019
|
erstellt am: 24. Mai. 2011 11:25 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8
|
RalphRX8
Mitglied
Kontruktionsbüro
Beiträge: 333
Registriert: 17.11.2004 AutoCAD-Mechanical 2017, SolidEdge ST8
|
erstellt am: 24. Mai. 2011 11:54 <-- editieren / zitieren --> Unities abgeben:
Danke Pablo, das hat mir geholfen. Aber wenn ich das so nutze, bringt er "Typen unverträglich".
Ich hatte mSheets wie folgt deklariert:
Dim mSheets As SolidEdgeDraft.Sheets
Das war wohl der falsche Typ. Habs jetzt als Object deklariert und es läuft. Vielen Dank nochmal. :-)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
