Katı Cisimler Oluşturma Hakkında (VBA/ActiveX)

1 dakika okuma

İçindekiler

Kama şeklinde katı bir şekil oluşturun.

Katı bir cisim (3DSolid(nesne) bir nesnenin tüm hacmini temsil eder.

Not: Windows için AutoCAD LT, 3 boyutlu katı cisimlerin oluşturulmasını desteklemez.

Katı cisimler, 3D modelleme türleri arasında bilgi açısından en eksiksiz ve en az belirsiz olanıdır. Karmaşık katı şekillerin oluşturulması ve düzenlenmesi de tel kafes ve ağ modellerine göre daha kolaydır.

Katı cisimleri, kutu, koni, silindir, küre, torus ve kama gibi temel katı şekillerden birini kullanarak veya 2 boyutlu bir nesneyi bir yol boyunca uzatarak ya da bir eksen etrafında döndürerek oluşturabilirsiniz. Katı cisimler oluşturmak için aşağıdaki yöntemlerden birini kullanın:

AddBox
AddCone
Silindir Ekle
Elips Koni Ekle
Elips Silindir Ekle
EkstrüdeKatı Ekle
Yol Boyunca Ekstrüde Katı Ekle
Döndürülmüş Katı Ekle
Katı Ekle
AddSphere
AddTorus
AddWedge

Örgüler gibi, katı cisimler de gizlenene, gölgelendirilene veya işlenene kadar tel kafes olarak görüntülenir. Ek olarak, katı cisimleri kütle özelliklerine (hacim, atalet momenti, ağırlık merkezi vb.) göre analiz edebilirsiniz. Katı cisimleri analiz etmek için aşağıdaki özellikleri kullanın:

Atalet Momenti
Ana Talimatlar
Başlıca Anlar
Atalet Ürünü
Dönme Yarıçapları
Hacim

O Yüzey Başına Kontur ÇizgileriBu özellik, tel çerçeve yapısının kavisli kısımlarını görselleştirmek için kullanılan mozaikleme çizgilerinin sayısını kontrol eder. Pürüzsüzlük OluşturmaBu özellik, gölgeli ve gizli çizgi nesnelerinin pürüzsüzlüğünü ayarlar.

Kama şeklinde katı bir şekil oluşturun. #

Aşağıdaki örnek, model uzayında kama şeklinde bir katı cisim oluşturur. Etkin görüntüleme penceresinin bakış yönü, kamanın üç boyutlu yapısını daha kolay göstermek için güncellenir.

Sub Ch8_CreateWedge () Dim wedgeObj As Acad3DSolid Dim center ( 0 To 2 ) As Double Dim length As Double Dim width As Double Dim height As Double 
     
        
     
     
     

    'Kamayı tanımlayın
    merkez(0) = 5#: merkez(1) = 5#: merkez(2) = 0
    uzunluk = 10#: genişlik = 15#: yükseklik = 20#

    ' Model alanında
     kama şeklini oluşturun Set wedgeObj = ThisDrawing . ModelSpace . _
  AddWedge ( center , length , width , height )  

    'Görüntüleme alanının görüntüleme 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