* E Posta Adresiniz:
* Kodu Girin:

İleti Yazar
10.09.2019 15:30
87598    
kzldagpro

[2] Girişimci

Online Durumu

1 ileti

Merhabalar. İsmim Onur Kızıldağ. Ziraat Yüksek Mühendisiyim. Geniş ölçekli arazilere damla sulama sistemi proje ve motajı yapan bir firmada 8 yıldır görev sürüyorum. Mesleğe başladığımdan beri eski adıyla autocad okulu, yeni adıyla çizim okulu sitesini takip ediyorum. Açıkçası lisp kullanmayı bu site sayesinde öğrendim. Ancak yazmak konusunda hiç bir bilgim yok. Ayrıca Mehmet Şahin Güvercin üstadımızın yazmış olduğu Autolisp Kitabını edindim yazmayı da öğrenmeye çalışacağım. Williams-Hazen sürtünme kaybı eşitliğini autocadde çalışabilecek bir lisp haline getirme imkanımız var mı Gerekli bilgileri aşağıda açıklıyorum.



Autocadde layer-layer çalışıyorum. Her boru hattım için bir layerım var ve layer isimleri aynı aşağıda göründüğü gibi.
50 mm dış çaptan başlayıp 500 mm ye çıkan borular mevcut. Her boru için basınç dayanımı değerleri PN 5,6,6.3,8,10,16,20,25
ve bu her değer için bir iç çap değeri var. İstediğim şey tam olarak,

1. komutu ekrana girdiğimizde önce ekrandan polyline boru bölümünü
seçtirerek uzunluğunu bulup aşağıdaki williams hazen formülünde yerine koyacak ve aynı zamanda çizginin layer isminden lisp içerisine
hazırlanacak tablodan iç çap değerini bulup williams-hazen eşitliğinde yerine koyacak.

2. Q (debi) ve C(katsayı) değerlerini komut girildiğinde polyline boru seçiminden sonra ekranda yaptıracak.

3. Q ve D değerleri akış hızı formülü için de hesaplatılacak.

4. Bilinmeyenler tamamlandığında ve formüldeki değer bulunduğunda "Hf=....... mSS", "V=....m/s" şeklinde boru bölümünün üzerine 2.5 punto olarak yazdıracak.

Williams-Hazen sürtünme kaybı eşitliği

HF=(1,131*10^9)*((Q/C)^1,852)*(D^-4,87)*L

Q=DEĞİŞKEN, komut yazıldığında ekranda giriş yapılacak
C= DEĞİŞKEN komut yazıldığında ekranda giriş yapılacak
D=DEĞİŞKEN=YUKARIDAKİ TABLODA İÇ ÇAP DEĞERİ.SEÇİMİ YAPILAN BORU BÖLÜMÜNÜN LAYER İSMİNDEN KARŞISINDAKİ İÇ ÇAP DEĞERİNİ BULUP İŞLEME ALMASI GEREKİYOR.
L= Boru hattı uzunluğu, m - komut yazıldığında ekrandan seçilecek boru hattı bölümünün uzunluğu

Akış Hızı Formülü
V=353,5*(Q/(D^2))

BORU CİNSİ VE İÇ ÇAP TABLOSU
BORU - LAYER İSMİ DIŞ ÇAP İÇ ÇAP
_D_DN110 UPVC PN10 110 101,6
_D_DN110 OPVC PN10 110 105,2
_D_DN110 HDPE PN10 110 96,8
-
-
-
-
-
-


Eğer bu yazılabilir bir lisp ise bana yardımcı olur musunuz? Ya da en azından yol gösterebilir misiniz?

Not: Excel' de kendi mesleğimle ilgili çok detaylı hesaplama tabloları yaptım. Ancak autocadi aktif olarak kullanmama rağmen
bu konu üzerine eğilemedim. Yardımlarınız Bekliyorum. Şimdiden teşekkür ederim.

10.09.2019 15:49
87599    
yazgunesi

[70] Editör

Online Durumu

583 ileti
Teknik Ressam
Çanakkale

Alıntı

kzldagpro

Açıkçası lisp kullanmayı bu site sayesinde öğrendim. Ancak yazmak konusunda hiç bir bilgim yok.



Ben senin yerinde olsam kesinlikle destan yazardım.. :-) Aşağıda link olarak gözüken sayfaya bakmanızı öneriyorum. Basit örnekler var.



Linkleri görebilmek için ÜYE olmalısınız.

----------------------------------
www.cizimokulu.com

10.09.2019 16:43
87600    
mttlp

[8] Kıdemli Uzman

Online Durumu

114 ileti
Teknik Ressam
ankara

Ücret karşılığında yazılır excellede aktarılır numaralandırılmış tablo seçilde

en sevdiğim komut copy

> 1 <
Copyright © 2004-2019 | Tüm Hakları Saklıdır | 1976 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim