Mesh Oluşturma Hakkında (VBA/ActiveX)

1 dakika okuma

İçindekiler

Çokgen ağ oluşturun

Dikdörtgen bir ağ (ÇokgenAğBir nesnenin yüzeyini düzlemsel yüzeyler kullanarak temsil eder.

Not: Windows için AutoCAD LT, 3 boyutlu ağ modelleri oluşturmayı desteklemez.

Ağ yoğunluğu veya yüzey sayısı, sütun ve satırlardan oluşan bir ızgaraya benzer şekilde, M ve N köşeden oluşan bir matris cinsinden tanımlanır. M ve N, herhangi bir köşenin sırasıyla sütun ve satır konumunu belirtir. Ağlar hem 2 boyutlu hem de 3 boyutlu olarak oluşturulabilir, ancak öncelikle 3 boyutlu uygulamalar için kullanılırlar.

Kullanın Add3DMeshDikdörtgen ağlar oluşturmak için kullanılan bir yöntemdir. Bu yöntem, girdi olarak üç değer alır: M yönündeki köşe sayısı , N yönündeki köşe sayısı ve ağdaki tüm köşelerin koordinatlarını içeren bir değişken dizisi.

Bir kez ÇokgenAğoluşturuldu, kullanın MCloseVe NCloseAğı kapatmak için kullanılan özellikler.

Çokgen ağ oluşturun #

Bu örnek, 4×4’lük bir çokgen ağ oluşturur. Ardından, ağın üç boyutlu yapısının daha kolay görülebilmesi için aktif görüntüleme alanının yönü ayarlanır.

Sub Ch8_Create3DMesh () Dim meshObj As AcadPolygonMesh Dim mSize , nSize , Count As Integer Dim points ( 0 To 47 ) As Double 
     
       
        

    ' Noktalar matrisini oluştur
    puan(0) = 0: puan(1) = 0: puan(2) = 0
    puan(3) = 2: puan(4) = 0: puan(5) = 1
    puan(6) = 4: puan(7) = 0: puan(8) = 0
    puan(9) = 6: puan(10) = 0: puan(11) = 1
    puan(12) = 0: puan(13) = 2: puan(14) = 0
    puan(15) = 2: puan(16) = 2: puan(17) = 1
    puan(18) = 4: puan(19) = 2: puan(20) = 0
    puan(21) = 6: puan(22) = 2: puan(23) = 1
    puan(24) = 0: puan(25) = 4: puan(26) = 0
    puan(27) = 2: puan(28) = 4: puan(29) = 1
    puan(30) = 4: puan(31) = 4: puan(32) = 0
    puan(33) = 6: puan(34) = 4: puan(35) = 0
    puan(36) = 0: puan(37) = 6: puan(38) = 0
    puan(39) = 2: puan(40) = 6: puan(41) = 1
    puan(42) = 4: puan(43) = 6: puan(44) = 0
    puan(45) = 6: puan(46) = 6: puan(47) = 0

    mBoyut = 4: nBoyut = 4

    ' Model alanında
     3 boyutlu bir ağ oluşturur Set meshObj = ThisDrawing . ModelSpace . _
  Add3DMesh ( mSize , nSize , points )  

    'Görüntüleme alanının görüntüleme yönünü değiştirin'
    ' Silindiri daha iyi görebilmek için
     Dim NewDirection ( 0 To 2 ) As Double NewDirection ( 0 ) = - 1 NewDirection ( 1 ) = - 1 NewDirection ( 2 ) = 1 ThisDrawing . ActiveViewport . Direction = NewDirection ThisDrawing . ActiveViewport = ThisDrawing . ActiveViewport ZoomAll End Sub