AutoCAD ile VBA Makro #8. Yıldız

AutoCAD VBA makro kodlarıyla yıldız çizen kodlar videolarda açıklandı.

Yıldız 1

Yıldız 2-1

Yıldız 2-2

Yıldız 3

Yıldız 4

Yıldız 5

Yıldız 6,7,8,9

AutoCADde daireye istenilen açıda teğet çizgi çizme teknikleri. Video

Daireye istenilen açıda teğet çizgi çizmek için 5 farklı yöntemi 8 örnek çizim üzerinde kullandım.

Kullanılan yöntemler:

1. Verilen açı ile teğet noktasını bularak.
2. Merkezden çizilen açılı çizginin paraleli alınarak.
3. UCS istenilen açı kadar döndürülerek.
4. SNAPANG açısı ile.
5. PARAMETRIC / Geomconstraint ile.

QuickBasic - 25: Klavye kullanımı

Yayınlama: 7 Ağustos 2020

Bilgisayarda girdi birimi olarak kullanılan donanımlardan en çok kullanılanı klavye ve faredir.
QuickBasic ile kullanıcının klavye girdisi sağlayabileceği gibi klavye tuş vuruşları da takip edilip kontrol edilebilir.

Klavye ile veri girişi

INPUT, LINE INPUT

Klavyeden girilen karakterleri değişken(ler)e aktarır. Ayrıntı için: 3: Değişkenlere veri aktarma

INKEY$

Klavyede basılan bir tuşun bir veya iki baytlık bir dize(string) değerini verir.

Klavyeden tuşlara basıldığında tuş bilgileri klavye ara belleğine(tampon) aktarılır.

PLAY komutunda olduğu gibi tampondaki sıraya göre tuş vuruşları bilgisayara iletilerek değerlendirilir.

Tamponda bekleyen bir karakter yoksa INKEY$ boş olacaktır.

Tek karakterlik bir dize, klavyeden okunan gerçek tuş karakteri içerirken, iki karakterli bir dize, ilk karakteri 0 olan genişletilmiş bir kodu belirtir. F1-F12, imleç yön tuşları, home, end... Nümerik klavye tuşları... vb.

Tek başına basılan CTRL, ALT, SHIFT, CAPS LOCK, NUM LOCK, SCROLL LOCK tuşlarını algılamaz.

Aşağıdaki kodları deneyin.

QuickBasic - 16: Grafik işlemleri-4

Yayınlama: 11 Temmuz 2020

LINE

Ekranda belirtilen 2 koordinat noktası arasına çizgi, dikdörtgen veya içi dolu dikdörtgen çizer.

Kullanımı:

LINE [[STEP] (x1,y1)]-[STEP] (x2,y2) [,[renk][,[B[F]][,stil]]]

(x1,y1) : Çizginin başlangıç noktası. (x1,y1) belirtilmediğinde bir önceki komutun aktif noktası alınır. Bir öncesinde nokta ile ilgili bir komut yoksa ekranın orta noktası alınır.

SCREEN 12
LINE -(0,0) 'ekranın orta noktasından 0,0 noktasına çizgi çizer

(x2,y2) : Çizginin bitiş noktası

STEP : Bir önceki çizim komutunun noktası 0,0 noktası olarak referans alınır. Göreceli koordinat sistemi içindir.

renk: Çizgi ya da dolgu rengi

B : Çapraz köşeleri (x1 , y1) ve (x2 , y2) olan dikdörtgeni çizer

BF : Çapraz köşeleri (x1 , y1) ve (x2 , y2) olan içi renk ile dolu dikdörtgeni çizer.

stil : Çizgi stili. Düz, noktalı veya kesik çizgi. BF kullanıldığında stil dikkate alınmaz.

Örnek 1:

SCREEN 7
CLS
LINE (0, 10)-(100, 10), 12
'(0,10) ile (100,10) arası türkuaz çizgi

LINE -(50, 60), 13
'x1,y1 belirtilmediği için
'önceki çizginin x2,y2 (100,10) değerleri alındı
'(100,10) ile (50,60) arasına kırmızı çizgi

LINE -(0, 10), 14
'(50,60) ile (0,10) arasına sarı çizgi

Örnek 2: