İçindekiler
AutoCAD ile spline eğrileri, daireler, yaylar ve elipsler de dahil olmak üzere çeşitli kavisli nesneler oluşturabilirsiniz.
Tüm eğriler , mevcut WCS’nin XY düzleminde oluşturulur .
Bir eğri oluşturmak için aşağıdaki yöntemlerden birini kullanın:
- AddArc
- Verilen merkez, yarıçap, başlangıç ve bitiş açıları doğrultusunda bir yay oluşturur.
- AddCircle
- Verilen merkez noktası ve yarıçap ile bir daire oluşturur.
- AddEllipse
- Merkez noktası, ana eksen üzerindeki bir nokta ve yarıçap oranı verildiğinde bir elips oluşturur.
- Spline Ekle
- İkinci dereceden veya üçüncü dereceden bir NURBS (düzensiz rasyonel B-spline) eğrisi oluşturur.
Bir Spline nesnesi oluşturun. #
Bu örnek, model uzayında (0, 0, 0), (5, 5, 0) ve (10, 0, 0) olmak üzere üç nokta kullanarak bir spline oluşturur. Spline’ın başlangıç ve bitiş teğetleri (0,5, 0,5, 0,0)’dır.
Sub Ch4_CreateSpline () ' Bu örnek, model uzayında bir spline nesnesi oluşturur. ' Gerekli değişkenleri tanımlayın Dim splineObj As AcadSpline Dim startTan ( 0 To 2 ) As Double Dim endTan ( 0 To 2 ) As Double Dim fitPoints ( 0 To 8 ) As Double 'Değişkenleri tanımlayın startTan(0) = 0,5: startTan(1) = 0,5: startTan(2) = 0 endTan(0) = 0,5: endTan(1) = 0,5: endTan(2) = 0 fitPoints(0) = 1: fitPoints(1) = 1: fitPoints(2) = 0 fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0 fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0 ' Spline eğrisini oluşturun Set splineObj = ThisDrawing . ModelSpace . AddSpline ( fitPoints , startTan , endTan ) ZoomAll End Sub
