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