---

Hallo alle zusammen,

ich habe zur Zeit Null Ahnung von VB, aber das macht nix kann man ja lernen. Meine Vorstellung isr es den Maßstab aus der erst Ansicht zu übernehmen in das Schriftfeld der Zeichnung. Ist das möglich oder bleibt das ein Traum?

Danke im voraus für die Beiträge.

mfg
RonaldŽn

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

---

Hallo Ronald,

Robby Lampe hat so eine idw Vorlage die den Maßstab in das Schriftfeld einträgt. Allerdings funktioniert es nicht 100%. Ich habe bis heute keine Zeit gefunden es mal anzuschauen, aber vielleicht am Wochenende 

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

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

---

Norm_Massstab.zip

Zitat:

---

Allerdings funktioniert es nicht 100%.

---

wo oder wann nicht? 

------------------
gruß
robby

[Diese Nachricht wurde von Robby Lampe am 11. September 2003 editiert.]

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

---

Hi Robby,

Zitat:

---

Alexander Knaus...

Hallo VBA- Gurus,

mit der Norm.zip von Robby Lampe (Jörgen Pisarz)hab ich folgende Probleme.
1. Maßstab:
Mit den Original- Dateien funzt alles prima, Erstansicht erzeugen, Maßstab im Schriftkopf folgt dem der Ansicht(en). Nun hab ich das Modul Maßstab und den Autosave in meine Vorlagedatei kopiert. Die benutzerdefinierte Variable "Maßstab" wird auch erzeugt, mit Autosave auch in den benutzerdefinierten Eigenschaften aktualisiert; leider nicht im Schriftfeld. Natürlich beinhaltet das Schriftfeld die benutzerdefinierte Eigenschaft Maßstab. Die Aktualisierung erfolgt nur, wenn ich das Schriftfeld lösche und neu einfüge, wobei dann die ganzen Hand- Eingaben flöten gehen.....Woran könnte das liegen?
2. Masse:
Hier ist die Sache anders. Wenn ich in der Originaldatei Norm.ipt einen Körper erzeuge wird beim Speichern die benutzerdef. Eigensch. Masse erzeugt, soweit gut. Öffne ich nun die Original Norm.idw, Erstansicht von Norm.ipt, dann Speichern. Die Variable Masse in den Eigenschaften Zeichnung ist zwar da aber leer. Was muss ich beachten.
Vielen Dank für eure Hilfe.

---

Ich wusste nicht, dass sich's erledigt hat 

Gott sei Dank 

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

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

---

Danke euch beiden. Das werd ich mir heut abend mal ansehen.

mfg

RonaldŽn

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

---

Zitat:

---

Die benutzerdefinierte Variable "Maßstab" wird auch erzeugt, mit Autosave auch in den benutzerdefinierten Eigenschaften aktualisiert; leider nicht im Schriftfeld.

---

danke für den hinweis,
habe es erst schmerzlich am dienstag abend erfahren.
der vorteil beim wechsel von 5.3 auf 7.0 ist, dass sonderzeichen wie "ß" in benutzerdefinierte variablen nicht verwendet werden können zumindestens im zusammenhang mit dem automatischen ausfüllen des schriftfeldes. da muss erst jemand darauf kommen. na ja,ich liebe unicode. 

------------------
gruß
robby

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

---

Hi Robby,

ich habe mir Deine Vorlage (idw) angesehen. Ich will die Firmen-Vorlage nicht ändern. Ich sehe zwischen Deiner und der unserer Firma keinen Unterschied, wenn man sich die Eigenschaften ansieht. Bei mir ist das auch eine Benutzerdef. Eigenschaft. Bloß das es nicht so funktioniert wie bei Dir. Wo liegt der Trick damit der Maßstab von der erst Ansicht übernommen wird? Wo muss ich das einstellen?

mfg
Ronald

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

---

Hallo Robby !
Bei mir klappt das VBA-Programm für den Massstab gut, allerdings ist ein kleiner Schönheitsfehler bei mir: Die Massstäbe werden nicht durch Komma getrennt, obwohl es doch so programmiert ist, oder ?
Bin in VBA leider nicht ganz so fit... Weißt Du woran das liegen könnte ?

Grüßle

Michael

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

---

Kommafehler.JPG

Muß mich korrigieren: Bei mehr als zwei zusätzlichen Maßstäben kommt das Komma. Ich hab daraufhin noch mal am Code rumgespielt und festgestellt, daß es bei mir funktioniert, wenn ich das blau hinterlegte Komma einfüge ! Hab aber noch nicht alle Kombinationen ausprobiert !
Vielen Dank für das Progrämmchen macht die Sache doch etwas komfortabler !

Hab jetzt doch noch was festgestellt: Bei mehreren Blättern funktioniert's nicht. Dann werden immer nur die Maßstäbe des Blattes das beim Speichern aktiv war auf beiden Blättern eingetragen. Kommt ja aber extrem selten vor 

Michael

Übrigens werde ich bei mir lieber mit Semikolon trennen, da ja Kommas auch in den Maßstäben vorkommen...

[Diese Nachricht wurde von mimamb am 12. September 2003 editiert.]

[Diese Nachricht wurde von mimamb am 12. September 2003 editiert.]

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

---

Hallo!

Ich werde demnächst mal das Progrämmchen komplett überarbeiten, es sind ja inzwischen einige Änderungswünsche hier im Forum formuliert worden.

Da ich aber momentan etwas arg beschäftigt bin, wird es noch ein paar Takte dauern...

------------------
Grüße Jörgen

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

---

Masstab_einfuegen.txt

Hallo,

habe vor einiger Zeit mal die Sache mit den Maßstäben benötigt und auch die Anzeige überarbeitet. Siehe Hier -->

Vielen Dank dafür an Pisarz.

------------------
Gruß LBCAD

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

---

Hallo zusammen !
Mit mehreren Blättern is aber immer noch nich, oder ?
Ist da jemand dran oder ist das schlicht und ergreifend nicht möglich ?

Gruß
Michael

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

---

Hallo Ibcad,

was soll das heißen, "die Anzeige überarbeitet"?

Gruß aus Ostwestfalen

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

---

Hallo Ronald,

hier ein Beispiel, wie Du durch alle Sheets durch iterierst und in jedem Sheet (falls vorhanden) aus der ersten Ansichtn den Skalierfaktor herausliest.

Private Sub getFirstViewScale()
 
  Dim oApp As Application
  Set oApp = ThisApplication
 
  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oSheets As Sheets
  Set oSheets = oDoc.Sheets
 
  Dim oSheet As Sheet
 
  For Each oSheet In oSheets
 
    Dim oViews As DrawingViews
    Set oViews = oSheet.DrawingViews
   
    If oViews.Count > 0 Then
   
      MsgBox oViews(1).Scale, , oSheet.Name
     
      ' jetzt das entsprechende Sheet aktivieren
      ' und den Skalierfaktor reinschreiben
     
    End If
   
  Next oSheet
   
End Sub

Zum reinschreiben des Skalierfaktors, schau Dir mal das Beispiel 'SketchTextAdd' in der API-Hilfe an - ist etwas verwirrend, da sehr umfangreich. Der Punkt ist aber, dass Du eine TextBox einfuegen musst. ACHTUNG: es gibt auch VB-TextBoxen ! Deklariere Deine TextBox so:

Dim oTextBox as Inventor.TextBox

sonst kann's passieren, dass Du beim verwenden des Objekts Probleme bekommst.

Gruesse, Paul

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

---

Erst mal Danke Paul,

für Deine Info. Ich habe mich noch nicht mit dem Problem weiter beschäftigt. Ich denke am Wochenende werde ich mir das alles mal ansehen. Wenn ich Fragen - die ich mit Sicherheit habe - meld ich mich umgehend im Forum.

Danke RonaldŽn

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

---

Danke Paul !
Scheint ja doch noch was zu werden mit mehreren Blättern. Vielleicht find ich ja auch mal Zeit zum Spielen...

Gruß

Michael

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

---

Hallo zusammen !
Bin grad am "Knobeln"...
Bis jetzt hab ich es geschafft, das die Schleife für verschiedene Blätter durchlaufen und die Textbox für jedes Blatt erzeugt wird.
Das Hauptproblem für mich ist jetzt, dass die Skizze mit der Textbox bei erneutem Speichern gelöscht werden sollte, sonst hat man bei Änderungen natürlich einen ziemlichen Schrott dastehen. Mit DrawingSketch.Name schaff ich es aber nicht die Skizze umzubenennen, so dass ich eventuell gezielt die alten Skizzen löschen könnte. Weiss hier jemand Rat wie man Zeichnungsskizzen umbenennen kann ?

Ein kleineres "Problemchen" habe ich auch mit dem StyleOverride. Ich wollte eigentlich die Schriftgröße einer VARIABLEN ändern. Komme hier nicht weiter, die Samples in SketchTextAdd sind nur für fixe Texte.

Vielen Dank für Eure Hilfe

Michael

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

---

Hallo Michael,

Du kannst Deine Skizze nicht umbenennen - das ist ein bug (wahrscheinlich der einzige...) in der Inventor API. Fuer einen update solltest Du NIE auf den Namen zurueckgreifen. Bedenke: jedr user koennte den Namen aendern, und schon faellt Deine Aktualisierung in's Wasser...

Wie den Text wieder zu finden, um die Skizze zu loeschen und neu zu setzen ?? Ich bin mir nicht sicher, ob das geht: versuch mal, an die Skizze ein Attribut zu haengen. Bevor Du nun de Test setzt, geh in einer Schleife durch alle Skizzen im sheet, pruefe alle Skizzen auf das gesuchte Attribut. Falls das Attribut da ist, die Skizze loeschen. Danach Skizze mit Text setzen. So hast Du alles in einem Aufwisch: Erzeugung und Aktualisierung.

Ich kuck mal wegen Textgroesse, hab' ich schon mal irgendwo gebraucht...

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hi Michael,

Fontgroesse:

bevor Du die TextBox auf die Skizze legst, kannst Du so die Fontgroesse anpassen:

  sText = "<StyleOverride FontSize='" & FSize & "'>" & sText & "</StyleOverride>"

wobei sText der Eintzfuegende Text ist und FSize (Double) die Fontgroesse darstellt. Beachte: inventor arbeitet in cm,
FSize = 0.5
entspricht einer Fontgroesse von 5 mm.

Gruesse

Paul

---------------------- www.morecam.ch/cad.htm
----------------------

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

---

Hallo Paul !
Schon mal vielen Dank.
Das mit der Fontgröße hatte ich schon so probiert...
Will bei mir einfach nicht funktionieren...
Ist aber nicht so schlimm, das kann man ja mit dem Textstil umschiffen...
Die Sache mit den Attributen versuch ich jetzt mal.

Gruß

Michael

[Diese Nachricht wurde von mimamb am 22. Nov. 2003 editiert.]

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

---

Hallo Michael,

ja, das mkt den Textstilen und Fontgroessen ist ziemlich heikel - haette sciher einfacher geloest werden koennen... Auch ich hatte damit ein ziemliches rumgemurkse...

Willst Du mir Deinen code mal schicken ? Dann kuck' ich mir das mit der Fontgroesse mal an - in meiner Applikation klappt's.

Gruesse,

Paul

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

---

Erzeugung_Textbox.txt

Hallo Paul !
Hier ist der Code... Ich hab halt einfach versucht, den alten Code umzustricken (zu mehr langen meine VBA-Kenntnisse noch nicht...).
Sieht ein bisschen aus wie Kraut und Rüben, ich hoffe Du findest Dich zurecht !

Vielen Dank !

Michael

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

---

Mit den Attributen komm ich auch nicht weiter. Kann es sein, dass Zeichnungsobjekte Attribute nicht unterstützen ?
Das behauptet er zumindest immer, wenn man den Beispiel-Code
Misc - Dynamic Attributes ausführt und z. B. eine Skizze oder eine Linie anwählt.

Gruß
Michael

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

---

Hi Michael,

Du solltest jetzt mal Feierabend machen - ich tu's auch....

Ich guck dann morgen mal rein.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

hi paul,
ein toller einstieg.was ich auf der der firmenhomepage gefunden habe, spitze.

schaut euch das iTol mal an.  

------------------
gruß
robby

[Diese Nachricht wurde von Robby Lampe am 22. Nov. 2003 editiert.]

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

---

Masstab.txt

Hallo Michael, Hallo Robby,

Robby: besten Dank fuer Die Lorbeeren - hast' ja schon fleissig Demo-Pakete bestellt...

Michael: hier das Setzen der Font-Groesse: Brauchst nur 'ne Double-Variable zu nehmen und schoon geht's.
Im weiteren habe ich Dir gleich noch die update-Funktion miteingebaut (Attribut setzen an Skizze) - funktioniert aber leider nicht ????
Ich muss morgen fuer 2 Tage nach London und am Mittwoch bin ich bei einem Kunden - schau dann nachher nochmals rein.

Sorry, sollte eigentlich so gehen...

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Michael,

da ist mir gerade ein workaround in den Sinn gekommen:
Mach auf Deine Skizze eine zweite TextBox mit einem winzig kleinen Text, z.B. "....." in einem sehr kleinen Font. Setz die TextBox in die linke untere Ecke, ueber die Blattrandlinie (dann ist der Text nicht sichtbar). Du kannst dann in jedem sheet durch alle Skizzen durch iterieren. In jeder Skizze iterierst Du dann durch alle TextBoxen. Wenn Du eine TextBox mit "...." als Text findest, dann ist's die Skizze, die Du loeschen musst.

Klingt komplizierter als es ist... und ist zugegeben nicht der eleganteste Weg - wird aber funktionieren.

Ich klaer mal ab, ob's mit Attributen in Skizzen probleme gibt.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul !
Zunächst schon mal vielen vielen Dank ! Dein Einsatz ist phänomenal !
Ich kann Robby nur beipflichten, Deine Tools sind echt interessant.
Ich wünschte mir solche Leute bei AD... Aber Du sagst ihr verkauft auch an die ?
Schau mir die Sache mal an ! Wahrscheinlich werden wir aber noch bis Mittwoch warten müssen, bis wir 'ne "gscheite" Lösung haben, befürchte ich....

Viele Grüße in die Schweiz

Michael

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

---

VorlaeufigeVersion.txt

Hab mich dank super Anleitung unterschätzt 

HEUREKA

Mit der Textbox-Geschichte klappt es. Ich hab sie einfach bei -10, -10 platziert. So stört sie (zumindest mich) nicht !
Funktioniert für alle Blätter bei mir bisher einwandfrei...
Allerdings habe ich die zwischenzeitliche Änderung von lbcad nicht berücksichtigt !
Noch mal vielen Dank in die Schweiz !

Gruss
Michael

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

---

Hallo Michael,

Jein - wir leben in erster Linie von Kundeprojekten, diese tools verkaufen wir nicht an AD. Wir vertreiben sie selber.
Aber wir habe schon fuer AD (bzw. fuer deren Kunden) Projekte gemacht.

Deine Aussage bez. AD klingt auch nicht gerade hoch erfreut.

Ich muss da noch eines loswerden: wenn man so im Inventor Forum list, dann faellt schon mal das eine oder andere boese Wort ueber AD. Mag berechtigt sein oder nicht - sei's drum.

Ich kann nur das dazu beitragen:

1. Wenn sich jemand von AD verschaukelt fuehlt, dann braucht's da (wie ueberall) immer 2 dazu: einer der verschukelt und einer, der sich verschaukeln laesst.
Ich bin seit vielen Jahren als Techniker im CAD/CAM business. Ich habe viele Implementationen - gute und weniger gute - mitgemacht. Probleme gibt's ueberall - mal mehr, mal weniger. Schliesslich hat jede Firma evaluiert und Bench Marks durchgefuehrt.
Die zum Teil schon fast unverschaemten Bemerkungen in Inventor Forum sind fuer mich nur Ausdruck der eigenen Schwaeche oder der eigenen Unfaehigkeit (der Eine oder Andere darf jetzt ruhig beleidigt aufhoeren zu lesen...), eine serioese Evaluation durchzufuehren.

2. Wer mit einem technischen Anliegen an einen Vertriebler gelangt und ihm glaubt (Entschuldigung an Herrn Schneider, der mehr als nur einmal in Forum erwaehnt wird - ich kenne ihn nicht), und davon seinen Kaufentscheid abhaengig macht, IST NAIV. Der sollte sich nicht im Nachhinein ueber AD beschweren, sonder mal seine eigene Rolle ueberdenken.

3. Wir sind ADN (AutoDesk Developer Network) Mitglied. Die Zusammenarbeit mit dem ADN Support klappt hervorragend (zum meiner Zeit bei SEDC konnten die Entwickler von so was nur traeumen). Die Leute da sind aeusserst kompetent und prompt in der Erledigung der Anfragen.
Die Projekte, die wir fuer AD (speziell Muenchen) durchgefuehrt haben, liefen allesamt sehr gut ab.

4. Wenn sich jemand im Forum ueber AD beschwert, dann soll er doch Mann (oder Frau) genug sein, und sich mit seinem RICHTIGEN NAMEN melden und nicht hinter einem Pseudonym verstecken. Konstruktive Kritik ist immer gut und wichtig - auch fuer AD. Es ist aber immer der Ton, der die Musik macht ! Und wenn man mit seinem Namen hinstehen muss, dann schaut's oftmals schon ganz anders aus. Wer sich hinter einem Pseudonym verbirgt, ist ein Feigling.

5. Was mir hier im Inventor VBA Forum besonders gefaellt: Ihr Jungs und Maedels seid von der Front - Ihr muesst damit arbeiten und seid einfach darauf angewiesen, das beste aus dem zu machen, was Ihr zur Verfuegung habt.

Mal ganz ehrlich: welche System ist perfekt ??? GAR KEINS, dann gaebe es naemlich nur noch das !

Und noch was: wenn Ihr mal wieder gefrustet seid bez. Inventor: lest mal ein paar Beitraege in der anderen Foren, und schon geht's Euch wieder besser. Stellt Euch vor: die kochen auch nur mit Wasser...

Last but not least: mir macht es schlichtwegs Spass, 'noch was mehr' aus sem Ding rauszukitzeln - ich hoffe, Euch auch !

In diesem Sinne verabschiede ich mich jetzt bis Dienstag Abend - ich werde naemlich in London eine wunderschoene VOX Continental 2 Orgel (die Ray Manzarek bei den 'Doors' gespielt hat) von 1969 abhiolen.

Ich hoffe, ihr habt bis dann ein paar interessante Beitraege beisammen...

Gruesse an alle und allen einen guten Start in die neue Woche.
Moege die Macht mit Euch sein !

Paul

Zur Abwechslung mal ein anderer Link:
http://www.morecam.ch/halloween.htm

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

---

Massstaebe.txt

Hier ist der Code etwas "entmüllt" und ein bisschen kommentiert.
Hab ihn auch ins Inventorforum gestellt, ich hoffe, dass geht in Ordnung ?
Gruß

Michael

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

---

Hallo zusammen !
Ein Problem geht mir gerade noch durch den Kopf... Wenn sich die Blattgröße ändert steht der Text natürlich nicht mehr an der richtigen Stelle. Vorallem problematisch wenn die Blätter EINER Zeichnung unterschiedlich groß sind ! Sollte wohl fast noch eine Abfrage rein, wie groß das Blatt ist und dann die Werte dafür vergeben werden...
Vielleicht hilft mir ja der Zufall oder der Paul, Daywa1k3r wäre auch nicht zu verachten...

Gruß

Michael

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

---

Massstaebe2.txt

Die Macht war wohl mit mir...
Voila !
Hab jetzt mal exemplarisch Fälle für A2, A3 und A4 eingeführt.
Die Blattorientierung ist allerdings nicht berücksichtigt. Brauch ich für mich eigentlich auch nicht, falls es jemand unbedingt will, versuche ich's mal.

Gruß

Michael

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

---

Hallo Leute,

so ganz habe ich die Sache mit der Textbox nicht kapiert, warum wird der Maßstab nicht in die Benutzerdefinierte Variable "Maßstab" geschrieben, die dann immer im Schriftfeld auftaucht ?

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

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

---

Hallo Lothar !
Das Problem mit der benutzerdefinierten Eigenschaft ist, dass das bei EINEM Blatt super funktioniert. Bei MEHREREN Blättern funktioniert es aber nicht mehr ganz so gut. Dann mußt Du vor dem Drucken eines jeden Blattes "Speichern" klicken, damit auch wirklich die Massstäbe dieses Blattes auftauchen. Ansonsten wäre es natürlich die "schickere" Methode, ganz klar !
Wenn Du also sowieso immer nur EIN Blatt in Deinen IDW's hast, nimm lieber den alten Code !

Gruß
Michael

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

---

Hallo Michael,

bin gerade zurueckgekommen - sieht gut aus, Dein code. Du solltest aber unbedingt A4 - A0 beruecksichtigen.
Noch was: bei den 'ElseIf' fuer die Blattgroesse solltest Du unbedingt am Schluss noch ein 'Else' anfuegen (ev. nur mit einer Fehlermeldung). Mit diesem 'Else' faengst Du alle anderen Faelle ab - wenn z.B. einer eine eigene Blattgroesse definiert oder so.

Gruesse,

Paul
www.morecam.ch/cad.htm

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

---

Hallo Paul !
Da hab ich das gemacht, was ich AD auch mal gerne vorwerfe :
Einfach schnell ein Release in den Ring geworfen...
Nein, letzten Endes muss es sowieso jeder anpassen, deshalb war ich da noch etwas faul am späten Abend.
Das mit den Fehlerroutinen ist noch nicht so mein Ding... Werd's aber nachtragen.

Nachdem das hier wirklich ganz in meinem Sinne gelaufen ist, gleich die nächste Frage: Was mir in Inventor sehr sehr fehlt ist die Möglichkeit komplette Features in Zeichnungen unsichtbar zu schalten. Z.B. zum unsichtbar machen von verdeckten Bohrungen (Bei SWX hab ich das gesehen und finde es eine super Hilfe). Meinst Du das könnte man per VBA erreichen ? Falls es eine Chance gibt, mache ich einen neuen Thread auf.

Ich hoffe es hat gut geklappt mit der Orgel...Hört sich ja wieder echt spannend an, was die Leute hier so treiben...

Nochmals vielen Dank für Deine Hilfe (dieses Wort ist hier natürlich reichlich untertrieben).

Gruß

Michael

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

---

cont2.jpg

Hallo Michael,

das ist schon moeglich - aber fang doch bitte damit ein neues Thema an. Probier mal etwas rum. Am Donnerstag werd' ich mich dan einklinken. Ich bin morgen unterwegs, halte einen Vortrag zum Thema 'Inventor Programmierung'....

Ja, London war ziemlich stressig - gestern hin und heute zurueck. Hat alles soweit gut geklappt, bis auf die Haubentaucher am Flughafen Friedrichshafen: diese Pfeiffen haben mir die Transportkiste des guten Stuecks beschaedigt (shit on them...).

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Michael,

Danke für die Antwort. So genau habe ich mir das dann auch wieder nicht angesehen. Im Moment ist es hier ziemlich stressig.

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

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

---

Massstaebe3.txt

Hallo zusammen !
Die vorläufige Endversion...

Nochmals Danke an alle Beteiligten !

Gruß

Michael

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

---

F5_macht_Bock.jpg

Special Thanks to:

'Programm zur Ermittlung der Anzeigemaßstäbe
'(c) Event Engineering Jörgen Pisarz Berlin 2003
' www.event-engineering.de
'ergänzt auf Autodesk Inventor R7
'(c) Robby Lampe Dresden 2003
' www.cadport.de
' Ergänzung für mehrere Blätter von Paul Schuepbach und Michael Maier

Danke für die reichlich kommentierten Programmzeilen. So macht es Bock durch kleine Anpassungen im Quelltext und immer wieder F5  sofort die Auswirkung zu sehen.

... der Appetit kommt beim Essen!

Danke auch allen anderen die an diesem thread teilgenommen haben.

Gruß

------------------
powered by forum auf cad.de

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

---

Muss als Neuling , habe den ganzen Tread gelesen, mal ne Frage stellen.
Gibt es so etwas wie eine Liste der Abkuerzungen?
Fuer so Menschen wie mich, also mit sehr wenig ahnung.
Danke.
Gruss Jeorsch

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

---

Hallo Jeorsch !
Welche Abkürzungen meinst Du ?
Bei manchen ist ein kleiner blauer Punkt dabei. Wenn Du mit der Maus auf diesen zeigst erklären sie sich von selbst. Falls Dir sonst noch was unklar ist frag vielleicht etwas konkreter, weil sich bestimmt niemand die Mühe machen wird alle Abkürzungen des Threads zu übersetzen...Leider...
Gruß

Michael

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

---

Hallo Michael,
danke, das mit den blauen Punkte geht beim Foxi nicht.....:-(....mit Internet Explorer geht es...:-(....und da ich zu Hause nur mit dem Foxi arbeite........
Gruss Jeorsch

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

---

Wenn Du genau sagst, was Du wissen willst bekommst Du hier im WBF (Welt Bestes Forum) fast immer die Antwort die Du brauchst, egal ob Foxi oder IE.
Also: Was verstehst Du nicht ?

Gruß

Michael

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

---

massstab.txt

Hallo WBF! 

Nach 4 Jahren Inventorpraxis bin ich heute doch der Versuchung erlegen mich hier anzumelden, weil ich leider nicht weiter komme.
Ich weiß dass ich hier auf einen 6 Jahre alten Beitrag antworte, aber es trifft doch am besten mein Problem und genügend Praxiserfahrungen anderer Benutzer mit dem Script wird hier vielleicht da sein.

Und zwar sind wir vor kurzem auf 64bit umgestiegen und demzufolge mussten wir uns auch von der iProperty Collection verabschieden die uns immer den Massstab im Schriftfeld anzeigte. Nach einigen Versuchen mit den hier vorgestellten Scripten und leichten Anpassungen (nur Massstab der Hauptansicht des jeweiligen Blattes wird im Schriftkopf angefügt) waren wir nach kurzen Tests auch soweit zufrieden.
Allerdings in der Praxis hat sich herausgestellt funktioniert das Ganze nur so lange, wie man kein "Symbol für Form- und Lagetoleranzen" bzw. "Bezugsstelle - Führungslinie" auf der Zeichnung einfügen möchte. Letztere verwenden wir so gut wie nie, ersteres findet sich jedoch in irgendeiner Form auf fast jedem Blatt wieder (zumindest wenn vom Kunden (fast immer) auf ein Mehrblattsystem bestanden wird). Sobald diese auf dem Blatt platziert werden, wird nach dem erneuten speichern einfach der Massstab im Schriftfeld entfernt. Die Textbox bei -10,-10 bleibt stehen.
Kennt dieses Problem jemand der mit dem Script auf neueren INVENTOR-Versionen arbeitet? Haben sich evtl. VB-Befehle im Script geändert? Ich bin damit leider nur rudimentär vertraut. Oder gibt es inzwischen eine bessere Lösung für den Massstab im Schriftfeld, der mir bisher noch verborgen blieb (ausser manuell eintragen bzw. auf Ansicht darstellen zu lassen)?
Im Anhang habe ich nochmal mein angepasstes Macro eingefügt.

Vielen Dank und liebe Grüße,

David.

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

---

Hallo David,

willkommen im Club.
Wie Du richtig bemerkst ist der Beitrag bereits ein paar Tage alt und Robby spielt jetzt ProE. Wirf mal die Suche in der Inventor FAQ an und suche nach Maßstab. Jürgen hat dort einige Lösungen. Eine seit Erstellung dieses Beitrags neue Möglichkeit ist iLogic. Auch dazu findest Du sehr gute Anleitungen auf der Inventor FAQ.

Gruß Uwe

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

---

Ich habe das mit einer ilogic Regel gelöst die immer vor dem Speichern ausgeführt wird!

Dazu zuerst eine Benutzerdefinierte Iproperty mit dem Namen "Maßstab"anlegen und diese dann im Schriftfeld an der Stelle wo der Maßstab erscheinen soll einsetzen.

Dann auf Verwalten--> Regel Hinzufügen
Nun Folgenden Code hinein kopieren:

iProperties.Value("Custom", "Maßstab") = ActiveSheet.View("ANSICHT1").ScaleString
i = MessageBox.Show("Der Maßstab der Hauptansicht wurde nun in das Schriftfeld übernommen.", "HINWEIS", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)

Hinweis: "Ansicht1" ist die Ansichtsbezeichnung, Ilogic liest den maßstab nur aus der Ansicht herraus die diesen Namen trägt!

Nun die Regel speichern und dann wieder auf Verwalten --> Ereignisauslöser. Bei "Vor dem speichern des Dokuments" einen Rechtsklick machen und "Regel Auswählen..." klicken.
Die vorhin gespeicherte regel auswählen und fertig

Ich habe diese Regel in der Servergespeicherten idw.Vorlage erstellt damit diese in jeder neuen idw erscheint.

Gruß
Sascha

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