AutoCAD VBA. Excele veri yaz-3

VBA kodlarıyla ofis programlarına bağlantı kurulabilir ve programla ilgili birçok işlem yaptırılabilir.

AutoCAD VBA'dan Excel'e bağlantı kurulabildiği gibi tersi de mümkündür

Hatta birçok uyumlu Windows programı birbiri ile bağlanıp kodlarla işlemler yapabilir.

Bu videoda AutoCAD VBA ile Excel'e bağlanmayı ve veri aktarmayı göstermeye devam ediyorum.

• Excele sayfa ekle
• Excel sayfası silme
• AutoCAD çizim nesne adlarını Excele yaz
• AutoCAD çizim alanındaki çizgilerin uzunluklarını ve toplamını Excele yaz
• Excel dosyasını aç

Videoda kullanılan VBA kodları:

'Mesut Akcan
'https://mesutakcan.blogspot.com
'https://youtube.com/mesutakcan
'makcan@gmail.com

Sub excelDosyaAc2()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'Excel uygulamasını temsil eden nesne
	Dim wb As Excel.Workbook 'Excel çalışma kitabını temsil eden nesne

	Set xla = Excel.Application
	xla.Visible = True  'uygulamayı ekranda göster

	Set wb = xla.Workbooks.Open("c:\test\test2.xlsx") 'dosyayı excel ile aç
End Sub

Sub excelDosyaAc1()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Visible = True 'ekranda excel nesnesini göster

	Dim dosya As Excel.Workbook 'excel çalışma kitabı nesnesi
	Set dosya = xla.Workbooks.Open("c:\test\test1.xlsx") 'dosyayı excel ile aç
End Sub

Sub exceleYaz6()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar

	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster
   
	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	Set sayfa = xla.ActiveSheet
	sayfa.Name = "Liste"

	Dim ent As AcadEntity 'AutoCad Varlık

	For Each ent In ThisDrawing.ModelSpace 'Çizim alanındaki tüm varlıklar
		If ent.ObjectName = "AcDbLine" Then
			satir = satir + 1
			uz = ent.Length
			sayfa.Cells(satir, 2) = uz
			toplamUzunluk = toplamUzunluk + uz
		End If
	Next

	sayfa.Cells(satir + 1, 1).Value = "TOPLAM:"
	sayfa.Cells(satir + 1, 2).Value = toplamUzunluk
	sayfa.Cells(satir + 1, 2).Font.color = vbRed

	sayfa.SaveAs "c:\TEST\test2.xlsx" 'Dosyaya kaydet
End Sub

Sub exceleYaz5()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar

	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster
   
	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	'Son sayfadan sonra ekle
	Set sayfa = xla.Worksheets.Add(After:=xla.Worksheets(xla.Worksheets.Count))
	sayfa.Name = "TEST"

	Dim ent As AcadEntity 'AutoCad Varlık

	For Each ent In ThisDrawing.ModelSpace 'Çizim alanındaki tüm varlıklar
		satir = satir + 1 'satır numarasını 1 arttır
		sayfa.Cells(satir, 1).Value = ent.ObjectName 'hücreye nesne adını yaz
	Next
	sayfa.SaveAs "c:\TEST\test1.xlsx" 'Dosyaya kaydet
End Sub

Sub exceleYaz4()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar

	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster
   
	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	'Set sayfa = xla.Worksheets.Add(After:=xla.Worksheets(xla.Worksheets.Count)) 'Son sayfadan sonra yeni sayfa ekle

	'2. sayfadan sonra ekle
	Set sayfa = xla.Worksheets.Add(After:=xla.Worksheets(2))
	sayfa.Name = "TEST"

	'TEST sayfasından sonra ekle
	Set sayfa = xla.Worksheets.Add(After:=xla.Worksheets("TEST"))
	sayfa.Name = "DENEME"

	'TEST sayfasından önce ekle
	Set sayfa = xla.Worksheets.Add(Before:=xla.Worksheets("TEST"))
	sayfa.Name = "HESAP"

	sayfa.Delete

	Set sayfa = xla.Worksheets("TEST")
	sayfa.Delete 'sayfa sil

	xla.Worksheets("DENEME").Delete 'sayfa sil
End Sub

Sub exceleYaz3()
	'2. yöntem: Geç bağlanma. Late Binding

	Dim xla As Object 'nesne için değişken tanımla
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Visible = True 'ekranda excel nesnesini göster

	Dim wb As Object 'nesne için değişken tanımla
	Set wb = xla.Workbooks.Add 'Yeni dosya oluştur.

	Dim sayfa As Object 'nesne için değişken tanımla
	Set sayfa = wb.Worksheets.Add 'yeni dosya oluştur
	sayfa.Name = "TEST" 'sayfa adını değiştir.
	sayfa.Cells(4, 3) = "Merhaba" 'satır 4, sütun 3'e Merhaba yaz
End Sub

Sub exceleYaz2()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster

	'xla.Worksheets.Add 'yeni excel sayfası ekle

	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	Set sayfa = xla.Worksheets.Add 'yeni excel sayfası ekle

	sayfa.Name = "TEST" 'sayfa adını değiştir

	Set sayfa = xla.Worksheets(2) 'excel 2. sayfa
	sayfa.Activate 'sayfayı aktif et

	With sayfa.Range("B3")
		.Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
		.Interior.color = vbRed 'zemin rengi kırmızı
		.Font.color = vbWhite 'yazı rengi beyaz
		.Font.Bold = True 'kalın yazı
		'.Select 'B3 hücresini seç
	End With
End Sub

Sub exceleYaz1()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster

	With xla.Application.Range("B3")
		.Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
		.Interior.color = vbRed 'zemin rengi kırmızı
		.Font.color = vbWhite 'yazı rengi beyaz
		.Font.Bold = True 'kalın yazı
		.Select 'B3 hücresini seç
	End With
	xla.Quit 'Exceli kapat
End Sub

Blog ya da web sayfasına müzik ekleme

Yayınlama: 26/07/2012
Güncelleme: 21/06/2023

Blog sayfanıza ya da web sayfanıza müzik eklemek için çeşitli seçenekler var. Burada göstereceğimiz yöntem HTML5 audio
etiketi ile olacaktır.
Böylece HTML5 destekli tarayıcılarda flash, java ya da eklenti kullanmamıza gerek kalmadan kolayca müzik ekleyebileceğiz.
Tek dezevantajı çok eski sürüm web tarayıcıların bunu desteklememesi.

Kullanımı:
Audio etiketi HTML5 ile gelen bir özelliktir.
Kullanımı basittir.
Detaylı teknik bilgiye buradan ulaşabilirsiniz.

Blog editöründe HTML düzenleyiciye geçin. Aşağıda taslağı verilen kodları ekleyin.

<audio controls="">
	<source src="müzik dosyası adresi(link)"></source>
	Müzik kontrollerini göremiyorsanız tarayıcınız audio etiketini desteklememektedir.
</audio>

ÖRNEK:

<audio controls="">
	<source 
	src="https://upload.wikimedia.org/wikipedia/commons/f/ff/Vivaldi_-_Four_Seasons_1_Spring_mvt_1_Allegro_-_John_Harrison_violin.oga">
	</source>Müzik kontrollerini göremiyorsanız tarayıcınız audio etiketini desteklememektedir.
</audio>

Kontroller:

Kodlamada controls yanına eklenmelidir. controls autoplay loop gibi.
Zorunlu değildir. İstenilen eklenebilir.
autoplay: Müzik sayfa açılınca otomatik yürütülecektir.
loop: Müzik tamamlanınca tekrar yürütülür.

AutoCADde ölçü rakamına çap işareti ekleme

Yayınlama: Haziran 2010
Güncelleme: 2 Nisan 2021

AutoCAD ile ölçülendirme yaparken yay veya daire çaplarını ölçülendirdiğimizde ölçü rakamı önünde otomatik olarak çap işareti çıkıyor.
Yay veya daire olmayan bir çizimin silindirik olduğunu belirtmek için ölçü rakamı önüne çap işareti konulmalıdır.
Fakat AutoCAD normal olarak çap işareti eklemez.

Ölçü rakamına çap işareti eklemek için şu yolu takip edin.

Ölçülendirmeyi yapın.
Ölçü rakamını çift tıklayın. Ya da sağ tıklayın açılan menüden Properties tıklayın. (Kısayol: Ctrl+1 Komut: PROPERTIES)

Açılan Properties penceresinde Text kategorisinde Text override yanına %%C<> yazıp Entere basın.

Bu kod ile ölçü rakamı önüne çap işareti eklenir.
%%C çap işareti,
<> ölçü rakamı yer tutucu kodudur.

İsterseniz %%C<> mm gibi bir kodlama da girebilirsiniz.
Derece(º) için: %%d
+- için: %%p
... gibi

Blogger blog'a basit arama kutusu ekleme

Blogger'in standart temalarından birini kullanıyorsanız zaten aram kutusu sayfa üzerinde bulunuyr. Ama kod ile bunu kaldırmış ya da özel bir tema kullandıysanız arama kutusu olmayabilir. Eğer blogger blogunuza arama kutusu eklemek isterseniz aşağıudaki adımları izleyiniz.

• http://www.blogger.com/ a giriş yapın.
• Düzenlemek istediğiniz blog sayfanızda Yerleşim'i tıklayın.
• Sayfa Öğeleri'ni tılayın.
• Gadget Ekle'yi tıklayın.
• Başlık kısmına Sitede Ara ya da ne isterseniz onu yazın ya da boş bırakın.
• İçerik kısmına aşağıdaki kodları ekleyin.

<form id="searchthis" action="/search" style="DISPLAY: inline" method="get">

<input id="search-box" name="q" size="25">
<input id="search-btn" value="Sitede Ara" type="submit"></form>

Kaydet butonunu tıklayın.

Eklediğiniz gadget'i fareyle sürükleyerek başka bir alana yerleştirebilirsiniz ve Kaydet'e tıklayınız.