Plan Çizimlerine İç Ölçü veren AutoLisp Fonksiyon

Merhaba arkadaşlar,
Daha önce forum alanımızda paylaştığım bir fonksiyonu, arkadaşlarımızın yoğun ilgisi doğrultusunda geliştirip güncelleyerek tekrar paylaşmak istedim. Plan (betonarme kalıp planları, mimari kat planları,...Vb.) çizimlerinde iç ölçü vermeye yarayan bir fonksiyon.

Fonksiyonun kodu, bu son haliyle çok daha kısalmasına rağmen, yetenkleri daha da arttı, daha kullanışlı oldu. Yazar arkadaşlarımız için iyi bir örnek olabileceğini düşündüğüm için açık kod (AutoLisp Source Code) olarak ilginize sunmak istedim. Yalnızca 40 küsur satırdan oluşan fonksiyonun bu kadar sade ve kısa olmasına rağmen yapabildiklerine şaşıracağınızı tahmin ediyorum.

Fonksiyon çalıştırıldığında, "Ölçü Başlangıç Noktası" seçmenizi ister. ilk nokta seçildikten sonra ikinci nokta, "ölçü bitiş noktası" seçmeniz istenir. Seçeceğiniz ölçülendirme hattı herhangi bir doğrultuda ve açıda olabilir. Bu sırada ekranda çıkan yardımcı çizgi ile, ölçülendirme hattının nereden geçeğini kontrol edebilirsiniz. Bu şekilde plandaki çizim objelerimizin nereden başlayıp nereye kadar ölçülendirilecekleri belirlenmiş olur. Yani planımızın bir ucundan başlayıp diğer ucuna kadar boydan boya ölçülendirmek zorunda değiliz.

Bundan sonra, ölçülendirmeye dahil edilecek objelerimizin (duvar, sıva, kolon, kiriş,... vb.) bulunduğu layer'ları seçmemiz gerekiyor. Yalnızca seçtiğimiz layer(lar)'daki objeler ölçülendirilecektir. Bir tek Layer seçebileceğimiz gibi, birden fazla Layer'da seçebilirsiniz. Bu seçim işlemini, istediğimiz Layer'da yer alan bir objeye tıklayarak yapıyoruz. Seçilen objeler highlight edilirler, seçili Layer'da bir objeye tıklarsanız, ilgili Layer'daki objeler seçim setinden çıkarılır. Enter (veya sağ tuş) girerek seçimizi sonlandırıncaya kadar sınırsız ve özgürce ekleme ve çıkarmalar yapabilirsiniz. Özet olarak, duvardan duvara ölçüler verebileceğimiz gibi, duvarlarla birlikte, mesela aks Layer'ındaki objelerimizi de ölçülendirebiliyoruz. Seçtiğimiz layer(lar)'da yer alan Line, Lwpolyline, Polyline, Spline, Ellipse, Circle ve Arc objeleri ölçülendirilirler. Block'lar ile bunların alt objeleri ile Text gibi objeler ölçülendirmeye dahil edilmezler.

Başlangıç ve bitiş noktaları arasında kalan, fakat o anda (zoom değiştirdiğiniz için) görünen ekranınızın dışındaki bölgede kalan objeler seçilmeyeceklerdir.

Seçim işlemi tamamlandıktan sonra Ölçü serisi ekranınızda belirecek, mouse ile sürükleyip, uygun yere getirip, sol tıklayarak işlemi tamamlamış olacaksınız.

Fonksiyon, geçerli Layer ve geçerli Dimensiyon Style'ı kullanarak ölçülendirme yapar. Kullanıcının, Dimension Style ve Layer düzenine hiç bir şekilde müdahale etmez, AutoCAD ayarlarından hiç birini değiştirmez.

Başlangıç be Bitiş noktalarını seçtikten sonra, Obje (Layer) seçerek seçim setine ekleme ve çıkarmalar yapma işini bitirip çıktığınızda, seçim setiniz boş ise Fonksiyon hata mesajı ile sonlanır.

Ölçü serisi oluşturabilmek için en az bir ölçü, bir ölçü için de 2 nokta gerektiğinden, başlagıç ve Bitim noktalarının oluşturduğu sanal doğru ile, Seçili objelerin 2'den az kesişim noktası varsa Fonksiyon hata mesajı ile sonlanır.

Komut adı: dimint

Keyifle kullanmanız dileklerimle, herkese kolay gelsin...

DimInt.fas dosyası (DimInt.rar) yeniden yüklendi. 31 Mayıs 2016


Bu konu şurada tartışılıyor: Plan Çizimlerine İç Ölçü veren AutoLisp Fonksiyonu Forum Başlığı

Yazar: M. Şahin Güvercin
İçerik: LSP (lisp) formatında uygulaması
Tag:

Şifre Nedir?  |  Nasıl Açılır?  |  Hata Bildir