---

Hallo zusammen,

ich möchte ein kleines Makro in VBA schreiben, dass in einer IDW alle Konturen von Abwicklungsansichten auf einen anderen Layer legt.

Musste leider gerade feststellen, dass meine VBA Kenntnisse wegen nicht benutzen eingerostst sind.

Mein Hauptproblem ist alle Konturen von Abwicklungsansichten anzusprechen. Den Rest bastel ich mir zusammen.

Bisher habe ich das zu Fuß gemacht indem ich den Auswahlfilter auf Körper gestellt habe dann alle Abwicklungskonturen (mehrere Teile) selektiert dann RMK "Auswahl als Kanten" dann Layer auswählen.

Wenn man nicht alle Konturen von Abwicklungsansichten automatisch wählen kann wäre ich für einen Code dankbar der den User die Konturen auswählen lässt. Mit Auswahlfilter "Körper" damit werden keine Biegelinien usw. selektiert.

Würde mich sehr über Hilfe freuen!

Gruß Mario

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

---

Nicht genau was du suchst, aber mal ein Ansatz, wie auf die Konturen einer Abwicklungsansicht zugegriffen werden kann.
http://forums.autodesk.com/t5/inventor-customization/layer-visibility-on-different-sheets/td-p/4296209

Fände es super, wenn du dein Ergebnis hier posten würdest.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

VBALayerschneiden.txt

Hallo...

konnte meine alten VBA Kenntnisse wieder bischen auffrischen.

Habe ein Lauffähiges Programm zusammengebastelt. Programmiert ist es leider wie Sau.

Beispiel Abfrage ob es einen Körperkante ist frage ich ob sie auf AM_0 liegt. Muss alles noch schön gemacht werden aber es läuft schon mal. Bitte um entschuldigung. Werde noch das "schöne" Makro posten.

Gruß Mario

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

---

Guten Morgen zusammen,

ich habe noch eine kleines Problem in meinem Code dass ich seid Tagen nicht lösen kann.

Eine als string deklarierte Variable zusammen mit eienem festen Buchstaben in den Dateinamen beim speichern schreiben. Ich bekomme mit debug.print und msgBox genau das gezeigt was ich sehen will. Aber ich kanns nicht in die Datei schreiben. Bitte um Hilfe.

Variable ZeiNr als string soll ohne Leerzeichen hinter das T

Ausschnitt des Programms:

If oDrawDoc Is Nothing Then Exit Sub
If Len(Trim(oDrawDoc.FullFileName)) > 0 Then
      outFile = "D:\_DXF-Utzberg\T" & ".dxf"
        oDrawDoc.SaveAs outFile, True
Else
        MsgBox "Erst Speichern", vbInformation
End If

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

---

Moin!

Geht es darum,

a) eigentlich die Konturlänge auszurechnen (was die Überschrift annehmen lässt)

oder geht es darum,

b) nur die Konturlinien auf einen anderen Layer zu legen?

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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

---

Hallo,

es geht um b)

Aber nur die Konturlinien von abgewickelten Ansichten. Die Konturlinien der gefalteten ansicht auf dem selben Blatt nicht.

Programm läuft soweit.

Bis auf das zuvor angesprochene Problem eine Variable in den Dateinamen einzubauen.

Brauche immer noch Hilfe!

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

---

Ach ja im Thema ist ein Tippfehler. Das letzt Wort soll "ansprechen" heißen.
Vielleicht hat das zur Verwirrung geführt.

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