Site İçi Google Destekli Detaylı Arama Motoru

AutoLisp : Autocad Programında Pratik Otomatik Sprink Boru Çapı Atama

    

 Sprinklerde Boru Çaplarınız üzerine yazmak baya zamanımız alır bunuda çözen lisp varmış ,Yabancı forum sitelerinde araştıma yapıyordum yorum olarak sitesde buldum heyecanla sizlere paylaşıyorum .kaynağı belirsiz görünüyor , Yapan kişi bir yabancı olsa gerek yapanın ellerine sağlık çok teşekkür ediyorum.

------------------------------------------------------------------------------------
Not :AutoLisp Hakkında Bilginiz Yok İse Aşağıdaki Bağlantıyı İnceleyiniz Sonra Bu Yazıya Devam Ediniz.
------------------------------------------------------------------------------------- 
Dosyayı Yüklüyoruz :KK.LSP
 Çağırma Kodu :kk
Komut satırına kk yazdıktan sonra tesisatı seçmemizi isteyecek tesisatı seçiyoruz ve entrer tuşuna basıyoruz. Şekil 0 daki gibi algılyacaktır.


 
Şekil A :Çarpılar çıkıyor ise uç noktalarda algılıyor çizim doğru demektir.
Ve bu şekil A dan sonra enter tuşuna basıyoruz otomatik sprinkleri atıyor.
Şekil B :Çaplandırma İşlemi Tamamlanmış Hali


İndirme linki paylaşmadan önce tasarımda dikkat etmemiz gereken nokta vardır branşman hatlarını ana boruya kadar ayrı ayrı çizmemiz gerekmektedir sistemin algılaması ona göre yapılmıştır.Bakınız şekil 1


Şekil 1 : Branşman Tasarım Şekli

Boru çaplandırma tablosunu değiştirmek isteseniz KK.LSP dosyasını açınız boru çaplarını isteder DN ister inç Şeklinde değiştiriniz.  Şekil 2 .


Şekil 2 : Sprink Ayarları Değştirilecek Bölüm Kırmızı Kare İçince

Comut satırına çağırma ismi olan "kk" adını değiştimek isterseniz KK.LSP dosyasını açınız   Şekil 3 deki altı çizili yeri değiştirniz.

Şekil 3 : Çağırma Komutunu Değiştirilmesi


Bu blog paylaşarak tavsiye etmeyi hak etmiyormu sence ?

Yorum Gönder

2 Yorumlar

  1. başka dosyada çalışmıyor lisp

    YanıtlaSil
    Yanıtlar
    1. Çözümolarak Dosya içerisinde verdiğim layer ve sprink tipi ile çiziminizi yapabilirisiniz. Lisp kodlama ile ilgili detaylı bir bilgim yok o konuda kendmi geliştirme yolundayım.

      Sil

Teşekkür ederim