İçindekiler
Kullanın ÇokyüzlüAğ EkleHer bir yüzün çok sayıda köşeye sahip olabileceği çok yüzlü bir ağ oluşturma yöntemi.
Not: Windows için AutoCAD LT, 3 boyutlu ağ modelleri oluşturmayı desteklemez.
Çok yüzlü bir ağ oluşturmak, dikdörtgen bir ağ oluşturmaya benzer. Çok yüzlü bir ağ oluşturmak için, tüm köşelerinin koordinatlarını belirtin ve ardından her bir yüzü, o yüzün tüm köşeleri için köşe numaraları girerek tanımlayın. Çok yüzlü ağı oluştururken, belirli kenarları görünmez hale getirebilir, katmanlara atayabilir veya renklendirebilirsiniz.
Bir kenarı görünmez yapmak için, kenarın köşe numarasını negatif bir değer olarak girin.
Çok yüzlü bir ağ oluşturun #
Bu örnek bir ÇokyüzlüAğModel uzayındaki nesne. Etkin görüntüleme penceresinin bakış yönü, ağın üç boyutlu yapısını daha kolay görüntülemek için güncellenir.
Sub Ch8_CreatePolyfaceMesh () 'Ağ köşelerini tanımla Dim vertex(0 To 17) As Double köşe(0) = 4: köşe(1) = 7: köşe(2) = 0 köşe(3) = 5: köşe(4) = 7: köşe(5) = 0 köşe(6) = 6: köşe(7) = 7: köşe(8) = 0 köşe(9) = 4: köşe(10) = 6: köşe(11) = 0 köşe(12) = 5: köşe(13) = 6: köşe(14) = 0 köşe(15) = 6: köşe(16) = 6: köşe(17) = 1 ' Yüz listesini tanımlayın Dim FaceList ( 0 To 7 ) As Integer FaceList ( 0 ) = 1 FaceList ( 1 ) = 2 FaceList ( 2 ) = 5 FaceList ( 3 ) = 4 FaceList ( 4 ) = 2 FaceList ( 5 ) = 3 FaceList ( 6 ) = 6 FaceList ( 7 ) = 5 ' Çok yüzlü ağı oluşturun Dim polyfaceMeshObj As AcadPolyfaceMesh Set polyfaceMeshObj = ThisDrawing.ModelSpace.AddPolyfaceMesh _ (köşe, Yüz Listesi) ' Çok yüzlü ağı daha iyi görebilmek için görüntüleme alanının bakış yönünü değiştirin ' Dim NewDirection(0 To 2) As Double YeniYön(0) = -1 YeniYön(1) = -1 YeniYön(2) = 1 BuÇizim.AktifGörünümAlanının.yönü = YeniYön BuÇizim.AktifGörünümAlan = BuÇizim.AktifGörünümAlan ZoomAll Son Alt Yordam
