| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Einfüge- und Verbindungspunkt (1682 mal gelesen)
|
Zäänge2 Mitglied Konstrukteur
Beiträge: 87 Registriert: 22.04.2005 Dell Precision T3400 Intel Core 2 Duo E6850 @3GHz 8GB RAM Nvidia Quadro FX 1700 Windows 7 Professional 64 Bit Inventor 2012 Professional 64 Bit AutoCAD Mechanical 2012
|
erstellt am: 01. Dez. 2006 06:52 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen... Hab mal wieder ein für mich zur Zeit unlösbares Problem. Ich möchte in einer Zeichnung einen Schweißstempel mittels VB einfügen. Das funktioniert auch alles wunderbar. Wenn ich nun nachträglich die Position des Schweißstempels auf der Zeichnung verändern möchte, wäre es gut, wenn ich dafür einen definierten Punkt verwenden könnte. Erstelle ich den Stempel direkt mit Inventor funktioniert das, indem ich 'nen Punkt einfüge und diesen als Verbindungs- und Einfügepunkt definiere. Nun meine Frage: Geht das auch mit VB? Und wenn ja, WIE??? Hab da leider keinen Plan... Grüße, Sylvio Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Zäänge2 Mitglied Konstrukteur
Beiträge: 87 Registriert: 22.04.2005
|
erstellt am: 13. Dez. 2006 13:55 <-- editieren / zitieren --> Unities abgeben:
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 15. Dez. 2006 08:27 <-- editieren / zitieren --> Unities abgeben: Nur für Zäänge2
Hallo Zäänge2, dazu benötigst Du so etwas: Code:
Private Sub ConvertToInsertionPoint(oSketchPoint As SketchPoint) Dim oSelectSet As SelectSet Set oSelectSet = ThisApplication.ActiveDocument.SelectSet ' Programmatically select the sketch point Call oSelectSet.Select(oSketchPoint) ' Get the Inventor command that does the conversion Dim oControlDef As ControlDefinition Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("SketchInsertionPtCmd") 'Execute the command oControlDef.Execute End Sub
und so etwas: Code:
Select Case ThisApplication.SoftwareVersion.Major Case 10 Call ConvertToInsertionPoint(oSketch.SketchPoints.Add( _ oTG.CreatePoint2d(0, 0))) Case Else Call oSketch.SketchPoints.Add(oTG.CreatePoint2d(oSheetWidth - 1, 1)) End Select Call oSSymbolDef.ExitEdit(True)
für das Einfügen. HTH
------------------ Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Zäänge2 Mitglied Konstrukteur
Beiträge: 87 Registriert: 22.04.2005
|
erstellt am: 21. Mrz. 2007 16:15 <-- editieren / zitieren --> Unities abgeben:
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 21. Mrz. 2007 17:52 <-- editieren / zitieren --> Unities abgeben: Nur für Zäänge2
Hi Sylvio, gut Ding will eben Weile haben . - und ich bedanke mich auch ------------------ Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |