|
Inventor VBA : Bei abgeleiteter Komponente Ursprungsbauteil ersetzen
sparc am 05.06.2009 um 22:40 Uhr (0)
Vielen Dank für die Antwort, die das Problem genau trifft!Manchmal ist die Antwort "das geht nicht!" sehr hilfreich, da sie Zeit sparen hilft.Schönes Wochenende,Sparc.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : und-color: #FFFF99'>Suchen und Markieren im Modellbaum
PamaCad am 03.04.2020 um 21:27 Uhr (1)
Vielen Dank, es funktioniert.In C# habe ich folgende Syntax eingesetzt:Code:// Das Element, welches gezoomt werde soll, ist dem SelectSet vorgängig zugeilt worden.// InvApp ist die aktuell aktive Inventor Applikation, welche der Funktion übergeben wird. ControlDefinition ControlDef = InvApp.CommandManager.ControlDefinitions["AppZoomSelectCmd"]; ControlDef.Execute();Somit wird auf das Element gezoomt, wobei es je nach Ansicht natürlich hinter irgend so einem Blech verborgen bleibt. Aber das Ziel ist erfül ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
startrek am 11.07.2005 um 13:19 Uhr (0)
Hi Cookie, fürchte mit normalen Arrays haste da schlechte Karten, bleibt IMHO nur die Schleife. Prüfen, ob ein Wert überhaupt vorkommt kannst evtl. mit Filter(), also so in etwa: If UBound(Filter(deinArr, deinWert )) = -1 Then MsgBox not exists Ansonsten bleiben Collections oder Dictionary als Alternative;-) Code: Sub test() Dim mydic As New Scripting.Dictionary mydic.Add key1 , one mydic.Add key2 , two mydic.Add key3 , three Debug.Print mydic( key1 ), mydic.Items(2), mydi ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Bauteile ersetzen
RoccoRalle am 06.09.2006 um 14:06 Uhr (0)
Hi,Also:Ich habe eine Baugruppe BG.iam. In dieser Baugruppe befinden sich die Schrauben M8x30-A2.ipt, M8x30-A4.ipt und M8x30.ipt.Jetzt möchte ich dass die Schraube M8x30.ipt durch M8x30-A4.ipt über ein VBA-Tool automatisch ersetzt wird. Eigendlich eine simple Aufgabe aber ich habe dafür leider noch keine Lösung gefunden.Gruß Ralf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
Frankx am 15.04.2021 um 17:25 Uhr (1)
Mir ist bewusst, dass es noch einige, von mir bisher noch ungenutzte, Möglichkeiten im Editor gibt.Ich stehe erst ziemlich am Anfang und ich bin diesbezüglich kompletter Autodidakt.Aber es ist gut zu wissen, dass einem hier geholfen wird.Danke für die Hinweise..
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
rkauskh am 23.10.2012 um 09:46 Uhr (0)
MoinWie soll das mit einem Platzhalter funktionieren? Dein Rechner will explizit den vollständigen und korrekten Namen, sonst passiert da nix.Du kannst nur den Dateinamen inkl. Endung in zwei Strings zerlegen, deinen Suffix bei Bedarf vor jedem Öfnnen-Befehl dazwischen setzen und den String wieder zusammenfügen.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile ersetzen
rtend12 am 06.09.2006 um 12:34 Uhr (0)
Hallo Rocco,ich verstehe dein Problem nicht wirklich.Du hast eine Baugruppe: BG.iam. Darin ist ein Teil verbaut: Teil.ipt, entspricht Schraube M6x20 DIN 912 A2. Diese Teil hat einen Pfad: D:xxxTeil.ipt.Jetzt möchtest du aus Schraube M6x20 DIN 912 A2 Schraube M6x20 DIN 912 A4 machen und unter D:xxxTeil.ipt abspeichern?Erklär dein Problem mal mit einem Beispiel. Struktur der BG und Pfad der Dateien?GrußReinhard
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bei abgeleiteter Komponente Ursprungsbauteil ersetzen
rkauskh am 05.06.2009 um 20:26 Uhr (0)
HalloIch vermute daran ist der "InternalName" schuld, der sich beim neu erstellen ändert. Leider ist dieses Property read-only. Du kannst es meines Wissens nur umgehen, indem du nicht neu erstellst, sondern mit Kopie speichern unter vom Original eine Kopie erstellst. Dann sollte der InternalName gleich bleiben.------------------MfGRK
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
rkauskh am 23.10.2012 um 12:22 Uhr (0)
HiDann nimm doch die ReferencedDocuments der Zeichnung. Da steht auch die BG drin (samt Pfad). In den AllReferencedDocuments der BG müßte eine komplette Liste (bin mir mit abgeleiteten Komponenten nicht sicher) der verbauten Bauteile und Unterbaugruppen stehen, die allesamt mitkopiert werden müßten. Bedenke aber, das du dann Duplikate deiner Bauteile erzeugst. Ob das gewollt ist, mußt du entscheiden.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
Cookiie am 12.07.2005 um 14:33 Uhr (0)
Du bist aber ein pöses Mädchen ;-). Hab jetzt einfach ne Abart der binären Suche implementiert. Code: Sub BinaereSuche(wert As Variant, arr As Variant) Dim i As Integer, k As Integer Dim schleifen As Integer Dim gefunden As Boolean, ende As Boolean Dim grenze gefunden = False schleifen = 0 i = (UBound(arr, 2) + 1) / 2 k = i Do Until ende k = k / 2 + k Mod 2 If wert arr(0, i) Then i = i - k Else i = i + k E ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Parameter aus einer Exceltabelle und-color: #FFFF99'>suchen
Fiedel93felix am 02.09.2016 um 07:53 Uhr (1)
Hallo miteinander,ich habe ein parametrisches Bauteil wo ich verschiedene Werte aus einer Exceltabelle lesen will.Die Excel-Tabelle durchsuche ich dabei nach 2 werte in Spalte 1 und 2 und verwende dabei verschiedene Werte aus der gleichen Zeile.Das funktioniert auch super und ohne Probleme.Bloß mein Problem jetzt ist, dass ich die Parameter die ermittelt wurden nicht mehr überschreiben kann weil nach dem überschreiben die Regel erneut ausgeführt wird.Kann ich irgendwie sagen, dass die Regel nur dann ausgef ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
Frankx am 15.04.2021 um 22:00 Uhr (1)
Ich habe noch eine Frage zum obigen Beispiel:Code:If oSubs1.Count = 0 Then MsgBox "Keine abgeleiteten Komponenten enthalten" Exit SubEnd IfWenn die abgeleitete Komponente ein Basisteil (ipt) hat, dann funktioniert das. Wenn aber die Basis eine iam ist dann ist oSubs1.Count immer 0.Wie kann ich auch solche abgeleiteten Teile berücksichtigen?.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Dimension Text durch String ersetzen
rkauskh am 03.10.2012 um 14:56 Uhr (0)
HiCode:Private Sub Bem_ausblenden()Dim oDrawDoc As DrawingDocumentSet oDrawDoc = ThisApplication.ActiveDocumentDim oSheet As SheetSet oSheet = oDrawDoc.ActiveSheetDim oDimension As ObjectDim i As IntegerFor Each oDimension In oSheet.DrawingDimensions i = i + 1 oDimension.HideValue = True oDimension.Text.FormattedText = CStr(i)NextEnd Sub------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
