Hallo nochmal,
ist ja doof wenn man sich seine Fragen selbst beantworten muss. Aber da sieht man dann auch wieviel Zeit und Arbeit man sich durch das WBF sonst immer erspart.
Deshalb jetzt auch ein möglicher Lösungsansatz für oben geschildertes Problem.
Einfach die gewünschten Punkte der Linie einem Skizzenpunkt übergeben und den kann man dann manipulieren. das erspart zumindest den Umweg über die Bemassung.
Beispiel :
Dim vSkLines As Object
Dim Line1, Line2 As SldWorks.SketchLine
Dim Point1Line1, Point2Line1, Point1Line2, Point2Line2 As SldWorks.SketchPoint
vSkLines = part.SketchManager.CreateCornerRectangle(-0.01, 0.01, 0, 0.01, -0.01, 0)
Line1 = vSkLines(0)
Line2 = vSkLines(2)
Point1Line1 = Line1.GetStartPoint2()
Point2Line1 = Line1.GetEndPoint2()
Point1Line2 = Line2.GetStartPoint2()
Point2Line2 = Line2.GetEndPoint2()
Point1Line1.Y = Point1Line1.Y + 0.01
Point2Line1.Y = Point2Line1.Y + 0.01
Point1Line2.Y = Point1Line2.Y + 0.01
Point2Line2.Y = Point2Line2.Y + 0.01
Frohes Schaffen noch.
------------------
Gruß Andreas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP