3 Boyutlu Ortamda Döndürme Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Üç boyutlu bir kutu oluşturun ve onu bir eksen etrafında döndürün.

İle birlikteDöndürBu yöntemle, 2 boyutlu nesneleri belirtilen bir nokta etrafında döndürebilirsiniz.

Dönme yönü WCS tarafından belirlenir.Rotate3DBu yöntem, 3 boyutlu nesneleri belirtilen bir eksen etrafında döndürür.Rotate3DBu yöntem, girdi olarak üç değer alır: dönüş eksenini tanımlayan iki noktanın WCS koordinatları ve radyan cinsinden dönüş açısı.

3 boyutlu nesneleri döndürmek için aşağıdaki yöntemlerden birini kullanın:DöndürveyaRotate3Dyöntem.

Üç boyutlu bir kutu oluşturun ve onu bir eksen etrafında döndürün. #

Bu örnek, 3 boyutlu bir kutu oluşturur. Ardından döndürme eksenini tanımlar ve son olarak kutuyu bu eksen etrafında 30 derece döndürür.

Sub Ch8_Rotate_3DBox () Dim boxObj As Acad3DSolid Dim length As Double Dim width As Double Dim height As Double Dim center ( 0 To 2 ) As Double 
     
     
     
     
        

    'Kutuyu tanımlayın'
    merkez(0) = 5: merkez(1) = 5: merkez(2) = 0
    uzunluk = 5
    genişlik = 7
    yükseklik = 10

    ' Model alanında
     kutu nesnesini oluşturun : Set boxObj = ThisDrawing . ModelSpace . _
  AddBox ( center , length , width , height )   

    Dönme eksenini iki nokta ile tanımlayın.
    Dim rotatePt1(0 To 2) As Double
    Dim rotatePt2(0 To 2) As Double
    Döndürme açısını çift değer olarak ayarla.
    rotatePt1(0) = -3: rotatePt1(1) = 4: rotatePt1(2) = 0
    rotatePt2(0) = -3: rotatePt2(1) = -4: rotatePt2(2) = 0
    döndürme açısı = 30
    döndürmeAçısı = döndürmeAçısı * 3.141592 / 180#
    ' Kutuyu döndürün' 
    boxObj . Rotate3D rotatePt1 , rotatePt2 , rotateAngle
     ZoomAll End Sub