---

Hallo Leute,

ich habe mal ein Makro gemacht, daß den Zeichnungsrahmen per Knopfdruck in das Blatt einfügt.
- mit Faltmarken
- mit Schnittlinien
- anpassbar

Das Dings hat nur einen Haken:

- Beim Änderm der Blattgröße / Ausrichtung muß man das Makro noch mal laufen lassen.

Falls Interesse besteht bitte melden.

------------------
  Gruß Lothar 

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

---

Hallo Lothar,

erstellst Du den Rahmen mit dem Makro oder kopierst es aus den Ressourcen in das Blatt?

Mit Faltmarken und dergleichen lässt auf ein generiertes Blatt schließen.

Wir nutzen den Standard Rahmen nicht, da er ja bekanntlich keine Faltmarken hat. Wir löschen und kopieren immer den benötigten Rahmen.

Von daher wäre ich an dem Makro interessiert.

Es wäre mir auch hundert UŽs wert.

------------------
Gruss Bernd

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

---

Hallo Lothar,

Das Makro wäre sehr interessant, wenn er solche Rahmen von "aussen", d.H. nicht von den Zeichnungsressourcen holen würde.
Damit könnte man erreichen, dass bei Firmen, die sehr viele unterschiedlichen Rahmen und Schriftfelder haben, nicht jedes im Template sein muss, oder dass nicht so viel verschiedene Templates angelegt werden müssten. --> also genau so wie es z.B. das Mechanical macht.

gruss
Rapti

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

---

Rahmen.txt

Also

Das Makro ist so, daß der Standardrahmen mit neu definierten Parametern eingefügt wird. Es werden also keine Resourcen belegt.
Für die Linien drumrum wird ein Rahmen per Software erzeugt, dem man natürlich auch auf eigene Belange umstricken kann. Es muß also im Blatt nichts vorhanden sein, auf das das Makro aufsetzt.

--->

Aufruf mit "CreateAndInsertMyBorder"

Es werden auch noch alle anderen Rahmen gelöscht - kann man auch rausnehmen - ist nur für die Fälle, wo ich es nachträglich laufen lasse. Dann wird die Zeichnung eben kleiner.

Wichtig ist auch:

Es werden die nicht benutzten skizzierten Symbole gelöscht!
Also auch streichen falls nicht erwünscht!

------------------
  Gruß Lothar 

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

---

ach ja,

ein Makro, das so alles mögliche wie

- Gewicht für IPT und IAM in Variable schreiben,
- Masstab
- ...

immer in der entsprchenden Umgebung
aufruft habe ich hier gepostet
http://ww3.cad.de/foren/ubb/Forum258/HTML/000148.shtml

------------------
  Gruß Lothar 

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

---

Zitat:

---

Original erstellt von lbcad:
Also

Das Makro ist so, daß der Standardrahmen mit neu definierten Parametern eingefügt wird. Es werden also keine Resourcen belegt.
Für die Linien drumrum wird ein Rahmen per Software erzeugt, dem man natürlich auch auf eigene Belange umstricken kann. Es muß also im Blatt nichts vorhanden sein, auf das das Makro aufsetzt.

--->

Aufruf mit "CreateAndInsertMyBorder"

Es werden auch noch alle anderen Rahmen gelöscht - kann man auch rausnehmen - ist nur für die Fälle, wo ich es nachträglich laufen lasse. Dann wird die Zeichnung eben kleiner.

Wichtig ist auch:

Es werden die nicht benutzten skizzierten Symbole gelöscht!
Also auch streichen falls nicht erwünscht!

---

Hallo Lothar,

ich schaue mir das gleich mal an. Sicher kann ich was dabei lernen, mit dem VB stehe ich leider noch ziemlich auf kriegsfuß.

UŽs sind schon abgeschickt.

Danke sehr.

------------------
Gruss Bernd

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

---

@lbcad

Habe den Code aus der *.txt in diesem Thread genommen und in die Vorlagen.IDW in das modul1 kopiert.

Wenn ich nun auf Makros gehe, bekomme ich zwar die folgenden Einträge
Modul1.CreateAndInsertMyBorder
Modul1.DeleteBorderDefinitions
Modul1.DeleteFrameDefinitions
Modul1.dummy
Modul1.InsertDefaultBorderOnSheet
Modul1.InsertMyFrameOnSheet
Modul1.PropertyBlattgroesseSetzen
angzeigt, habe aber als Buttons nur abbrechen und erstellen zur Verfügung.
Ausführen geht nicht.
Was habe ich falsch gemacht?
Bin für jede Hilfe dankbar.

Vielen Dank im voraus!
Tschüß Frank!

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

---

Hallo Frank,

wenn Du "Modul1.CreateAndInsertMyBorder" startest, sollte es gehen.

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

@Lothar

Wie gesagt, unter Makros ist der Button Ausführen ausgegraut.
Wenn ich in den VisualBasicEditor gehe und zu dem Unterprogramm
CreateAndInsertMyBorder
und diese Sub/Userform ausführe, dann kommt Fehler beim Kompilieren:
Syntaxfehler und das Wort Attribute ist markiert!
Im übrigen ist die ganze Zeile
Attribute VB_Name = "Rahmen" rot dargestellt, was für Sytaxfehlertext steht.
Wo ist denn hier der Fehler ?
Kenne mich noch nicht so gut mit VisualBasic aus.

Vielen Dank!

Tschüß Frank!

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

---

Rahmen9.bas.txt

Hallo Frank,

Du solltest eigentlich dieses Programm so installieren:

im VB-Editor links oben das Projekt-Fenster:
in Anwendungsprojekt-Module RMB Datei importieren.
Dann fällt die erste Zeile weg, die Dir den Fehler verursacht.

Aber es hat sich für die Benutzer so ab IV9 etwas an der Syntax die die Standardrahmen geändert.

Ich habe dafür das Makro leicht verändert. Bei mir läufts so -->

HTH

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

@ Lothar

Vielen Dank!

Habe erste Zeile entfernt und jetzt funktioniert es!
Tolles Programm. Bin selber über den Anfängerstatus bei Visual Basic bisher nicht hinausgekommen.
Die neue Version die Du hier reingestellt hast, werde ich nehmen wenn wir auf IV9 bzw. IV10 umstellen.

Nochmals Vielen Dank!

Unities sind unterwegs!

Tschüß Frank!

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

---

Oh Gott, Oh Gott, Oh Gott

Es geht nicht mehr in INVENTOR 10. Ich hab heute Inventor 10 installiert und nun gehts net mehr was soll ich tun ?

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

---

da kann ich im Moment auch nicht helfen. 

Ich nudele noch mit IV 9 rum.

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Naja halb so wild, hab jemanden bei uns gefunden der sich mit VBA auskennt, er sagt er schaut mal rein. (Mal gespannt ob er auch dran arbeitet ^^)

Wenn er was hat schreib ich's hier rein.

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

---

Zitat:

---

Original erstellt von Mathias Ziegler:
Oh Gott, Oh Gott, Oh Gott

Es geht nicht mehr in INVENTOR 10. Ich hab heute Inventor 10 installiert und nun gehts net mehr was soll ich tun ?

---

Hi Mathias,
vielleicht hilft dir ja vorläufig das weiter

------------------
Grüße

Jörg

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