|
INVENTOR VBA : winkel bemaßung ändern und workplanes
PaulSchuepbach am 16.12.2003 um 15:14 Uhr (0)
Hallo Basti, der code von Deiner letzten Frage etwas erweitert: Public Sub AddAngleConstraint() Dim oApp As Application Set oApp = ThisApplication Dim oDoc As PartDocument Set oDoc = oApp.ActiveDocument Dim oSketch As PlanarSketch Set oSketch = oDoc.ActivatedObject Dim oLine1 As SketchLine Dim oLine2 As SketchLine Set oLine1 = oSketch.SketchLines.Item(1) Set oLine2 = oSketch.SketchLines.Item(2) Dim oTG As TransientGeometry Set oTG = oApp.TransientGeometry Dim oPt2D ...
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Parameterübergabe an VB
PaulSchuepbach am 17.03.2011 um 14:36 Uhr (0)
Hallo Erik,die Fehlermeldung sagts ja bereits: Dein oPara ist ein PARAMETER und nicht der WERT des Parameters. Um einen Wert zuzuweisen musst Du auf .Value gehen, also:oPara.Value = oPara.Value + 2Ich vermute mal, dass Du irgendwas um irgendwas in 2° Schritten drehen willst ? Beachte folgendes:- Inventor arbeitet intern mit cm als Länegneinheiten- Inventor arbeitet intern mit Radianten als Winkeleinheiten, Du muss also dann Deinen Wert in Grad umrechnen mit / 180 * PIGenerell zu Deinem Code:Do While Not za ...
| In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |