---

Hallo allerseits,
wir haben uns ein Makro erstellt um die Abwicklung eines Teils
automatisch im Maßstab 1:1 als DXF abzuspeichern.(Import in CAD System
unserer Laserschneidanlage).
Leider bekommen wir immer die Fehlermeldung:
Laufzeitfehler'91'
Objektvariable oder With-Blockvariable nicht festgelegt.

Wer weiß Rat oder hat bereits so ein Makro erstellt?

Grüße aus Pinneberg
Frank

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

---

Hallo Frank,

tja, da geht wohl irgendwas schief...
Wenn man jetzt den Code sehen könnte und genau die Zeile wüßte, dann wäre es leichter.

Und die beste Methode selbst drauf zu kommen, ist der Debugger in VBA, der Dir neben der Zeile auch die Inhalte der Variablen und vieles mehr anzeigen kann.

Mein Verdacht: Du hast irgendein Objekt geholt (z.B. View), das hat nicht geklappt, in der nächsten Zeile wird dieses Objekt ohne weitere Prüfung benutzt -> und Peng!!!

Gruß, Armin

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

---

Hallo Frank aus Pinnberg!

Schwer zu sagen, wo das Problem liegt, ohne weitere Infos.
Nur soviel: Falls du SP11 installiert hast, gibt es ein Problem mit der Funktion "DrawingDoc.CreateFlatPatternViewFromModelView" (Klasse Name!  ) Die funktioniert nämlich nicht, läuft einfach durch, als wäre nix gewesen, macht aber nicht das, was sie soll. 
Mit dem SP12 oder in der 2001plus ist alles wieder i.O.

Axel

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

---

Hallo Frank,

ich kann Dir auf Deine Frage nicht direkt antworten, weil ich kein Makro-Hase bin.

Nur mal so zur Info, wie wir unsere Abwicklungen "verwalten":
in der Zeichnung haben wir auf dem ersten Blatt das Teil mit den Biegemaßen und den erforderlichen Ansichten und Angaben. Zusätzlich erstellen wir ein zweites Blatt in der gleichen Zeichnungsdatei, ohne Rahmen, mit der Ansicht der Abwicklung im Maßstab 1:1 (wichtig!).
Bei Bedarf (bei Änderungen) wechseln wir dann auf's zweite Blatt und "speichern unter" als dxf die Abwicklung.

Unsere Zeichnungsvorlagen haben dieses zweite Blatt schon mit drin. Zusätzlich steht rechts unten der Maßstab (zur Kontrolle), die Teilenummer, der Verkürzungsfaktor, die Blechdicke, der Standardbiegeradius und die Version. Diese Angaben füllt der Konstrukteur in den Teileeigenschaften aus.
Diese Angaben werden dann in der Blechprogrammiersoftware gelöscht, da sie nur zur Info für den Programmierer dienen.

Ist halt auch nur eine Möglichkeit.
Viele Grüße
Sandro

[Diese Nachricht wurde von sandro am 06. Dezember 2001 editiert.]

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

---

Zitat:

---

Original erstellt von Axel:
Hallo Frank aus Pinnberg!

Schwer zu sagen, wo das Problem liegt, ohne weitere Infos.
Nur soviel: Falls du SP11 installiert hast, gibt es ein Problem mit der Funktion "DrawingDoc.CreateFlatPatternViewFromModelView" (Klasse Name!   ) Die funktioniert nämlich nicht, läuft einfach durch, als wäre nix gewesen, macht aber nicht das, was sie soll. 
Mit dem SP12 oder in der 2001plus ist alles wieder i.O.

Axel

---

Hallo Axel,
wir arbeiten tatsächlich noch mit SP11 !
Werde mir jetzt erstmal SP12 downloaden.
Danke für den Tip!

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

---

Hallo Frank

Vergiss SP12 da funkt es auch noch nicht. :heul: Ich habe auch ein kleines Macro geschrieben das mir die Abwicklung im Massstab 1:1 ausliest. Ab SP6 funkts nicht mehr richtig. Wie Axel schon sagt.
Was auch ein Problem ist man braucht ja ein Blechteil zum Abwickeln ein normales Volumenmodel kann man ja nicht abwickeln also muss zuerst ein Blech daraus gemacht werden (Altes Blech Feature). Es gibt in SWX ein Befehl "Part.GetBendState" wo mir sagt ob dieses Teil ein Blechteil ist. Im neuen Blechfeature wurde dies VERGESSEN :heul: also beim neuen Blechfeature sagt mir der Befehl kein Blech obwohl es ein Blech ist.

Also da sollte noch etwas von SWX kommen.

Gruss Frank Oberparleiter :wink:

P.S. Lade mir gerade SP13 runter mal schaun obs da Funkt.

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

---

Hallo,

anstelle von Part.GetBendState gibt es für die neuen Blechfunktionen das Objekt SheetmetalFeatureData.
Man durchsucht also alle Features und sieht, ob eines der Features eine solche Defintion (Feature.GetDefintion) hat.

Gruß, Armin

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

---

Hallo,
zwar ein alter Beitrag aber eine neue Frage.
Kann mir jemand ein solche Makro schicken?
Ich habe gerade das gleiche Problem?

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

MfG
Ludger

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

---

Abwicklungerstellen.zip

Hallo

Jo ich habe mal ein Marco geschrieben.
Gut es könnte vielleicht sauberer geschrieben werden aber was soll's es funkt.
Ihr müsst nur noch den Pfad für die Dokumentvorlagen ändern dann müsste es gehen.

------------------
Soo Long

Frank O.

P.S. Da gibts vielleicht nochn Prob. Das Macro ist auf dem neuen VBA-CODE von SWX melde dich wenns net geht.

[Diese Nachricht wurde von Oberparleiter am 22. Mai 2003 editiert.]

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