|
Inventor VBA : Modellrefernez ersetzen
Big-Daddy am 05.01.2016 um 08:27 Uhr (1)
Guten Morgen,Kann ich mittels Ilogic in einer .idw eine Modellreferenz ändern?Ich muss bei 300 Zeichnungen immer das gleiche Bauteil ändern, da habe ich mir überlegt ob man das nicht automatisieren kann.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Referenzen beim öffnen automatisch ersetzen
BernoAn am 09.05.2017 um 15:26 Uhr (1)
Hallo,So sollte es funktionierenSilentOperation = trueIDW einlesen SilentOperation = falseGrußBerno
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : und-color: #FFFF99'>Suchen und Markieren im Modellbaum
KraBBy am 02.04.2020 um 10:15 Uhr (1)
evtl. hilfreich, zu finden in der Hilfe: Navigation between browser and data API Sampledas mit dem Markieren: muss das im Modellbrowser sein? ThisApplication.ActiveDocument.SelectSet.Select (Object) markiert das Object bzw. fügt es der Auswahl hinzu (falls schon was markiert ist). Siehe ggf. Hilfe zum SelectSet. ------------------Gruß KraBBy
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
startrek am 11.07.2005 um 16:52 Uhr (0)
... quick n dirty noch, allerdings je quick desto dirty Code: Sub asdf() Dim src, a, b, x, y x = 3: y = blabla src = Array(1, 2, 3, 1, 2) a = Filter(src, x): b = Filter(src, x, 0) If Not CBool(UBound(a)) Then ReDim Preserve b(LBound(b) To UBound(b) + 1) b(UBound(b)) = y: src = b Else: MsgBox matches 1 End If End Sub lg Nancy [Diese Nachricht wurde von startrek am 11. Jul. 2005 editiert.]
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
Frankx am 15.04.2021 um 16:36 Uhr (1)
So, wie es scheint, habe ich den Bug gefunden.Die Variable oRefDoc darf nicht nur als Document definiert werden, sondern muss Typ PartDocument sein..
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
Frankx am 13.04.2021 um 13:57 Uhr (15)
Hallo ElBe 3D,DerivedPartComponentsundoRefFile.ReplaceReference (FilePath)das scheinen mir die fehlenden Stichwörter gewesen zu sein.Das werde ich gleich mal ausprobieren.Danke für den Hinweis..
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile mit Ilogic ersetzen
KatzenHund am 05.02.2016 um 09:47 Uhr (1)
Hallo Big-Daddy,das müsste mit:Code:Component.Replace("Bauteil1:1", "Bauteil2.ipt", True)funktionieren. Hierbei steht das Boolean für alle Vorkommen tauschen Ja/NeinGrußStefan------------------Wer nicht mitmacht, kann auch nichts verändern
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
Cookiie am 11.07.2005 um 14:00 Uhr (0)
Hm, hab ich fast befürchtet. Das mit den Collections, da müßte ich mein ganzes Programm jetzt umschreiben und das wäre doof, zumal das jetzige läuft und voll funktional ist. Wäre ja nur aus Performance gründen nett. Hab ja eh schon nen Schleifenabbruch drin wenn ers gefunden hat, was das ganze schonmal reduziert. Aber habs mal gemessen, bei 2000 Teilen braucht er knapp 1:42min. Was eigentlich noch schnell genug ist. Will bloß nicht wissen wie lange der auf ner älteren Machine braucht ^^. Aber trot ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Schnittansicht und-color: #FFFF99'>suchen
BernoAn am 13.04.2023 um 10:23 Uhr (1)
Hallo,Ich habe in großen Zeichnungen das Problem das ich eine Schnittansicht sehe und nicht weis aus welcher "Ansicht" der Schnitt stammt.Ich würde gerne Mit "PICK"Code:Set PickView = ThisApplication.Commandmanager.pick(kDrawingDefaultFilter, "Schnittansicht wählen")eine Schnittansicht anklicken und bekomme die passende Ansicht mit dem Schnitt markiert, oder den Schnitt selber markiert.Ich komme nicht weiter, in der zugehörigen Ansicht ist der Schnitt in einer Skizze aber dann finde ich keinen Bezug.Ich wü ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Referenz in Zeichnung ersetzen
Frankx am 01.09.2020 um 16:39 Uhr (15)
Danke.Das entspricht im wesentlichen meiner obigen Lösung. Jetzt muss ich nur noch die Schleife für Zeichnungen mit mehreren unterschiedlichen Referenzen hinbekommen. Das kommt ab und zu mal vor, wenn in einer Zusammenbauzeichnung zum besseren Verständnis ein paar Unterbaugruppen oder Einzelteile mit dargestellt werden.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Modellrefernez ersetzen
rkauskh am 06.01.2016 um 14:27 Uhr (1)
HalloJa, kann man. Geht aber nur für die gesamte Zeichnung.Das Beispiel geht davon aus, das die erste referenzierte Datei ersetzt werden soll. Sind mehr Dateien referenziert, mußt du in einer Schleife die richtige finden.Code:doc = ThisDoc.Document Dim oFD As FileDescriptor oFD = doc.ReferencedFileDescriptors(1).DocumentDescriptor.ReferencedFileDescriptor oFD.ReplaceReference("c:NewPart.ipt") doc.Update()------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
Cookiie am 11.07.2005 um 11:42 Uhr (0)
Hi Leute, ich habe ein Array mit über 3600 werten darin. Und möchte nun direkt auf ein Element zugreifen können, ohne das Ganze Array mit einer Schleife durchforsten zu müssen. Es würde auch gehen wenn ich den Index, wo der Wert gespeichert ist zurückgeliefert bekomme. Hintergrund ist eine Bauteilliste die ich durchsuche um den richtigen wert zu finden, bei ner Leiterplatte mit 2000 Bauelementen entsprechend 2000 x 3600 Schleifendurchgänge, was sehr zeitintensiv ist. Ein Direktzugriff würde dies ziemlich b ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Bauteile ersetzen
rtend12 am 01.09.2006 um 14:35 Uhr (0)
Hallo,ersetzen:Code:Dim odoc2 as DocumentSet odoc2 = ThisApplication.ActiveDocumentDim oCompDef As ComponentDefinitionSet oCompDef = odoc2.ComponentDefinitionDim oOccs As ComponentOccurrencesSet oOccs = oCompDef.OccurrencesDim oOcc As ComponentOccurrenceFor Each oOcc In oOccs On Error Resume Nexti = 1 Do While ostr(i) "" If Right(oOcc.Definition.Document.FullFileName, 3) = "iam" And oOcc.Name = ostr(i) Then oDer = oOcc.Definition.Document.FullFileName Call oIPT(oDer) Call oOcc.Repl ...
|
| In das Form Inventor VBA wechseln |
