|
Inventor VBA : Bauteil und Zeichnung kopieren
PaulSchuepbach am 11.02.2011 um 15:03 Uhr (0)
Hallo Attilla,Du siehst das Problem verkehrt herum: das Bauteil weiss nicht, welche Zeichnung(en) von ihm existiert, die Zeichnung aber schon. Du kannst z.B. die Erstansicht des ersten Sheets nach der angezeigten Intanz abfragen und dann die Zeichnung und das Bauteil unter neuem Namen speichern.Danch musst Du noch in der Zeichnung die Referenz (altes BT - neues BT) austauschen, denn die kopierte Zeichnung referenziert immer noch das alte BT.Und was machst Du, wenn ein Assembly in der Zeichnung abgebildes i ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Positionszeiger in einer Zeichnung (*.idw) ansprechen?
PaulSchuepbach am 20.01.2005 um 08:43 Uhr (0)
Hallo Olaf, dann ist Deine Frage ja bereits beantwortet. Gruesse, Paul www.morecam.ch/cad.htm
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Positionszeiger in einer Zeichnung (*.idw) ansprechen?
PaulSchuepbach am 19.01.2005 um 19:21 Uhr (0)
Hallo Olaf, was meinst Du denn mit Positionszeiger ? Und wieso eine spamgourmet.com mailadresse ? - Angst erkannt zu werden ? Gruesse, Paul www.morecam.ch/cad.htm
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 22.11.2003 um 18:17 Uhr (0)
Hi Michael,Du solltest jetzt mal Feierabend machen - ich tus auch....Ich guck dann morgen mal rein.Gruesse,Paul www.morecam.ch/cad.htm
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 22.11.2003 um 15:54 Uhr (0)
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 klappts.Gruesse,Paul
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 22.11.2003 um 14:52 Uhr (0)
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.5entspricht einer Fontgroesse von 5 mm.GruessePaul---------------------- www.morecam.ch/cad.htm ----------------------
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 25.11.2003 um 16:42 Uhr (0)
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
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 25.11.2003 um 17:43 Uhr (0)
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/ca ...
|
| In das Form Inventor VBA wechseln |
Masstab.txt |
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 23.11.2003 um 16:03 Uhr (0)
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 gehts.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,P ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 23.11.2003 um 16:25 Uhr (0)
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 ists die Skizze, die Du loeschen musst.Klingt komplizi ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 22.11.2003 um 14:45 Uhr (0)
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 ins 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 ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 20.11.2003 um 09:43 Uhr (0)
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 oVie ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 23.11.2003 um 19:58 Uhr (0)
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 - seis drum.Ich kann nur das dazu beitragen:1. Wenn sich jemand von AD verschaukelt ...
|
| In das Form Inventor VBA wechseln |
