Düzlem Boyunca Nesnelerin Aynalanması Hakkında (VBA/ActiveX)

3 boyutlu ayna #

Bu örnek, model uzayında bir kutu oluşturur. Ardından kutuyu bir düzlem etrafında aynalar ve aynalanmış kutuyu kırmızı renkle boyar.

Sub Ch8_MirrorABox3D () ' Kutu nesnesini oluştur 
    
    Dim boxObj As Acad3DSolid
    Kısım uzunluğu Çift olarak
    Genişliği Çift Olarak Belirginleştir
    Yüksekliği Çift Olarak Kısma
    Dim center(0 To 2) As Double
    merkez(0) = 5#: merkez(1) = 5#: merkez(2) = 0
    uzunluk = 5#: genişlik = 7: yükseklik = 10#

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

    'Aynalama düzlemini üç nokta ile tanımlayın.'
    Dim mirrorPt1(0 To 2) As Double
    Dim mirrorPt2(0 To 2) As Double
    Dim mirrorPt3(0 To 2) As Double

    mirrorPt1(0) = 1.25: mirrorPt1(1) = 0: mirrorPt1(2) = 0
    mirrorPt2(0) = 1.25: mirrorPt2(1) = 2: mirrorPt2(2) = 0
    mirrorPt3(0) = 1.25: mirrorPt3(1) = 2: mirrorPt3(2) = 2

    ' Kutuyu aynala
     Dim mirrorBoxObj As Acad3DSolid Set mirrorBoxObj = boxObj . Mirror3D _
  ( mirrorPt1 , mirrorPt2 , mirrorPt3 ) 
    mirrorBoxObj . Color = acRed
     ZoomAll End Sub