Mesut AKCAN: youtube

youtube etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

21 Ağustos 2024 Çarşamba

AutoCAD 2 boyutlu çizim - 24

Bu videoda aşağıdaki resimde görülen iki boyutlu çizimi ve ölçülendirmesini yaptım.

10 Aralık 2023 Pazar

AutoCAD Soru - 7

AutoCAD programında herhangi 3 noktadan geçen çember çiziniz.
Örneğin;
resimdeki a1,a2 ve a3 noktasından geçen 1. çemberi ve
b1,b2 ve b3 noktasından geçen 2. çemberi çiziniz.

PARAMETRIC komutları kullanılmayacak.
CIRCLE komutundaki Tan(Teğet), 2P ve 3P parametreleri kullanılmayacak.

Youtube kanalımın katıl üyeleri için sorunun çizim videosu:

8 Aralık 2023 Cuma

AutoCAD Soru - 6

AutoCAD programında aşağıdaki çizimi yapınız.

10 uzunluğundaki çizgi çember ile teğettir.
Eksik ölçü yoktur. Çizim tam tanımlıdır.
PARAMETRIC komutları kullanılmayacak.
TEĞET(tangent) yakalama(snap) ve komut içindeki teğet özellikler kullanılmayacak.

Youtube kanalımın katıl üyeleri için sorunun çizim videosu:

18 Kasım 2023 Cumartesi

Bu videoda aşağıdaki resimde görülen iki boyutlu çizimi ve ölçülendirmesini yaptım.
Bu çizim yeni başlayanlar için iyi bir örnek sayılabilir.
Çizim yaparken yapılması gereken ön ayarlar ve katmanlar açıklandı.
Line, Circle, Offset, Trim, Fillet, Ltscale, Dimstyle ... komutları kullanıldı.

14 Ekim 2023 Cumartesi

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

12 Ekim 2023 Perşembe

AutoCAD VBA. Excele veri yaz-2

VBA kodlarıyla Microsoft Office 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.

Excel ile bağlantı kurmak için 2 yöntem var.

1) Erken bağlama. Early Binding

2) Geç bağlama. Late Binding

Yöntemlerin avantaj ve dezavantajları

Erken bağlama:

Avantajları:

Çalışması daha hızlıdır.
Intellisense(Akıllı kod tamamlama) bağlanan nesnelerde kullanılabildiği için kod yazımı daha kolaydır.
Programın başlangıcında tüm değişkenlere değer atama işlemini yapar. Bu nedenle, programın bellek kullanımı artabilir.

Dezavantajları:

Referans eklenmelidir. Ekli değilse çalışmaz.

Geç bağlama:

Avantajları:

Referans eklemek gerekli değildir. Kullanıcının bir işlem yapması gerekmez.
Bellek kullanımı verimlidir.

Dezavantajları:

Nesneye bağlanma çalışma zamanında gerçekleştiği için yavaş çalışır.
Intellisense(Akıllı kod tamamlama) bağlanan nesnelerde çalışmaz. Bu yüzden kod yazmak zorlaşır.

Videoda kullanılan VBA kodları:

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

11 Ekim 2023 Çarşamba

AutoCAD VBA. Excele veri yaz-1

VBA kodlarıyla Microsoft Office 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österdim.

Excel ile bağlantı kurmak için 2 yöntem var.

1. yöntem: Referans kullanmak. Erken bağlanma(Early Binding)

2. yöntem: Referans kullanmadan kod ile bağlanma. Geç bağlanma(Late Binding)

İki yöntemin de avantaj ve dezavantajları var.

Bu videoda 1. yöntem ile Excele nasıl bağlanacağı gösterildi.

Videoda kullanılan VBA kodları:

Sub exceleYaz()
	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 göster 'excel nesnesini göster
	'xla.Application.Cells(3, 2).Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
	'xla.Application.Range("B3").Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
	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

10 Ağustos 2022 Çarşamba

İzometrik perspektif çizme ve ölçülendirme-8. ISOTOOLS ile Çizim ve Ölçülendirme

AutoCAD ile izometrik perspektif çizme ve ölçülendirme için örnek çizim

AutoCAD ile izometrik perspektif çizimi ve ölçülendirme

7 Ağustos 2022 Pazar

AutoCAD İzometrik Çizim ve Ölçülendirme Programı: ISOTOOLS v1

ISOTOOLS v1.0.220807
Mesut Akcan
07/08/2022

AÇIKLAMA

AutoCAD Visual Lisp ile yazılıp derlenmiştir. AutoCAD 2012 ve üzerinde çalışır. AutoCAD 2022'de denenmiştir.

Bu yardımcı program AutoCAD programında izometrik perspektif çizimi ve ölçülendirmesinde kullanılır.

Devamını oku

25 Temmuz 2022 Pazartesi

AutoCAD ile izometrik perspektif çizme ve ölçülendirme örnekleri-6

AutoCAD ile izometrik perspektif çizme ve ölçülendirme için örnek çizim ve çizim videosu.

24 Temmuz 2022 Pazar

AutoCAD ile izometrik perspektif çizme ve ölçülendirme örnekleri

AutoCAD ile izometrik perspektif çizme ve ölçülendirme için örnek çizimler ve çizim videoları

YOUTUBE KANALIMDAKİ OYNATMA LİSTELERİM:

AutoCAD

AutoCAD 2 boyutlu çizim örnekleri

AutoCADde çalışan programlar

AutoCAD ile Açınım Çizimi

AutoCAD Çizim Teknikleri

AutoCAD ile VBA makro kullanımı

AutoCAD 3 görünüş çıkarma

AutoCAD ile izometrik perspektif çizimi ve ölçülendirme

SolidWorks

SolidWorks 2 boyutlu çizim örnekleri

SolidWorks Katı Modelleme

Sıralama Algoritmaları

Camtasia

Kutu Açılışı

PhotoShop

23 Temmuz 2022 Cumartesi

AutoCAD İzometrik Ölçülendirme Programı: ISODIM v2

ISODIM v2.0.220723

Mesut Akcan

23/07/2022

AÇIKLAMA

AutoCAD 2012 ve üzerinde çalışır. AutoCAD 2022'de denenmiştir.

Bu yardımcı program AutoCAD programında izometrik perspektif çizimi ölçülendirmede kullanılır.
Ok uçlarının ve yazıtipinin eğimi ölçülendirme yüzeyi ile uyumlandırılır.
Yapılan ölçülendirmeler "isoDim-Ölçü " adlı katmana aktarılır.

Devamını oku

29 Nisan 2022 Cuma

AutoCAD 2D Çizim #19. Final Sorusu #1

Bilgisayar destekli çizim final sorusu.

Youtube kanalımda yayınladığım AutoCAD 2 boyutlu çizim örnekleri için örnek çizim.

Bu çizim orta seviyenin üzerindedir. Yani biraz zor. Zorluğu çizimden değil ölçülerini tespit etmekten kaynaklanıyor.

Ölçülendirmede kural gereği eksik ve fazladan gereksiz ölçü verilmez. Bu yüzden ölçüleri olmayan çizgilerin ölçüleri diğer verilen ölçülerden referans alınarak bulunur.

Çizim kontrolü:

Çizim bittikten sonra kontrol etmek için şunları yapın.
Ana çizgileri seçin (eksenler ve ölçülendirmeler hariç)
JOIN komutu ile çizgileri birleştirin.
2 tane kapalı(Closed) POLYLINE oluşacak.
Daha fazla ise veya kapalı değilse çizimi kontrol edin.
HATCH ile 2 polyline arasını tarayın.
Taralı kısmın alanını AREA ile hesaplayın ya da daha kolayı taralı alanı seçip CTRL+1 e basın Properties'den Area değerini alın.
AREA: 7733.4329 olacak değilse çizimi kontrol edin.

Kanalımın katıl aboneleri için özel çizim videosu.

13 Nisan 2022 Çarşamba

AutoCAD programını kalıntısız tamamen kaldır

AutoCAD normal yolla sistemden kaldırıldığında sistemde ve kayıt defterinde bazı kalıntılar bırakır.

Bu kalıntılar sistemde yer işgal ettiği gibi sonraki AutoCAD sürümü kurulumunda da sorunlar çıkarabiliyor.

Bu tür sorunlarla karşılaşmamak için AutoCAD'i tam olarak sistemden kaldırmak gerekir.

Bu videoda AutoCAD ürününü sistemden tamamen kalıntısız olarak nasıl kaldırıldığını adım adım göstereceğim.

Sisteminizde Autodesk'in sadece AutoCAD ürünü kuruluysa bu işlemleri yapın.

Bu yapılan işlemler istenmeyen sonuçlar doğurabilir o yüzden sorumluluk size aittir.

İlgili Linkler:

Everything programı: https://www.voidtools.com/tr-tr
RegSeeker programı: http://www.hoverdesk.net

Kanalımı desteklemek ve ayrıcalıklardan yararlanmak için kanalıma KATILın:

https://www.youtube.com/channel/UCcBmnrbZrb7eH0l6OJQXo5g

29 Mart 2022 Salı

AutoCAD VBA #28. Çizgiye Nokta-4

Youtube koni açınımları videolarında kullandığım çizgiye nokta VBA makrosunun geliştirmeye devam ediyorum.

Makro çalıştırıldığında bir çizgi seçilerek çizginin uzunluğu alınır. Sonra bir çizgi daha seçilir 2. seçilen çizgiye 1. çizgi uzunluğu mesafesinde nokta konulur.

Bu videoda makro kodları geliştirildi. Komutun 1. aşamasında çizgi ile beraber yay, daire ve polyline çizgilerinin uzunlukları uzunluk değeri olarak alınıyor. Uzunluk değeri alınan çizgi uzunluğu kadar mesafede çizgi, yay, daire, elips, spline ve polyline nensesine nokta konuluyor.

CizgiyeNokta makrosunu komut satırından çalıştırmak için Autocad'de CN komutu oluşturulur. CN komutunu oluşturmak için CN_komutu prosedürünün bir kere çalıştırılması yeterlidir.

19 Mart 2022 Cumartesi

AutoCAD VBA #27. Çizgiye Nokta-3

Youtube koni açınımları videolarında kullandığım çizgiye nokta VBA makrosunun geliştirmeye devam ediyorum.

Makro çalıştırıldığında bir çizgi seçilerek çizginin uzunluğu alınır. Sonra bir çizgi daha seçilir 2. seçilen çizgiye 1. çizgi uzunluğu mesafesinde nokta konulur.

Bu videoda makro kodları geliştirildi. Komutun 1. aşamasında çizgi ile beraber yay, daire ve polyline çizgilerinin uzunlukları uzunluk değeri olarak alınıyor.

CizgiyeNokta makrosunu komut satırından çalıştırmak için Autocad'de CN komutu oluşturulur. CN komutunu oluşturmak için CN_komutu prosedürünün bir kere çalıştırılması yeterlidir.

Videoda kullanılan kodlar:

Devamını oku

13 Mart 2022 Pazar

AutoCAD VBA #26. Çizgiye Nokta-2

Bu videoda Youtube kanalımda koni açınımları videolarında kullandığım çizgiye nokta VBA makrosunun geliştirilmesi açıklandı.
Makro çalıştırıldığında bir çizgi seçilerek çizginin uzunluğu alınır. Sonra bir çizgi daha seçilir 2. seçilen çizgiye 1. çizgi uzunluğu mesafesinde nokta konulur.

Bu videoda makroya Uzunluk ve Çıkış seçenekleri eklendi.
Uzunluk seçeneği ile nokta konulacak mesafe değeri klavyeden girilebiliyor.
CizgiyeNokta makrosunu komut satırından çalıştırmak için Autocad'de CN komutu oluşturulur. CN komutunu oluşturmak için CN_komutu prosedürünün bir kere çalıştırılması yeterlidir.

Videoda kullanılan kodlar:

Devamını oku

3 Mart 2022 Perşembe

AutoCAD VBA #25. Çizgiye Nokta-1

Youtube kanlımda koni açınımlarında kullandığım çizgiye nokta VBA makrosu.

Makro çalıştırıldığında bir çizgi seçilerek çizginin uzunluğu alınır. Sonra bir çizgi daha seçilir 2. seçilen çizgiye 1. çizgi uzunluğu mesafesinde nokta konulur. MEASURE komutunun işlevine biraz benzer.

CizgiyeNokta makrosunu komut satırından çalıştırmak için Autocad'de CN komutu oluşturulur. CN komutunu oluşturmak için CN_komutu prosedürünün bir kere çalıştırılması yeterlidir.

Makro kodları:

Devamını oku

26 Şubat 2022 Cumartesi

AutoCAD ile Açınım Çizimi #16. Tabana Eğik Kesik Koni Açınımı-2

Bu videoda tabana eğik kesik koni açınım çizimi açıklandı. Koni alt ve üst taraftan tabana eğik olarak kesilmiştir.

AutoCAD ile Açınım Çizimi: https://youtube.com/playlist?list=PLte7FEGCpudP1OGb0A8D3Qb8EG0W5z6iV

Videodaki VBA kod: https://mesutakcan.blogspot.com/2022/03/autocad-vba-25-cizgiye-nokta-1.html

17 Şubat 2022 Perşembe

AutoCAD ile Açınım Çizimi #15. Tabana Eğik Kesik Koni Açınımı-1

Bu videoda tabana eğik kesik koni açınım çizimi açıklandı.

Sonraki videoda diğer koni açınımı açıklanacak.

AutoCAD ile Açınım Çizimi: https://youtube.com/playlist?list=PLte7FEGCpudP1OGb0A8D3Qb8EG0W5z6iV

Videodaki VBA kod: https://mesutakcan.blogspot.com/2022/03/autocad-vba-25-cizgiye-nokta-1.html

Sayfalar

21 Ağustos 2024 Çarşamba

10 Aralık 2023 Pazar

8 Aralık 2023 Cuma

18 Kasım 2023 Cumartesi

14 Ekim 2023 Cumartesi

12 Ekim 2023 Perşembe

Yöntemlerin avantaj ve dezavantajları

Erken bağlama:

Geç bağlama:

11 Ekim 2023 Çarşamba

10 Ağustos 2022 Çarşamba

7 Ağustos 2022 Pazar

AÇIKLAMA

25 Temmuz 2022 Pazartesi

24 Temmuz 2022 Pazar

YOUTUBE KANALIMDAKİ OYNATMA LİSTELERİM:

23 Temmuz 2022 Cumartesi

AÇIKLAMA

29 Nisan 2022 Cuma

Çizim kontrolü:

13 Nisan 2022 Çarşamba

29 Mart 2022 Salı

19 Mart 2022 Cumartesi

13 Mart 2022 Pazar

3 Mart 2022 Perşembe

26 Şubat 2022 Cumartesi

17 Şubat 2022 Perşembe