EDrawings Nesnesi

EDrawings nesnesi E-Drawing işlemleri için kullanılır. Oluşturma:

Dim EDrawing
Set EDrawing = Doc.CreateSObject("EDrawings")

OpenDoc

• Dönüş Tipi: Void
• Parametreler:
• - fileName (String): Dosya adı
• - readOnly (Boolean): Salt okunur
• - silent (Boolean): Sessiz mod
• - viewOnly (Boolean): Sadece görüntüleme
• - configuration (String): Konfigürasyon
• Açıklama: E-Drawing belgesini açar

CloseActiveDoc

• Dönüş Tipi: Void
• Parametreler:
• - fileName (String): Dosya adı
• Açıklama: Aktif belgeyi kapatır

Save

• Dönüş Tipi: Void
• Parametreler:
• - fileName (String): Dosya adı
• - silent (Boolean): Sessiz mod
• - format (String): Format
• Açıklama: Belgeyi kaydeder

Open

• Dönüş Tipi: Integer
• Parametreler:
• - fileName (String): Dosya adı
• Açıklama: Belgeyi açar

ReSize

• Dönüş Tipi: Void
• Parametreler:
• - width (Integer): Genişlik
• - height (Integer): Yükseklik
• Açıklama: Pencere boyutunu ayarlar

Close

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Belgeyi kapatır

SaveAs

• Dönüş Tipi: Void
• Parametreler:
• - fileName (String): Dosya adı
• Açıklama: Belgeyi farklı kaydeder

GetLayerCount

• Dönüş Tipi: Integer
• Parametreler: Yok
• Açıklama: Katman sayısını döndürür

GetLayerName

• Dönüş Tipi: Variant (String)
• Parametreler:
• - index (Integer): Katman indeksi
• Açıklama: Katman adını döndürür

Print4

• Dönüş Tipi: Void
• Parametreler:
• - 12 parametre (detaylı yazdırma seçenekleri)
• Açıklama: Belgeyi yazdırır

SetPageSetupOptions

• Dönüş Tipi: Void
• Parametreler:
• - 11 parametre (sayfa ayarları)
• Açıklama: Sayfa ayarlarını yapar

GetSheetCount

• Dönüş Tipi: Integer
• Parametreler: Yok
• Açıklama: Sayfa sayısını döndürür

GetSheetName

• Dönüş Tipi: Variant (String)
• Parametreler:
• - index (Integer): Sayfa indeksi
• Açıklama: Sayfa adını döndürür

GetCurrentSheetIndex

• Dönüş Tipi: Integer
• Parametreler: Yok
• Açıklama: Mevcut sayfa indeksini döndürür

GetConfigurationCount

• Dönüş Tipi: Integer
• Parametreler: Yok
• Açıklama: Konfigürasyon sayısını döndürür

GetConfigurationName

• Dönüş Tipi: Variant (String)
• Parametreler:
• - index (Integer): Konfigürasyon indeksi
• Açıklama: Konfigürasyon adını döndürür

GetTooltipCount

• Dönüş Tipi: Integer
• Parametreler: Yok
• Açıklama: Tooltip sayısını döndürür

GetTipTitle / GetTipText

• Dönüş Tipi: Variant (String)
• Parametreler:
• - index (Integer): Tooltip indeksi
• Açıklama: Tooltip başlığı/metnini döndürür

GetComponentState

• Dönüş Tipi: Boolean
• Parametreler:
• - componentName (String): Bileşen adı
• - index (Integer): İndeks
• Açıklama: Bileşen durumunu döndürür

GetComponentCount

• Dönüş Tipi: Integer
• Parametreler:
• - componentName (String): Bileşen adı
• Açıklama: Bileşen sayısını döndürür

GetComponentName

• Dönüş Tipi: Variant (String)
• Parametreler:
• - componentName (String): Bileşen adı
• - index (Integer): İndeks
• Açıklama: Bileşen adını döndürür

GetCurrentConfigurationIndex

• Dönüş Tipi: Integer
• Parametreler: Yok
• Açıklama: Mevcut konfigürasyon indeksini döndürür

GetSheetWidth / GetSheetHeight

• Dönüş Tipi: Double
• Parametreler: Yok
• Açıklama: Sayfa genişliği/yüksekliğini döndürür

GetMassProperty

• Dönüş Tipi: Double
• Parametreler:
• - propertyType (Integer): Özellik tipi
• Açıklama: Kütle özelliğini döndürür

GetMaterialPropertyName

• Dönüş Tipi: Variant (String)
• Parametreler: Yok
• Açıklama: Malzeme özellik adını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim EDrawing
    Set EDrawing = Doc.CreateSObject("EDrawings")
    EDrawing.OpenDoc "C:\Drawing.sldprt", False, False, False, ""
    Dim SayfaSayisi
    SayfaSayisi = EDrawing.GetSheetCount()
    Doc.MsgBox "Sayfa Sayısı: " & SayfaSayisi
    EDrawing.Close
    Set EDrawing = Nothing
End Sub

---