|
Inventor VBA : Auf Benutzer-BKS zugreifen
RoccoRalle am 03.03.2010 um 21:28 Uhr (0)
Hi Forum,es gibt im IV 2010 ja die Möglichkeit auf ein Bentzer-BKS zuzugreifen:Code:oDoc.ComponentDefinition.UserCoordinateSystems.Item(1)Ich möchte gerne die Grenz-Geometrie (x, y, z) auf dieses o.g. BKS in der Form auslesen:Code:oDoc.ComponentDefinition.RangeBox.MaxPoint.X Wie geht das? kann ich wie im AutoCAD zwischen einzelne BKS tranferieren? Wenn ja, hat jemand einen Tip??
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Skizzensichtbarkeit - Makro macht Unsinn
Doc Snyder am 21.08.2009 um 18:04 Uhr (0)
Zitat:Original erstellt von daywa1k3r:...Makro das machen lassen... Oh! Ich werde mir Mühe geben. Aber selbst wenn ich es schaffe, dass das Makro auf diese Weise dann kein Unheil mehr anrichten kann, muss ich doch auch die verstellte Datei reparieren. Ich würde gerne herausfinden, wie ich die wieder in Ordnung bringen kann.------------------Roland www.Das-Entwicklungsbuero.de
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Skizzensichtbarkeit - Makro macht Unsinn
Doc Snyder am 21.08.2009 um 18:54 Uhr (0)
Rätselhaft!Gestern habe ich die beschädigte Datei nach allerlei Reparaturversuchen geschlossen, nicht ohne vor dem Überschreiben eine Kopie der vorherigen Version festzuhalten. Nu mach ich sie heute wieder auf (Inventor wurde nicht neu gestartet), da ist alles wieder gut. Sollte mein Versuch mit .VisibleBelowEndOfPart=1 also doch genützt haben? Aber wieso all das erst nach dem Schließen und wieder Öffnen? Ist so was üblich oder kann sich das jetzt nur um einen Irrtum meinerseits handeln?Der Wert .Visibl ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : per VBA ein Bauteil in eine Baugruppe einfügen
TSch am 17.02.2010 um 09:22 Uhr (0)
Tach,es gibt noch die Möglichkeit, den "Einfügen Komponente" Befehl zu zünden,die Komponente "hängt" dann am Cursor und der Anwender kann die Komponente wie gewohnt platzieren.Hier mal ein Auszug, wie man das umsetzen kann :Dim oApp As Inventor.ApplicationDim oDoc As Inventor.DocumentDim InventorsLogicalFileName as string voller Dateiname der einzufügender DateiAchte darauf,ob evtl. die einzufügende Datei im Workspace zu finden ist !!!Set oApp = GetObject(, "Inventor.Application")Set oDoc = oApp.ActiveDocu ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF mit DXFTranslator AddIn, Optionen?
RolandWeber am 15.03.2010 um 16:12 Uhr (0)
Hallo User Nach langer langer Zeit befasse ich mich wieder einmal mit Inventor-Programmierung.Möchte über ein Makro einen DXF-Export erstellen.Verwende das Beispiel aus Example3.Code:Public Sub PublishDXF() Get the DXF translator Add-In. Dim DXFAddIn As TranslatorAddIn Set DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}") Set a reference to the active document (the document to be published). Dim oDocument As Document Set oDocument = ThisApplication.Activ ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF mit DXFTranslator AddIn, Optionen?
seky1900 am 23.03.2010 um 12:10 Uhr (0)
Hallo Roland,eine Beispiel Datei angehängt (für Export aus einer IDW heraus).(du erwähntest ja z.B. "in der idw nur das Blatt 2")Sie funktioniert z.B. unter Inventor 2010.Du hast noch Inventor 7 am Start, wenn dein Profil aktuell ist. Was da alles (noch) nicht geht, weiß ich nicht.Nur als Beispiel:"ALL SHEETS=No" funktionierte meines Wissens unter Inventor 2008 (noch) nicht. Hier musste bei mir ein workaround herhalten.GrußAndy
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung wirrd nicht gedruckt
rkauskh am 01.05.2010 um 09:41 Uhr (0)
HalloWas genau heißt abgeschnitten? Hört er immer nach z.B. 75cm bedrucktem Papier auf, egal was man druckt? Passiert das auch bei kleineren Seitenformaten? Ist die Menge des Gedruckten abhängig von der gedruckten Datei? Druckt er am Ende irgendwelche Steuerzeichen oder etwas anderes, das da eigentlich nicht sein sollte?Für mich hört es sich im ersten Moment nach einem Pufferüberlauf im Drucker an, wenn er einfach aufhört. Das hat dann direkt mit deinem Prog nichts zu tun.Bietet der Treiber verschiedene Au ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit Delphi auf AutoCAD-Objekte zugreifen
mundal am 27.05.2010 um 14:22 Uhr (0)
Hallo Zusammen,hat jemand eine 1:1 Anleitung um mit Delphi 2005 auf AutoCAD Objekte zugreifen zu können.Wenn zugleich ein kleines Programmbeispiel mitgeliefert werden könnte wäre das super.Zur Info, ich bin Einsteiger in Delphi, beherrsche aber das AutoCAD recht gut.Danke im vorausKatharina
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit Delphi auf AutoCAD-Objekte zugreifen
runkelruebe am 27.05.2010 um 15:03 Uhr (0)
hier gehts weiter ------------------Gruß,runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit Delphi auf AutoCAD-Objekte zugreifen
mundal am 27.05.2010 um 15:17 Uhr (0)
Hallo Forum,tut mir leid, ich habs in die falsche "Abteilung" eingestellt.Verzeiht mir, ich bin blond ;-)Lässt sich der Eintrag löschen ??GrußKatharina
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Alles als .igs abspeichern
Alcom am 01.07.2010 um 14:28 Uhr (0)
Guten Tag!ich breuchte eine Makro welche alle Bauteile und Unterbauteile (NICHT die Baugruppe selbst) in folgendem ordner als iges kopie abspeichert:%PROJEKTORDNER%/IGES/TAG_MONAT_JAHRFalls die Datei schon vorhanden ist wird sie überschrieben. Der Dateiname bleibt gleich wie bei der original ipt. Optimal wäre es wenn alle Bauteile welche als Material "Inox" eingestellt haben NICHT als iges abgespeichert werden..kann mir da jemand bitte weiterhelfen??DankeMfgAlcom
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Alles als .igs abspeichern
Bigles2 am 02.07.2010 um 17:07 Uhr (0)
Hey!Als Iges abspeichern gehts so: Sub IPT()Dim oDoc As DocumentDim oDoc2 As StringDim vLink As StringDim outFile As StringvLink = "dein Link"Set oDoc = ThisApplication.ActiveDocumentoDoc2 = vLink & Left(oDoc.DisplayName, Len(oDoc.DisplayName) - 4) & ".iges"On Error Resume NextoDoc.SaveAs oDoc2, TrueEnd Sub"oDoc.DisplayName" nimmt den vorhandenen Namen der Datei, "Len(oDoc.DisplayName)-4" schneidet die vorhandene .ipt Endung ab und & ".iges" fügt die IGES Endung an. "oDoc.SavaAs odoc2, True" speichert das ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Beim Öffnen von Dateien Makro automatisch starten
Tacker am 23.09.2010 um 10:32 Uhr (0)
Hi Forum,Habe schon ein wenig Erfahrung mit VBA in Excel jedoch möchte ich nun ein Makro für Inventor 2011 schreiben. Und zwar: Wird eine Datei geöffnet sollen alle Arbeitselemente ausgeblendet werden. Hier der bisherige CodePublic Sub OnOpenDocument()ThisApplication.ActiveDocument.ObjectVisibility.AllWorkFeatures = FalseEnd Subder teil mit dem ausblenden funktioniert jedoch das mit dem automatisch starten will einfach nicht funktionierenVielen Dank schon mal im Vorraus für eure mühen
|
| In das Form Inventor VBA wechseln |
