AutoCAD VBA Block Kaydetmek

[k0081]

Merhaba arkadaşlar;

Aşağıdaki VBA kodu üzerinde çalışıyorum.. b1 klasörü içine kayıt yapıyorum. Fakat seçerek blok oluşturur gibi kayıt yapmalıyım. bunu ne gibi değişiklik veya ekleme yapmalıyım.?

yardımcı arkadaşa şimdiden Teşekkürler...


Mevcut halde Çizimi belirtilen Klasöre kayıt ediyor.

Sub BlockSave()
Dim folder As String
Dim fName As String
Dim sec As AcadSelectionSet

folder = "E:\Hesfiles\b1"
dosyaAdi = InputBox("Dosya Adını Giriniz : ", folder)
If dosyaAdi = "" Then
MsgBox "İşlem iptal edildi."
Exit Sub
End If

'Set Secim = ThisDrawing.SelectionSets.Add("Secim")
'Secim.SelectOnScreen

fName = dosyaAdi & ".dwg"
ThisDrawing.SaveAs folder & "\" & fName

MsgBox fName & " Kaydedildi.", vbInformation

End Sub

 

[ÖmerFaruk]

incelemenizi öneririm.

File Dialogs VBA Ile Dosya Açma ve Kaydetme İşlemleri Kontrolü

File Dialogs Penceleri Ile Devamlı Olarak Kullandığımız Dosya Açme ve Kaydetme İşlemlerini VBA Makrolar Vasıtasıyla Kontol Etmeye Öğreneceğiz

macronimbus.com

Forumda da örnek dosyalar mevcut.

Sorgu için arama sonuçları: Application.FileDialog

excel.web.tr

 

[k0081]

NextLevel

Teşekkürler..,