Hallo zusammen,
ich sitze mal wieder an einer Programmierung und bin kurz davor, in den Tisch zu beissen.
Ich versuche, eine 2D-Skizze mit dem Befehl AddExtrudedBoss in die 3. Dimension zu bringen.
Habe folgendes Problem mit dem Aufruf:
Function AddExtrudedBoss(ByVal pSketch As IADSketch, ByVal depth As Variant,
Nun kennt VB2005 leider kein Variant mehr, er konvertiert dies zu einem Object.
wenn ich im Programm folgenden Aufruf verwende:
Dim extrusion As IADExtrusionFeature = Part.Features.AddExtrudedBoss(sketch, 5, ADPartFeatureEndCondition.AD_TO_DEPTH, _
Nothing, Nothing, 0, ADDirectionType.AD_ALONG_NORMAL, _
Nothing, Nothing, N_Check, 0, False, "NewPart", _
"The Depth Parameter", Nothing)
funktioniert es einwandfrei.
Ich will jedoch keinen festen Wert für die Höhe verwenden.
Die Variable LP_Hoehe ist als Object declariert.
Dim extrusion As IADExtrusionFeature = Part.Features.AddExtrudedBoss(sketch, LP_Hoehe, ADPartFeatureEndCondition.AD_TO_DEPTH, _
Nothing, Nothing, 0, ADDirectionType.AD_ALONG_NORMAL, _
Nothing, Nothing, N_Check, 0, False, "NewPart", _
"The Depth Parameter", Nothing)
Hier passiert gar nichts.
Wie muss ich die LP_Hohe declarieren, das der Aufruf sauber funktioniert??
Gruss
Kalle
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP