|
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 : Zusammengehörige Bauteile/Baugruppe zu Zeichnung
P164 am 22.05.2006 um 09:22 Uhr (0)
hallo Sam_1712grundsätzlich ja.1. Möglichkeit ist Du schaust mit dem Apprentice Server in allen IDWs nach ob die Baugruppe oder das Bauteil enthalten ist.2. Möglichkeit Du führst in der Baugruppe oder in dem Bauteil über einnProperty einen IDW-Verwendungsnachweis.3. Du führst Regeln ein wo und wie IDWs erstellt werden.4. Datenablage wird durch ein Datenverwaltungs System organisiert.Es ist nicht ganz einfach dieses Problem zu lösen ob von Autodesk oder durch dich. Ein grundsätzliche Kennung in IAM oder IPT ...
|
| 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 : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
noctis79 am 19.02.2013 um 17:26 Uhr (1)
Hallo...Sollte möglich sein...Ungetestet:Code:Sub drawing()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationDim odoc As Inventor.DrawingDocumentDim osource As StringDim odest As StringIf oapp.ActiveDocument Is Nothing Then Exit SubEnd IfIf oapp.ActiveDocumentType kDrawingDocumentObject Then Exit SubEnd IfSet odoc = oapp.ActiveDocumentosource = odoc.FullFileNameodest = Left(osource, Len(osource) - 4)Dim osheet As Inventor.SheetDim counter As Stringcounter = 1For Each osheet In odoc.Sheetsosheet. ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
mimamb am 12.09.2003 um 11:15 Uhr (0)
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 funktionierts nicht. Dann werden immer nur die Maßstäbe des Blattes das beim Speichern aktiv war auf beid ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
mimamb am 25.11.2003 um 17:14 Uhr (0)
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... Werds 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 ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
a-d-i-d-a-s am 12.07.2011 um 19:07 Uhr (0)
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ügenNun Folgenden Code hinein kopieren:iProperties.Value("Custom", "Maßstab") = ActiveSheet.View("ANSICHT1").ScaleStringi = MessageBox.Show("Der Maßstab der Hauptansicht wurde nun in das Schriftfeld übernommen.", "HINWEIS", Messa ...
|
| 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 : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
themass am 19.02.2013 um 17:50 Uhr (1)
@noctis79Danke für den Code, funktioniert erst mal ganz gut.Hab es mal getestet.Er wirft mit jedes Blatt einzeln als pdf, dxf und dwfx raus.Wie müsste man den Code anpassen, damit er die einzelnen Blätter in eine dwfx zusammenfasst.Bei dxf ist das vereinzeln ok.Eine weitere Frage ist, wie kann man vermeiden, das er bei einem Blatt immer Blatt1 dahinter schreibt.Nach meinen Erfahrungen muss man doch noch einmal eine IF Schleife einbauen die abfragt, wie viele Blätter es sind und dann entsprechend weiter mac ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : XYZ-Koordinate und Bezeichnung von einem Punkt in der Zeichnung anzeigen
rkauskh am 23.05.2020 um 09:33 Uhr (1)
MoinMit der Annahme, dass:- ein Arbeitspunkt gemeint ist.- der Punkt in der Baugruppe und nicht in einer Unterbaugruppe/ einem Bauteil definiert ist.- mit "Bezeichnung" der Displayname im Modellbrowser gemeint ist.Makro starten und Punkt selektieren, die Infos werden angezeigt. Wiederholen für weiteren Punkt, Abbruch zum Beenden. Code:Option ExplicitPrivate Sub PointInfoDemo()Dim oDrawDoc As DrawingDocumentDim oPointMark As CentermarkDim oPoint As WorkPointDim dX, dY, dZ As DoubleDim oRes As VbMsgBoxResult ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : XYZ-Koordinate und Bezeichnung von einem Punkt in der Zeichnung anzeigen
rkauskh am 25.05.2020 um 01:04 Uhr (1)
HalloAutomatisch werden sich die Texte nicht aktualisieren. Reicht auch ein Makro (UpdatePointInfo) für das Aktualisieren aller Punktinfos auf einem Blatt? Die Fehlermeldung beim ESC Drücken sollte jetzt weg sein.EDIT:Als Automatismus könnte man eine iLogic-Regel erstellen, die nur ein InventorVb.RunMacro("projectName", "moduleName", "macroName") enthält. Dazu noch einen Ereignisauslöser "Vor dem Speichern" oder "Änderung der Zeichnungsansicht". Code:Private Sub PointInfoDemo2()Dim oDrawDoc As DrawingDocum ...
|
| 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 |
|
Inventor VBA : DrawingDimensions(I).Tolerance.upper bzw. -lower
LBN am 21.09.2006 um 11:35 Uhr (0)
Hallo VB bzw. VBA-Spezialisten!In meiner Zeichnung befinden sich mehrere Maße mit unterschiedlichen Toleranzangaben. Bei dem Versuch das obere, bzw. untere Abmaß auszulesen, bin ich auf das Problem gestoßen, dass teilweise 0-Werte sawohl für upper als auch für lower zurückgegeben werden. (Siehe Beispiel in angehängter Datei). Zur Sicherheit hier noch der entsprechende Code:Sub Toleranzen_2()Dim Toleranzen()Dim I, K, Anzahl_Masse As IntegerDim Zeichnung As DrawingDocumentSet Zeichnung = ThisApplication.Act ...
|
| In das Form Inventor VBA wechseln |
