Also gut. Ich habe es jetzt soweit gebracht, dass ich eine Linie hinzufügen kann.
Set Documents = CATIA.Documents
Set Document = CATIA.ActiveDocument
Set DrawingSheets = Document.Sheets
Set DrawingSheet = DrawingSheets.Item("Sheet.1")
Set DrawingViews = DrawingSheet.Views
Set DrawingView = DrawingViews.ActiveView
Set Factory2D = DrawingView.Factory2D
Set Selection = Document.Selection
'Erstellen horizontale linie auf der Null Koordinate'
Set LineLeftExtremity = Factory2D.CreatePoint(10, 10)
Set LineRightExtremity = Factory2D.CreatePoint(50, 50)
Set Line2D = Factory2D.CreateLine(10, 10, 50, 50)
Line2D.StartPoint = LineLeftExtremity
Line2D.EndPoint = LineRightExtremity
Wa mir jetzt noch fehlt, ist an der Stelle der Koordinaten 10,10 und 50,50 die Tabelle und den bereits selektierten Punkt reinzu bekommen.
Kann mir da BITTE BITTE BITTE jemand helfen?
Danke.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP