12.02.2021 11:12    

Kıymetli Hocam,
Elinize, emeğinize sağlık. Çok teşekkür ederim.

20.11.2021 17:50    

Son mesajdan yaklaşık 9 ay sonra tekrar merhaba,
Arkadaşımızın isteği üzerine bir şeyler yazmıştım aslında. Ama paylaşma konusunda, yazımın ilerleyen bölümlerinde açıklamaya çalışacağım tereddütlerim oldu.

Her ne kadar konuyu Forumlar>Acemi AutoLisp başlığı altında açmış olsak ta, Chatintash arkadaşımızın samimi isteği karşısında okur ve yazar arkadaşlarımızın ilk aklına gelen field olmuştur sanıyorum. (Lisp fonksiyonları alıp yükleyip kullanabilenlere okur, kendi Lisp fonksiyonlarını yazabilenlere de yazar diyoruz.) Daha kurnaz arkadaşlarımızın aklına da field ile constraints gelmiştir. Neden olmasın! Madem ilk paylaşımımızda ayrıntılı açıklamalarla başladık, aynı biçimde devam edelim istedim.

Daha önce paylaştığımız fonksiyondaki


bölümündeki polar ifadesinden kurtulmakla başlayalım.

Başlangıçta herkesin kolayına geliyor... AutoCAD'de çizim yaparken uyguladığımız gibi, şununla bunun kesişiştiği noktadan şu kadar yukarı, gibi ifadeler. Önünde sonunda hataya neden olacaklarından, elinize ayağınıza dolanacaklarından hiç kuşkunuz olmasın.

Eğim Yazısı'nı, Eğim Çizgisi'nin ortasından, yazı yüksekliğinin yarısı kadar yukarıya (çizgi açısına 90 derece ekleyerek) yerleştirmeyi hedefliyoruz. Aradığımız noktanın koordinat listesini basit trigonometri bağıntıları kullanarak elde edebiliriz. TiP X koordinatı OnKX-sinAci*(TxH/2), TiP Y koordinatı OnKY+cosAci*(TxH/2) formülleriyle bulunabilir. Düzlemde (2B) çalıştığımıza göre Z koordinatı olduğu gibi kalacaktır.
Lisp kodlarının ilgili bölümü,

şekline gelecektir.

Burada, bir daha ileride kullanmayacağımız OnK (Eğim Çizgisi Orta Noktası) koordinat listesini de doğrudan formül içine koydum. Kod için de bir kereden fazla kullanılmayacak ve hatırlanmasına gerek olmayan hiç bir değeri değişken'e atayarak tutmayınız. Prensibine de uymuş olduk. Gereksiz değişkenler tutmama kuralının bir devamı olarak, AutoCAD ortamından veya başka bir fonksiyondan çağırılmasına gerek olmayan hiç bir değişkeni Global Variable olarak bırakmamak, Local Variable olarak tanımlamak gerektiğini de hatırlatmak isterim.

Öncelikle Eğim Değeri'ni hesaplayalım. Neden Eğim Yazısının Yeri ve Açısından değil de Değeri'inden başladığımızı ileride açıklayacağım. Aradığımız Eğim Değeri, Eğim Çizgisi'nin Başlangıç ve Bitişi arasındaki Farkın Y eksenindeki izdüşümünün X ekseni üzerindeki izdüşümüne bölümü (oranı) olacaktır. Burada X doğrultusundaki ölçeğimizin 1/1000 ve Y doğrultusundaki ölçeğimizin de 1/100 (10'da biri, sayısal değer olarak düşününce 10 katı) olduğunu düşünürsek...
Eğim=(10*DeltaY)/DeltaX olacaktır.

Bundan önce bu değeri hesaplayıp yerine koymuştuk, şimdi field olarak yerine koymayı hedefliyoruz. Field denince o karmaşık formülleri öğrenmek (aslında ezberlemek) gibi bir eziyete hiç gerek yok. Yeter ki, AutoCAD'in bize cömertçe sunduğu bilgilerin farkında olalım ve kullanmasını bilelim. AutoCAD komut satırından field komutunu çalıştırıp örnek bir çizgi (Line) seçtiğimizde.



Şanslıyız! Property bölümünde Delta diye bir özellik var ve sağ taraftaki X, Y ve Z kutucuklarını işaretleyerek; yalnızca X'i, Yalnızca Y'yi, Yalnızca Z'yi, XY'yi, XZ'yi, YZ'yi veya XYZ şeklinde tüm Delta değerlerini (yani Deltalar listesini) elde edebiliyoruz.

Delta-Y kutucuğunu işaretlediğimizde diyalog penceresinin altındaki formülü alıp bir yere koyalım
%<AcObjProp Object(%<\_ObjId 2342671672848>%).Delta \f "%lu2%pt2">%
Burada 2342671672848 yerine fonksiyonumuzda bulunacak (Eğim Çizgisi, Line nesnesi) Object ID gelecek. \f ile başlayan format (biçim) bölümündeki %lu2 Lineer Unit'in Decimal (ondalık sayı) olduğunun, %pt2 de Delta Y'nin alınacağının ifadesidir. O zaman, %pt2 yerine %pt1 koyarak,
%<AcObjProp Object(%<\_ObjId 2342671672848>%).Delta \f "%lu2%pt1">% şeklinde Delta X'i alabiliriz.



Gene Field diyalog penceresinde görüyoruz ki, Object seçmek yerine Formula seçersek,
Genel formülümüz olan (10*DeltaY)/DeltaX formülümüzü buraya girebiliriz.



Formula bölümüne yazdığımız bu formülün DeltaY bölümünü seçip sağ tıkladığımızda açılan menüden "Insert Field" seçerek, yukarıda yaptığımız şekilde DeltaY değerimizi, ama bu sefer Field Formülü altında Field olarak oluşturabiliriz.



Benzer şekilde DeltaX'imizi de field altında field olarak elde edebiliriz.



Evaluate butonuna tıkladığımızda da diyalog penceremizde görüntülenen formül formülünü alıp...
%<\\AcExpr ((10*%<\_FldPtr 2341178126896>%)/%<\_FldPtr 2341178127376>%) \f "%lu2%pr2">%
\f bölümünde %lu2 yukarıda açıklandığı gibi Ondalık Sayı (string'e çevrilmiş) ve %pr2 (precission) de ondalık noktasından sonra 2 basamak yürütüleceğini gösterir. Burada görülen %<\_FldPtr 2341178126896>% yerine yukarıda elde ettiğimiz DeltaY formülünü, %<\_FldPtr 2341178127376>% yerine de DeltaX formülümüzü koyduğumuzda,
%<\\AcExpr ((10*%<AcObjProp Object(%<\_ObjId 2342671672848>%).Delta \f "%lu2%pt2">%)/%<AcObjProp Object(%<\_ObjId 2342671672848>%).Delta \f "%lu2%pt1">%) \f "%lu2%pr2">% şeklinde genel field formülümüzü elde ederiz.

Bu field formülümüzü ilgili Nesnenin (Eğim Yazısı) ilgili ilişki listesi anahtarına (assoc 1 ...) atadığımızda işlem tamamdır.
Association List'in beklediği String türünde bir değer, bizim formülümüzün hem kendi hemde (update field den sonra) ürettiği değer String türünde... bir sıkıntı yok, uygulanabilir ve çalışır.

Elde ettiğimiz formülü (tırnak içine alarak) String'e (karakter dizisine) çevireceğiz. Bilindiği gibi Stringler içinde yer alan \ işareti (control character) kendinden sonra gelen karakter(ler)e değişik anlamlar yükler. Bu nedenle, tırnak içine alırken, \ gördüğümüz yere \\, " gördüğümüz yere de " koymamız gerekecek. Bu biçimde düzenlenmiş karakter dizileri, burada code bracket'i içinde farklı göründükleri için kodlarımızın ilgili bölümünü braketsiz veriyorum.
(entmake (list (cons 0 "TEXT") (cons 10 TiP) (cons 40 TxH)
(cons 1 (strcat "% " "%<\\AcExpr "
"((10.0*%<\\AcObjProp Object(%<\\_ObjId " ObId ">%).Delta "
"\\f "%lu2%pt2">%)/%<\\AcObjProp Object(%<\\_ObjId " ObId
">%).Delta \\f "%lu2%pt1">%) \\f "%lu2%pr2">%"))
(cons 50 aCi) (cons 72 1) (cons 11 TiP)))

Şimdi de göz alışkanlığı olması bakımından Lisp kodumuzun tamamını verelim.


Yukarıda da açıklandığı gibi Lisp'i buradan alıp kullanmak mümkün olmayacak, daha doğrusu hatalı olacaktır.
Buraya Tıklayarak PrPr-01.lsp dosyasını indirip kullanabilirsiniz.

Video için tıklayınız...

Yazımın başında, ileride açıklayacağım, dediğim bölüme geldik.
Eğim Yazımızı bu şekilde field ile bağladık... Gözü kör mü! Açı değerini ve Konumunu da benzer biçimde bağlayalım iş tamam olsun! İşte bu noktada kazın ayağı öyle değil. (assoc 10 ve 11 ) ile ifade edilen koordinat listesi, adı üstünde, 3 tane gerçek sayıdan oluşan bir liste, (assoc 50 ile anahtarlı Açı değeri ise gerçek sayı...
Olsun! field'dan gelen String'i (atof ... 2 2) ile gerçek sayıya çeviririm, olur biter! Diyecek bazı kurnazlar çıkacaktır. Yukarıda özellikle "kendi de string, ürettiği değer de string" diye açıklamıştım. Update Field (mekanizması her neye bağlandıysa) uygulanana kadar field formülümüz string'dir ve entmake işlemi sırasında türü uymadığı için Association List kabul edilmez, hata verir.

"Eeee Hocam! Buraya bağlayacaktın da bizi neden bu kadar yordun..." diyenler çıkacaktır.
Maksadım kimseye eziyet etmek olamaz elbette. Önünü bilip sonunu bilmedikleri için, sıkça karşılaştığımız bir sitem var. "Hocam senin için kolay bir şey... iki satır yazıversen incilerin mi dökülür. Biz yazamıyoruz işte!" Ben de (hatta Biz de) yazamıyoruz... durum bundan ibaret. İyi tarafından bakarsak, bu fonksiyonda olmasa bile başka bir yerde nasıl field bağlanacağı iyice anlaşılmıştır herhalde.

Üzülmeyin! bu işin çözümü var elbette.
Ama sanıldığı gibi Field ile değil Reactor ile. Bunu da o zamanlar yazmıştım, şimdi belli boyutlarıyla paylaşıyorum.




Video için tıklayınız...

İçinde PrPr.vLx dosyasının bulunduğu PrPr.rar dosyasını Buraya Tıklayarak indirebilirsiniz.

Gene duyar gibi oluyorum "Hocam ama bu -.vlx!" diye. Bunun iki nedeni var.

- Reactor'ler konusu biraz hassas bir konu. Kitabımızın yayınından önce burada üstelik açık kod olarak paylaşmıştım.
Buraya tıklayarak görebilirsiniz. Bu paylaşımla ilgili, bir kaç üstadımızın beğenip (imzamda olduğu gibi anlayıp) iltifat ettikleri yorumlardan başka anlamlı tek soru sorulmadı. Zaman zaman Lisp yazarken veya AutoCAD'de bir konuyu araştırırken dönüp dolaşıp kendi kitabımda buluyorum. Reactor'ler, Transformation Marix'ler, Derivation (Türev) gibi konularda o kadar ayrıntıya girmiş, o kadar net yazmışım ki... her seferinde de neredeyse "Aferin bana" diyerek, "Ya ne kadar detaylı, ne kadar açık anlatmışım." diyorum, kendi kendime. Evet kendi kendime... benden başka okuyan yok galiba. :)
- Diğer yandan da Reactor'ler biraz riskli bir alan. Kavramları iyice özümsemeden deneme yanılma yoluyla bulanık suda balık avlamaya çalışanlar için bu risk kat kat fazla elbette. Yapılacak hatalara ve yaşanacak kayıplara katkıda bulunmak ta istemiyorum doğrusu.

Selam ve saygılarımla herkese kolaylıklar dilerim.

22.11.2021 06:37    

Değerli Şahin hocam,
Uzun zaman sonra yine sizi forumda böyle makale değerinde bir yazı ile görmek çok güzel.
Autolisp ile ilgilenen herkesin mutlaka okuması gerekir.
Bu değerli bilgiler için çok teşekkürler..

22.11.2021 10:23    

Alıntı

---

ProhibiT :

---

Adem ERCAN
Hocam ozelden yazdigimi buradan soyleyeyim. Reactor konusunda orneklere ihtiyacimiz var. Evet biraz riskli bir konu ama herhangi bir patlamaya karsilik sorumluluk kendimde olmak uzere kodun acik halini paylasmanizi rica ediyorum. Ozel bir durum yoksa tabi.

22.11.2021 16:44    

Merhaba arkadaşlar. Bir yanlış anlaşma olmaması bakımından, açıklama gereği duydum.

Eskiden, müesseselerin duvarlarında bir tabela asılı olurdu. "Memnuniyetinizi dostlarınıza, şikayetlerinizi müdüriyetimize bildiriniz." Yazılıydı. O zamanlardan beri bu sözü çok severim doğrusu. Bu anlamda Adem arkadaşımızın mesajını iltifat olarak algıladığım için dostlarımızla da paylaşmasını istemiştim. :)

Erkan arkadaşımızın, (kusuruma bakılmasın, kendime yakın gördüğüm için isimlerinizle hitap ediyorum,) aynı minvalde mesajını okuyunca, bu konuya bir açıklama getirmek şart oldu.

Alınan kırılanlar olacaktır... elden bir şey gelmez. "Beğenmek için anlamak lazım" şeklindeki imzamı bir kere daha düşünün. Marifet iltifata tabidir, talebi olmayan marifet zayidir, misali... bunca zamandır apaçık paylaştıklarımın hangisi yerini buldu? Yukarıdaki bir yazımda belirttiğim gibi, yakında Extended Data (XData) konusunda da bir paylaşım hazırlıyorum. Bütün detaylarını açıklayıp, gene açık kod paylaşmayacağımı şimdiden söylemek isterim. Böyle olmasının herkesin iyiliğine olduğunu inanıyorum.

Selam ve saygılarımla herkese kolaylıklar dilerim.

17.12.2021 16:58    

k005

Teşekkür ederim. Samimi ilgin bizim için her zaman değerli olmuştur (Mehmet hocamın da aynı hissiyatta olduğunu düşündüğümden, ... bizim için ... diyorum). Bu başlık altında Linkinde, giriş bölümünde her zaman olduğu gibi açık kaynak kodları ile ve her türlü ayrıntısıyla anlattım, paylaştım. Reactor konusuna gelince, gerek yukarıdaki yazımda verdiğim linkteki örnekte, gerekse kitabımızda bütün detayları var aslında. Bu örnek paylaşımda da, ayrıntısıyla anlattıklarımızdan fazlasını da kullanmadım, ne bir eksik ne fazla. Ben bütün samimiyetimle anlatmaya çalıştıkça, "Ama Hocam!.." diye başlayan, kerameti kendinden menkul (bence doğruluğu ve değeri şüpheli!) kaynaklardan bahsedilerek, farkında olmadan (belki de gayet farkında olarak), kendi ufuklarının sınırı ve tembellikten (hazırcılıktan) kaynaklı, "paylaşımlarımızı değersizleştirme!" yaklaşımları (anlayanları tenzih ederim) benim için hayal kırıklığı oldu hep.

Saygıya bilmukabil saygılarımla...