---

hallo forum,
sitze zur späten stunde noch vor der kiste und versuche mich mit einem vba-makro. ich will einfach einen zylinder erzeugen. ich möchte aber den mittelpunkt des kreises picken (fangen) und nicht mittels einen definierten punktes erzwingen.
folgendes makro funktioniert, aber auf 0,0

Public Sub Zylinder()
    ' Create a new part document using the default part template.
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.Documents.Add(kPartDocumentObject, _
                    ThisApplication.GetTemplateFile(kPartDocumentObject))
   
    ' Set a reference to the part component definition.
    ' This assumes that a part document is active.
    Dim oCompDef As PartComponentDefinition
    Set oCompDef = oPartDoc.ComponentDefinition

    ' Create a new sketch on the X-Y work plane.
    Dim oSketch1 As PlanarSketch
    Set oSketch1 = oCompDef.Sketches.Add(oCompDef.WorkPlanes.Item(3))
   
    ' Set a reference to the transient geometry object.
    Dim oTransGeom As TransientGeometry
    Set oTransGeom = ThisApplication.TransientGeometry
     
    Set oCircle = oSketch1.SketchCircles.AddByCenterRadius( _
                                oTransGeom.CreatePoint2d(0, 0), 0.5)
   
    ' Create a profile.
        Dim oProfile As Profile
    Set oProfile = oSketch1.Profiles.AddForSolid
   
    ' Create a solid extrusion.
    Dim oExtrusion As ExtrudeFeature
    Set oExtrusion = oCompDef.Features.ExtrudeFeatures.AddByDistanceExtent( _
                    oProfile, 20, kSymmetricExtentDirection, kJoinOperation)
                   
 
End Sub

wie erzwinge ich eine aufforderung zur punkteingabe? wie kann ich den radius und höhe des zylinders eingeben?

gruesse aus dem rheinland
und vielen dank im voraus
seher

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP