---

Hallo,

ist es möglich, mit CATScript einen Spline in einer DrawingView zu erzeugen?
Wenn ja, hat jemand dafür ein kleines Beispiel?

Gruß
Bertel

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

---

Hallo ,

pruefst Du diese Code...

Code:

---

Sub CATMain()

Set Drawingdocument1 = CATIA.ActiveDocument
Set drawingSheets1 = Drawingdocument1.Sheets
Set drawingSheet1 = drawingSheets1.ActiveSheet
Set drawingViews1 = drawingSheet1.Views
Set drawingview1 = drawingViews1.Add("Unfolded View")
Set myFactory2D = drawingview1.Factory2D
Set drawingViewGenerativeBehavior1 = drawingview1.GenerativeBehavior
drawingViewGenerativeBehavior1.DefineFrontView 1, 0, 0, 0, 1, 0
drawingview1.X = 100
drawingview1.Y = 100
drawingview1.Activate

Dim Point2D1
Dim SplineInner As Spline2D

Dim controlPoint2D3 As ControlPoint2D
Set controlPoint2D1 = myFactory2D.CreateControlPoint(10,10)
Set controlPoint2D2 = myFactory2D.CreateControlPoint(20,20)

Dim arrayOfObject1(2)  'VARIANT !
Set arrayOfObject1(1) = controlPoint2D1
Set arrayOfObject1(0) = controlPoint2D2

Set myFactory2DVariant = myFactory2D
Set spline2D1 = myFactory2DVariant.CreateSpline(arrayOfObject1)

End Sub

---

Grüße Jan

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

---

Hallo Jan,

so geht es.
Danke.

Gruß
Bertel

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