Hi Leute!
Ich möchte mit dem CommandManager vom Anwender einen Punkt erstellen lassen und diesen danach direkt mit „DoSelect“ markieren. Es wird zwar eine Markierung erstellt, aber nicht auf meinem Bohrungspunkt sondern irgendwo anders.Ich gehe davon aus, dass dieser Punkt spiegelverkehrt zum Baugruppenursprung markiert wird. Hier noch ein kleines Codesample, was ich versucht habe. Vielleicht hat jemand eine Idee, wie ich dieses Problem beheben kann.
Mit freundlichen Grüßen
Pinsler
Dim punkt as punkt
Set punkt = Skizze.SketchToModelSpace(Skizze.SketchPoint.Item(1).Geometry)
Dim punkt2d As Point2D
Set punkt2d = Skizze.ModelToSketchSpace(punkt)
Dim skizzenpunkt As SketchPoint
Set skizzenpunkt = Skizze.sketchPoint.add(punkt2D, true)
ThisApplication.CommandManager.DoSelect skizzenpunkt
------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP