| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Einfüge- und Verbindungspunkt (1679 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: 3794
Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2022
---------------------
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: 3794
Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2022
---------------------
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 |
Foren auf CAD.de (alle Foren)
| 
