|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Mignon am 11.01.2016 um 09:44 Uhr (1)
Weiß denn Niemand rat?
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Mignon am 12.01.2016 um 09:46 Uhr (15)
In der gleichen Sub (*hust*) funktioniert es!!!!Sau geil, vielen Dank!
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Mignon am 21.12.2015 um 11:23 Uhr (1)
Hallo,Danke für deine Antwort. Wie plaziere ich denn ein solches Symbol mit VBA auf der Zecihnung bzw. mit welchem Begriff kann/soll ich mal google füttern?LG M
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Mignon am 22.12.2015 um 10:10 Uhr (1)
Gut, hab ich gemacht. Dann bringt er mir aber in der nächsten Zeile: Code:Set oTextbox = oSketch.TextBoxes.AddFitted(ThisApplication.TransientGeometry.CreatePoint2d(1, 1), sText)Den selben Fehler wie eben.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Mignon am 21.12.2015 um 14:11 Uhr (1)
So, nachdem ich mir nochmal ein paar Gedanken gemacht habe und deine Antwort nochmals durchgelesen habe:Ich würde gerne ein Symbol per VBA erstellen, nicht "nur" plazieren.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Mignon am 12.01.2016 um 08:52 Uhr (1)
Sehr geil, auf jeden Fall schonmal danke für deine Mühe, aber:die Zeile:Set oTextbox = MySketch.TextBoxes.AddFitted(oTG.CreatePoint2d(3, 18), sText)spuckt mir einen Fehler aus. Es wird "MySketch" makiert und gesagt: "Fehler beim Kompilieren. Variable nicht definiert" Grüße M
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Mignon am 21.12.2015 um 13:01 Uhr (1)
Hallo,Leider funktioniert der Quellcode bei mir nicht.Ich habe ihn wie folgt angepasst:Code: Dim Doc As DrawingDocument Set Doc = ThisApplication.ActiveDocument Dim oSheet As Sheet Set oSheet = Doc.ActiveSheet Dim oSketch As Sketch Dim oSymbol As SketchedSymbol Set oSymbol = oSheet.SketchedSymbols.Item("Mein Name") Dim oPlacementPoint As Point2d Set oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d(1, 1) Call oSheet.SketchedSymbols.Add(oSymbol, oPlacementPoint)Hab ich da ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maß automatisch fangen
Mignon am 22.01.2016 um 08:34 Uhr (5)
Hallo @allIn meinem Programm habe ich zuerst ein Maß makiert, dass ich dann auslesen, damit etwas rechne und anschließend das an die Bauteilkante ansetzte, von der ich zuvor das Maß entnommen habe.Wie schaffe ich es, dass er mir automatisch von der Makierung auf die Bauteilkante "springt", ohne, dass ich da zwischen durch in der Zeichnung die Bauteilkante anwählen muss?LG M
|
| In das Form Inventor VBA wechseln |
