Merhaba,

İlk yazım olarak sizlerle, ilk yazdığım Lisp’lerden birini paylaşmak istedim. Programın amacı yaptığınız bir çizimde, sizin belirlediğiniz alandaki yazıları taramak ve bulduklarında dört işlem gerçekleştirmek. Bu lisp’i yapma amacım; tüm çizimi bitirdikten sonra verdiğim belki de yüzlerce kot değerinin, referans noktasını hatası nedeniyle değişmesi gerektiğiydi. Bu değerleri tek tek değiştirmek epeyce uzun süreceğinden, bu Lisp’i yazdım. Belki sizinde işinize yarayacaktır.

Öncelikle, programı tanımlayalım. Komut kısayolunu “cx” olarak ayarladım çünkü yazımı kolay. Genelde birbirine yakın ve kısayol atanmamış kodlar tercih ediyorum.

Liste-1

Sıradaki işimiz, programın tüm çizimi taramak yerine, kendi belirlediğimiz alanda çalışması için bir poligon yardımıyla alan oluşturmak ve bu alandaki yazı cisimlerini taramak.
Burada dikkat edilmesi gereken husus tıkladıpımız son noktanın ilkini de kapsayacak şekilde olması, aksi takdirde poligon oluşmuyor.
Bunun için; aşağıdaki satırları oluşturdum.

Liste-2

Burda amaç sizin istediğiniz sayıda ve geometride seçeceğiniz noktaları kullanarak kapalı bir alan oluşturmak ve bu alan içerisindeki “E” katmanındaki {örnekte E kullandım siz (cons 8 “E”) yazan satıra istediğiniz ismi girebilirisiniz} yazı cisimlerini sspoint değişkeninde listeleyerek veritabanına almak. Komutu biraz incelerseniz nasıl çalıştığını anlayacaksınız.

Şimdi veritabanına alınan cisimlerin sayısını bir değere atamalıyız ki; az sonra yaratacağımız döngünün tekrar sayısını sisteme girebilelim. Yapmamız gereken, oluşturduğumuz sspoint listesinin uzunluğunu ölçtürecek komutu yazmak

Liste-3

Eğer oluşturduğumuz kapalı alanda yazı cisimleri varsa “ssl” değişkeni bir doğal sayı olacaktır. Bu değeri kullanarak bir döngü oluşturalım.

Liste-4
Bu döngüdeki işlem değerden “0.30” çıkarmak. Siz bunu istediğiniz gibi değiştirebilirsiniz.
Burada unutmamız gereken nokta şu; eğer yazı cismi sayı değilde harflerden oluşuyorsa programın işe yaramayacağıdır. O yüzden sayı olarak girdiğimiz yazı cisimlerinin ayrı bir katmanda olması önemli.
Son olarak parantez eşitliğini sağlayarak programı sonlandıralım.

Liste-5

Komutları kendiniz yazıp Autocad’de adım adım çalıştırarak çalışırsanız herşeyi çok daha net anlayacaksınz. Mesela, programın sadece poligon kısmını yazıp çalıştırın ve değerleri kontrol edin. Daha sonra yazı cisimleri listesini oluşturun vs.. Adım adım gitmek her zaman daha sağlıklı olacaktır.

Kolay gelsin.

İlgili Dosya:

• 4islem.lsp

Benzer Yazılar

• Command : _WIPEOUT
• SOLID yüzeylerinin alan bilgisini almak…
• Picasa 2
• Paftalarda Render ve Çizimi Birlikte Basmak
• AutoLISP: Alt programlarla veri alışverişi

689 defa okunmuş Bu hafta: 9 defa okunmuş Bugun: 2 defa okunmuş Son okunma: 11 October 2008, 3:50

AutoLISP, Programlama

(2 votes, average: 5 out of 5)

 Loading ...