Spline Düzenleme Hakkında (VBA/ActiveX)

Mevcut spline nesneleri, nesnenin özelliklerini ve yöntemlerini kullanarak düzenlenebilir.

Eğrileri değiştirmek için aşağıdaki düzenlenebilir özellikleri kullanın:

Kontrol Noktaları

Bir spline eğrisinin kontrol noktalarını belirtir.

EndTangent

Eğrinin uç teğetini yön vektörü olarak belirtir.

FitPuanlar

Bir spline eğrisinin tüm uyum noktalarını belirtir.

Uygunluk Toleransı

Yeni tolerans değerleriyle eğriyi mevcut noktalara yeniden uyarlar.

Düğümler

Eğri için düğüm noktaları vektörünü belirtir.

StartTangent

Eğri için başlangıç ​​teğetini belirtir.

Ek olarak, eğrileri düzenlemek için aşağıdaki yöntemleri kullanabilirsiniz:

Uygun Nokta Ekle

Belirtilen indekste eğriye tek bir uyum noktası ekler.

Uygunluk Noktasını Sil

Belirtilen indeksteki spline eğrisinin uyum noktasını siler.

ElevateOrder

Eğrinin derecesini verilen dereceye yükseltir.

GetFitPoint

Belirtilen indeksteki spline’ın uyum noktasını alır. (Yalnızca bir uyum noktası alır. Spline’ın tüm uyum noktalarını sorgulamak için şunu kullanın:)FitPuanlarmülk.)

Tersi

Eğrinin yönünü tersine çevirir.

Kontrol Noktasını Ayarla

Verilen indekste eğrinin kontrol noktasını ayarlar.

SetFitPoint

Verilen indekste eğrinin uyum noktasını ayarlar. (Yalnızca bir uyum noktası ayarlar. Eğrinin tüm uyum noktalarını değiştirmek için şunu kullanın:)FitPuanlarmülk.)

AyarAğırlığı

Belirtilen indeksteki kontrol noktasının ağırlığını ayarlar.

Eğrileri sorgulamak için aşağıdaki salt okunur özellikleri kullanın:

Alan

Bir spline’ın kapalı alanını alır.

Kapalı

Eğrinin açık mı yoksa kapalı mı olduğunu gösterir.

Derece

Spline’ın polinom gösteriminin derecesini alır.

Periyodiktir

Verilen eğrinin periyodik olup olmadığını belirtir.

IsPlanar

Verilen eğrinin düzlemsel olup olmadığını belirtir.

Akılcı

Verilen eğrinin rasyonel olup olmadığını belirtir.

Kontrol Noktası Sayısı

Eğrinin kontrol noktalarının sayısını alır.

Uygunluk Puanı Sayısı

Eğrinin uygun noktalarının sayısını verir.

Sub Ch4_ChangeSplineControlPoint () ' Eğriyi oluştur 
  
  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

  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
  Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
  splineObj.Güncelle

  ' İlk uyum noktasının koordinatını
   değiştir Dim controlPoint ( 0 To 2 ) As Double 
  controlPoint ( 0 ) = 0 
  controlPoint ( 1 ) = 3 
  controlPoint ( 2 ) = 0 
  splineObj . SetControlPoint 0 , controlPoint            
  splineObj.UpdateEnd Sub​​​