mekanik tesisat ısıtma ve soğutma için boru çapı verme

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 443, Üye: 1
nokta28

Detaylar »

Forumlar > AutoLISP > mekanik tesisat ısıtma ve soğutma için boru çapı verme

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
25.07.2007 08:43 24750	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
mekanik tesisat ısıtma ve soğutma için boru çapı veren lisp bu lisp ler abaklardan yararlanılarak soğutma için dt 4 - 5 - 6 derece ısıtma için dt 10 - 15 - 20 derece için çap vermektedir. her dt için ayrı lisp yazılmıştır... bu lisplerin kullanılabilmesi için hat yüklerinin (örnek Qc=1000W ) standar olarak yazılmalıdır. yani baştan 3 karakter ve sondan 1 karakter silerek hesaba tabi tutmaktadır. soğutma için dt 4 derece çalıştırma kodu fc4 Kod: ;Bu kodlar dt 4 dereceye göre soğutma boru çaplarının tespiti için abaklardan yararlanarak hazırlanmıştır. ;hazırlayan: miyatu 25/07/2007 ;iletişim: (defun c:fc4 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 4 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 2500) (setq cp (strcat "3" "/" "4")) ) ((<= td 4700) (setq cp (strcat "1")) ) ((<= td 10000) (setq cp (strcat "1" " " "1" "/" "4")) ) ((<= td 15000) (setq cp (strcat "1" " " "1" "/" "2")) ) ((<= td 30000) (setq cp (strcat "2")) ) ((<= td 50000) (setq cp (strcat "2" " " "1" "/" "2")) ) ((<= td 90000) (setq cp (strcat "3")) ) ((<= td 180000) (setq cp (strcat "4")) ) ((<= td 350000) (setq cp (strcat "5")) ) ((<= td 580000) (setq cp (strcat "6")) ) ((<= td 1050000) (setq cp (strcat "8")) ) ((<= td 1700000) (setq cp (strcat "1" "0")) ) ((<= td 2500000) (setq cp (strcat "1" "2")) ) ) (setq td1 (rtos td 2 0)) (setq gen (strcat "Qc" "=" td1 "W" "-" cp "''")) (setq p1 (getpoint "\nYazdırmak için bir nokta seçiniz:")) (setq p2 (polar p1 1.5708 10)) (command "text" p1 "" "0" gen "") (setq gen (strcat "Qc" "=" td1 "W")) (command "text" p2 "" "0" gen "") ) soğutma için dt 5 derece çalıştırma kodu fc5 Kod: ;Bu kodlar dt 5 dereceye göre soğutma boru çaplarının tespiti için abaklardan yararlanarak hazırlanmıştır. ;hazırlayan: miyatu 25/07/2007 ;iletişim: (defun c:fc5 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 4 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 3000) (setq cp (strcat "3" "/" "4"))) ((<= td 5700) (setq cp (strcat "1"))) ((<= td 12500) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 19000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 36000) (setq cp (strcat "2"))) ((<= td 63000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 110000) (setq cp (strcat "3"))) ((<= td 220000) (setq cp (strcat "4"))) ((<= td 440000) (setq cp (strcat "5"))) ((<= td 720000) (setq cp (strcat "6"))) ((<= td 1300000) (setq cp (strcat "8"))) ((<= td 2100000) (setq cp (strcat "1" "0"))) ((<= td 3000000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat "Qc" "=" td1 "W" "-" cp "''")) (setq p1 (getpoint "\nyazdırmak için bir nokta seçiniz:")) (setq p2 (polar p1 1.5708 10)) (command "text" p1 "" "0" gen "") (setq gen (strcat "Qc" "=" td1 "W")) (command "text" p2 "" "0" gen "") ) soğutma için dt 6 derece çalıştırma kodu fc6 Kod: ;Bu kodlar dt 6 dereceye göre soğutma boru çaplarının tespiti için abaklardan yararlanarak hazırlanmıştır. ;hazırlayan: miyatu 25/07/2007 ;iletişim: (defun c:fc6 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 4 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 3900) (setq cp (strcat "3" "/" "4"))) ((<= td 7200) (setq cp (strcat "1"))) ((<= td 15000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 22000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 43000) (setq cp (strcat "2"))) ((<= td 76000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 130000) (setq cp (strcat "3"))) ((<= td 265000) (setq cp (strcat "4"))) ((<= td 520000) (setq cp (strcat "5"))) ((<= td 850000) (setq cp (strcat "6"))) ((<= td 1550000) (setq cp (strcat "8"))) ((<= td 2450000) (setq cp (strcat "1" "0"))) ((<= td 3500000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat "Qc" "=" td1 "W" "-" cp "''")) (setq p1 (getpoint "\nyazdırmak için bir nokta seçiniz:")) (setq p2 (polar p1 1.5708 10)) (command "text" p1 "" "0" gen "") (setq gen (strcat "Qc" "=" td1 "W")) (command "text" p2 "" "0" gen "") ) ısıtma için dt 10 derece çalıştırma kodu fh10 Kod: ;Bu kodlar dt 10 dereceye göre ısıtma boru çaplarının tespiti için abaklardan yararlanarak hazırlanmıştır. ;hazırlayan: miyatu 25/07/2007 ;iletişim: (defun c:fh10 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 4 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 1850) (setq cp (strcat "1" "/" "2"))) ((<= td 6800) (setq cp (strcat "3" "/" "4"))) ((<= td 12800) (setq cp (strcat "1"))) ((<= td 26000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 39000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 75000) (setq cp (strcat "2"))) ((<= td 130000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 230000) (setq cp (strcat "3"))) ((<= td 460000) (setq cp (strcat "4"))) ((<= td 900000) (setq cp (strcat "5"))) ((<= td 1400000) (setq cp (strcat "6"))) ((<= td 2500000) (setq cp (strcat "8"))) ((<= td 4200000) (setq cp (strcat "1" "0"))) ((<= td 6000000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat "Qh" "=" td1 "W" "-" cp "''")) (setq p1 (getpoint "\nyazdırmak için bir nokta seçiniz:")) (setq p2 (polar p1 1.5708 10)) (command "text" p1 "" "0" gen "") (setq gen (strcat "Qh" "=" td1 "W")) (command "text" p2 "" "0" gen "") ) ısıtma için dt 15 derece çalıştırma kodu fh15 Kod: ;Bu kodlar dt 15 dereceye göre ısıtma boru çaplarının tespiti için abaklardan yararlanarak hazırlanmıştır. ;hazırlayan: miyatu 25/07/2007 ;iletişim: (defun c:fh15 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 4 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 2750) (setq cp (strcat "1" "/" "2"))) ((<= td 10000) (setq cp (strcat "3" "/" "4"))) ((<= td 19000) (setq cp (strcat "1"))) ((<= td 39000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 59000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 114000) (setq cp (strcat "2"))) ((<= td 194000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 340000) (setq cp (strcat "3"))) ((<= td 690000) (setq cp (strcat "4"))) ((<= td 1340000) (setq cp (strcat "5"))) ((<= td 2150000) (setq cp (strcat "6"))) ((<= td 4000000) (setq cp (strcat "8"))) ((<= td 6250000) (setq cp (strcat "1" "0"))) ((<= td 8500000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat "Qh" "=" td1 "W" "-" cp "''")) (setq p1 (getpoint "\nyazdırmak için bir nokta seçiniz:")) (setq p2 (polar p1 1.5708 10)) (command "text" p1 "" "0" gen "") (setq gen (strcat "Qh" "=" td1 "W")) (command "text" p2 "" "0" gen "") ) ısıtma için dt 20 derece çalıştırma kodu fh20 Kod: ;Bu kodlar dt 20 dereceye göre ısıtma boru çaplarının tespiti için abaklardan yararlanarak hazırlanmıştır. ;hazırlayan: miyatu 25/07/2007 ;iletişim: (defun c:fh20 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 4 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 3500) (setq cp (strcat "1" "/" "2"))) ((<= td 13600) (setq cp (strcat "3" "/" "4"))) ((<= td 25600) (setq cp (strcat "1"))) ((<= td 52500) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 79000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 153000) (setq cp (strcat "2"))) ((<= td 259000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 460000) (setq cp (strcat "3"))) ((<= td 930000) (setq cp (strcat "4"))) ((<= td 1800000) (setq cp (strcat "5"))) ((<= td 2850000) (setq cp (strcat "6"))) ((<= td 5150000) (setq cp (strcat "8"))) ((<= td 8250000) (setq cp (strcat "1" "0"))) ((<= td 11500000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat "Qh" "=" td1 "W" "-" cp "''")) (setq p1 (getpoint "\nyazdırmak için bir nokta seçiniz:")) (setq p2 (polar p1 1.5708 10)) (command "text" p1 "" "0" gen "") (setq gen (strcat "Qh" "=" td1 "W")) (command "text" p2 "" "0" gen "") ) benim işime yarıyor inş. herkezin işine yarar... miyatu (25.07.2007 10:37 GMT) Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

05.10.2007 22:58 27666	xkokarcax Girişimci 11 ileti öğretmen manisa
verdiğiniz lispler için çok teşekkür ederim... böyle güzel bir siteye iyiki üye olmuşum. çalışmalarınızda bol kazançlar ve başarılar diliyorum... :) şimdi gelelim benim derdime. yukarıdaki lispler çok güzel ama ben projelerimde boru çaplarını soğutmada ; ÖRN: 1200 kg/h-1/2" ,ısıtmada ise ÖRN: 2000-1/2" şeklinde yazmak zorundayım. buna bağlı olarak yukarıda lispleri kullanamıyorum. acaba bu lispleri soğutmada boşluktan önceki sayıyı, ısıtmada da "-" önceki sayıyı dikkate alacak şekilde toplama yapıp sonucuda benim toplanması için seçtiğim çap yazıları ile aynı formatta ve aynı layer,yazı tipi,yazı yüksekliğinde yazabilecek hale dönüştürebilirmisiniz rica etsem. bunlarda vereceğiniz çap atlama aralığı önemli değil.rastgele aralıklar belirleyebilirsiniz, onları düzenleyebilirim ama lispleri tarif ettiğim hale getirmeye benim çapım yetmedi açıkcası... :) şimdiden ilginize teşekkürler.

06.10.2007 06:30 27673	ehya Yönetici 3554 ileti Teknik Ressam Ankara
İyi de arkadaşım, ben sizin bu mesleki dilinizden anlamıyorum. Nereye neyi yazdırcan... Lispde gördüğüm kadarıyla metin yazan yer Qh=10W-12 gibi birşey yazdırılmak istenmiş. Burada sen girilmesi gereken değeri elle mi girmek istiyorsun. Ya da sen sadece yukarıda yazdığın gibi 1200 yazıp geri kalanının lisp tarafından mı yapılmasını istiyorsun?? Dediğim gibi bu size özel bi lisp, nasıl kullanıldığını benim gibi mimari çizen birisi bilmez :)

09.10.2007 23:42 27868	xkokarcax Girişimci 11 ileti öğretmen manisa
ehya benim istediğm yukarıda ki lisplerden sogutma çaplandırması için kullnılanı (ilk 3 lisp), Qc=1000W textindeki 1000 rakamını baz alarak çaplandırma yapmasın da; 1000 kg/h-1" textindeki 1000 rakamını baz alarak çaplandırma yapsın. son üç lisp ise yani ısıtma için olanı da, Qc=1000W textindeki 1000 rakamını baz alarak çaplandırma yapmasın, 1000-1/2" textindeki 1000 rakamını baz alarak çaplandırma yapsın. yani yukarıdaki soğutma için olan lispler; 1000 kg/h-3/4", 50000 kg/h-11/4" gibi değişik sayıda karaktere sahip olan textleri seçtiğm zaman sadece 1000 kg/h-3/4" deki 1000 sayısına göre işlem yapsın (burdaki 1000 sayısı sadece örnek, 200' de olabilir 2000 de olabilir herhangi farklı basamak sayısınde bir sayıda olabilir) ısıtmada ise aynı şekilde farklı sayılar olabilecek ve dolayısı ile farklı basamak sayılarına sahip olabilecek 2750-21/2" textinde olduğu gibi 2750 sayısını baz alarak işlem yapabilecek şekilde yukarıdaki lispleri değiştirmeni istiyorum sadece. özetlemek gerekirse ;soğutma için olan lispler 3000 kh/h-11/2" textinde sadece boşluktan önceki rakamı dikkate alacak.ısıtma için olan lispler ise 451253-21/1" textinde sadece - işaretinden(tire işaretinden) önceki rakamı baz alarak işlem yapacak. yukarıdaki lispleri bu şekilde düzenleyebilirsen çok işime yarayacak. ilginiz için teşekkürler. iyi çalışmalar...

22.11.2007 09:35 29894	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
slm arkadaşlar... uzun zamandır çok yoğun olduğum için siteye zaman ayıramadım... isteklerinizi yeni gördüm... yapmış olduğunuz isteği çok iyi anladım ve bu isteğinizi yerine getirebilirim ama dediğim gibi şu sıralar çok yoğunum boş bir vakitte isteğinizi yerine getirmeye çalışırım... kolay gelsin... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

30.11.2007 21:30 30273	xkokarcax Girişimci 11 ileti öğretmen manisa
ilgin için teşekkürler miyatu. sanada kolay gelsin ... :))

18.01.2008 13:55 31833	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
istediğiniz şekle dönüştürdüm sanırım biraz geç oldu ama kusura bakmayın artık... Kod: ;hazırlayan: miyatu 25/07/2007 ;iletişim: miyatu@gmail.com (defun c:fc5 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 1 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükü seçiniz:")) ) (setq cp 0) (cond ((<= td 3000) (setq cp (strcat "3" "/" "4"))) ((<= td 5700) (setq cp (strcat "1"))) ((<= td 12500) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 19000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 36000) (setq cp (strcat "2"))) ((<= td 63000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 110000) (setq cp (strcat "3"))) ((<= td 220000) (setq cp (strcat "4"))) ((<= td 440000) (setq cp (strcat "5"))) ((<= td 720000) (setq cp (strcat "6"))) ((<= td 1300000) (setq cp (strcat "8"))) ((<= td 2100000) (setq cp (strcat "1" "0"))) ((<= td 3000000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat td1 "kg/h" "-" cp "''")) (setq p1 (entsel "\nDeğişecek yazıyı seçiniz seçiniz:")) (command "change" p1 "" "" "" "" "" "" gen "") (setq p2 (getpoint "\n yazmak için bir nokta seçiniz:")) (setq gen (strcat "Qc" "=" td1 "W")) (command "text" p2 "10" "0" gen "") ) Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

01.02.2008 06:45 32459	kokarca Yeni üye 1 ileti teknik öğretmen ankara
çok teşekkür ederim miyatu harikasınnnnnnnnn :)

01.04.2008 07:21 35150	alirizasahin Kıdemli Uzman 118 ileti Makina Mühendisi
miyatu arakadaşım emeğine sağlık öncelikle. Yalnız ben autocadde lisp denilen şeylerle yeni tanışıyorum. Lisplerin nasıl yüklendiği konusunda siteden bilgi aldım.Mekanik tesisat ısıtma ve soğutma için boru çapı veren lisp'i yüklüyorum ancak bir türlü çalıştıramıyorum. Nasıl çalıştırılacağı konusunda adım adım bilgi verirseniz çok memnun olacağım. Tekrar teşekkürler

23.04.2008 16:26 36032	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
Miyatu cok guzel çalışmalar ama bi ricada benden olcak.Acaba mekanik tesisatta genellikle kcal/h hesabıyla çalışıyoruz mesela 17000 kcal/h lik bi texte tıklayıp hemen yanına aynı yukseklıkte sadece 1" diye yazabilirmiyiz:P cok sey istedim gibi geldi hem W hesabını kcal/h a çevirmek hemide text sıralmasını değiştirmek olmasa bile eline sağlık teşekkürler aslında azıcık bılgımle yaptım bılen bırı kontrol edermı acaba ;hazırlayan: miyatu 25/07/2007 ;iletişim: miyatu@gmail.com (defun c:fc5 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 1 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükü seçiniz:")) ) (setq cp 0) (cond ((<= td 6000) (setq cp (strcat "3" "/" "4"))) ((<= td 12000) (setq cp (strcat "1"))) ((<= td 24000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 40000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 75000) (setq cp (strcat "2"))) ((<= td 160000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 270000) (setq cp (strcat "3"))) ((<= td 450000) (setq cp (strcat "4"))) ((<= td 700000) (setq cp (strcat "5"))) ((<= td 1200000) (setq cp (strcat "6"))) ((<= td 2500000) (setq cp (strcat "8"))) ((<= td 6000000) (setq cp (strcat "1" "0"))) ((<= td 12000000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat td1 "kcal/h" "-" cp "''")) (setq p1 (entsel "\nDeğişecek yazıyı seçiniz seçiniz:")) (command "change" p1 "" "" "" "" "" "" gen "") (setq p2 (getpoint "\n yazmak için bir nokta seçiniz:")) (setq gen (strcat "Qc" "=" td1 "W")) (command "text" p2 "10" "0" gen "") ) waytooraider (23.04.2008 16:45 GMT)

24.04.2008 07:23 36047	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
yaptığınız değişiklik doğrudur çalışmalarınızda başarılar dilerim Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

24.04.2008 15:38 36080	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
Miyatu ben bu lıspte 60000kcal/h ı ınc e ceırınce 600000kcal/h-5" yazıyor burda sorun yok ama 600000 nı cevırmek ıstersem 600-3/4" yazıyor burdakı ınce ayarı nasıl yapabılırım yanı 600000 e tıklayınca 600000 kcal/h-5"olmasını saglamak ıcın lısp kmutunda degıstırılmesı gereken yer neresı ve mantıgı ne yardımın ıcın cok tesekkur kıtaplardan arastırdı ama daha ısın ehlı degılım:P

25.04.2008 17:47 36111	xkokarcax Girişimci 11 ileti öğretmen manisa
sanırım mekanikciler için bir devrim oldu herhalde bu lisp. :) valla benim çok işime yarıyor, en nefret ettiğim şey çap verme işidir. amelelik resmen. miyatu ya çooooooooook teşekkürler ve bol kazançlar:) waytooraider arkadaşımın derdini anladım , bendede aynı şey olmuştu ama eminim miyatu bunada çözüm bulur. yardımcı olmak isterdim ama bende çok acemiyim bu lisp işinde :):) ama çalışıyom yakında inşallah çözeceğim bu işide... hadi herkese kolay gelsiin:)

02.05.2008 10:30 36351	alirizasahin Kıdemli Uzman 118 ileti Makina Mühendisi
Arkadaşlar bu lisp denilen şeyi çok seveceğimi sanıyorum. Ancak autocad dosyasını açtıktan ve fc5 komutunu verdikten sonraki uygulamalar nasıl olacak bu konuda bilgi veren olursa çok memnun olurum. Emeği geçen herkese teşekkürler

25.08.2009 12:22 51551	onderylmz Kıdemli Girişimci 32 ileti Mak.Yük.Müh. ANKARA
YANLIŞ ÇALIŞIYO YARDIM ??? ;hazırlayan: miyatu 25/07/2007 ;iletişim: miyatu@gmail.com (defun c:fc5 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 1 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükü seçiniz:")) ) (setq cp 0) (cond ((<= td 6000) (setq cp (strcat "3" "/" "4"))) ((<= td 12000) (setq cp (strcat "1"))) ((<= td 24000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 40000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 75000) (setq cp (strcat "2"))) ((<= td 160000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 270000) (setq cp (strcat "3"))) ((<= td 450000) (setq cp (strcat "4"))) ((<= td 700000) (setq cp (strcat "5"))) ((<= td 1200000) (setq cp (strcat "6"))) ((<= td 2500000) (setq cp (strcat "8"))) ((<= td 6000000) (setq cp (strcat "1" "0"))) ((<= td 12000000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat td1 "kcal/h" "-" cp "''")) (setq p1 (entsel "\nDeğişecek yazıyı seçiniz seçiniz:")) (command "change" p1 "" "" "" "" "" "" gen "") (setq p2 (getpoint "\n yazmak için bir nokta seçiniz:")) (setq gen (strcat "Qc" "=" td1 "W")) (command "text" p2 "10" "0" gen "") )

29.08.2009 09:11 51633	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
Alıntı onderylmz : YANLIŞ ÇALIŞIYO YARDIM ??? ;hazırlayan: miyatu 25/07/2007 ;iletişim: miyatu@gmail.com (defun c:fc5 () (setq td 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 1 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükü seçiniz:")) ) (setq cp 0) (cond ((<= td 6000) (setq cp (strcat "3" "/" "4"))) ((<= td 12000) (setq cp (strcat "1"))) ((<= td 24000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 40000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 75000) (setq cp (strcat "2"))) ((<= td 160000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 270000) (setq cp (strcat "3"))) ((<= td 450000) (setq cp (strcat "4"))) ((<= td 700000) (setq cp (strcat "5"))) ((<= td 1200000) (setq cp (strcat "6"))) ((<= td 2500000) (setq cp (strcat "8"))) ((<= td 6000000) (setq cp (strcat "1" "0"))) ((<= td 12000000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat td1 "kcal/h" "-" cp "''")) (setq p1 (entsel "\nDeğişecek yazıyı seçiniz seçiniz:")) (command "change" p1 "" "" "" "" "" "" gen "") (setq p2 (getpoint "\n yazmak için bir nokta seçiniz:")) (setq gen (strcat "Qc" "=" td1 "W")) (command "text" p2 "10" "0" gen "") ) yanlis derken... lisp calisirken sondan karakter silerek calisir... eger sonunda sileceginiz bir karakter yoksa asagidaki satiri editlemeniz yeterli olacaktir fakat 600000-5'' yazdiktan sonraki degerleri nasil toplatmayi planliyorsunuz suan icin dusunemiyorum... (setq td (+ td (atof (substr tsd 1 (- (strlen tsd) 4))))) xkokarcax ilginize tesekkur ederim... miyatu (29.08.2009 09:19 GMT) Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

29.08.2009 21:46 51640	onderylmz Kıdemli Girişimci 32 ileti Mak.Yük.Müh. ANKARA
600000-5'' VEYA 1113212 kcal/h-6'' formatında yazıldığında lisp çalıişıyor. teşekkür ediyorum . "(setq p2 (getpoint "\n yazmak için bir nokta seçiniz:")) (setq gen (strcat "Qc" "=" td1 "W")) (command "text" p2 "10" "0" gen "") ) " satırlarına anlam veremedim ve de kaldırdım . bir de bu lispe sayıları yazarken sonuç olarak 1.113.212 kcal/h formatı verilebilir ve bu şekilde de girdi durumunda toplana bilir mi ? çalışmalarınızda başarılar dilioyrum. emeğinize sağlık.

03.09.2009 20:11 51769	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
bazı eksıklıklerı olan bu lıspı bıraz daha gelıstırerek tekrar yayınlıyorum ıns. herkesin işine yarar... Kod: ;****************************************************************************************************************** ;****************************************************************************************************************** ;dt 5 dereceye göre sogutma için cap veren lisp... * ;versiyon:2 * ;03.09.09 * ;hazırlayan: miyatu * ;iletişim: miyatu@gmail.com * ;****************************************************************************************************************** ;**************************************************************************************************************** (defun c:fc5() (setq td 0) (initget 1024 "Yeni_yuk_gir") (setq ts (entsel "\n Hat_yukunu_sec \\ Yeni_yuk_gir:<H>")) (if (= ts "yuk_gir") (progn (c:yuk_gir))) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 1 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiğer hat yükü seçiniz:"))) (setq cp 0) (cond ((<= td 6000) (setq cp (strcat "3" "/" "4"))) ((<= td 12000) (setq cp (strcat "1"))) ((<= td 24000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 40000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 75000) (setq cp (strcat "2"))) ((<= td 160000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 270000) (setq cp (strcat "3"))) ((<= td 450000) (setq cp (strcat "4"))) ((<= td 700000) (setq cp (strcat "5"))) ((<= td 1200000) (setq cp (strcat "6"))) ((<= td 2500000) (setq cp (strcat "8"))) ((<= td 6000000) (setq cp (strcat "1" "0"))) ((<= td 12000000) (setq cp (strcat "1" "2")))) (setq td1 (rtos td 2 0)) (setq gen (strcat td1 "kcal/h" "-" cp "''")) (initget 1024 "Yeni_text_yaz") (setq p1 (entsel "\n Degişecek_texti_sec \\ Yeni_text_yaz:<D>")) (if (= p1 "text_yaz") (progn (c:text_yaz))) (setq ed (entget (car p1))) (setq ed (subst (cons 1 gen) (assoc 1 ed) ed )) (entmod ed) (princ)) ;**************************************************************************************************************** ;**************************************************************************************************************** (defun c:yuk_gir() (setq td (atof (getstring "\n Yeni_yuku_gir:"))) (setq cp 0) ;****************************************************************************************************************** ;lıste (watt cinsinden) dt 5 derece sogutmaya göre hazırlanmıstır.diğer işlemler için tabloyu lutfen kendi degerlerıne göre degistir * ;****************************************************************************************************************** (cond ((<= td 6000) (setq cp (strcat "3" "/" "4"))) ((<= td 12000) (setq cp (strcat "1"))) ((<= td 24000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 40000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 75000) (setq cp (strcat "2"))) ((<= td 160000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 270000) (setq cp (strcat "3"))) ((<= td 450000) (setq cp (strcat "4"))) ((<= td 700000) (setq cp (strcat "5"))) ((<= td 1200000) (setq cp (strcat "6"))) ((<= td 2500000) (setq cp (strcat "8"))) ((<= td 6000000) (setq cp (strcat "1" "0"))) ((<= td 12000000) (setq cp (strcat "1" "2")))) ;**************************************************************************************************************** (setq td1 (rtos td 2 0)) (setq gen (strcat td1 "kcal/h" "-" cp "''")) (setq pt (getpoint "\n Text_yazdirmak_icin_bir_nokta_sec:")) (entmake (list (cons 0 "TEXT") (cons 7 (getvar "textstyle"));(getvar "textstyle")yerıne kendı textstyle adını " " arasına yazınız... (cons 8 "ylayer");"ylayer"yerıne kendı layer adını " " arasına yazınız... (cons 10 pt) (cons 1 gen) (cons 50 0.0) (cons 40 (getvar "textsize"))));(getvar "textsize")yerıne kendı text yukseklıgını yazınız... (princ)) ;**************************************************************************************************************** ;**************************************************************************************************************** (defun c:text_yaz() (setq pt (getpoint "\n text_yazdırmak_icin_bir_nokta_sec:")) (entmake (list (cons 0 "TEXT") (cons 7 (getvar "textstyle"));(getvar "textstyle")yerıne kendı textstyle adını " " arasına yazınız... (cons 8 "ylayer");"ylayer"yerıne kendı layer adını " " arasına yazınız... (cons 10 pt) (cons 1 gen) (cons 50 0.0) (cons 40 (getvar "textsize"))));(getvar "textsize")yerıne kendı text yukseklıgını yazınız... (princ)) ;**************************************************************************************************************** ;****************************************************************************************************************** not: sana anlamsız gelen başkaları için cok degerli olabilir ;) ... miyatu (05.09.2009 09:40 GMT) Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

22.04.2010 14:11 57000	sesamoslu Girişimci 6 ileti Makine Resim konstrüksiyon Öğretmeni Ankara
Merhabalar, öncelikle bu engin bilgilerinizle bizlere nasıl faydalı olduğunuzu anlatamam, özel sektörün yoruculuğu altında bizlere çok büyük kolaylıklar sağlıyorsunuz. lispe üniveristede hocadan gelen bi antipatim vardı iş hayatındaki kolaylıklarını görünce bi hayli merak saldım ama hala bi yerlere gelebilmiş değilim :) bu lispi görünce nasıl sevindim bilemzsiniz, uzun süredir mekanik tesisat projelendirmede çalışıyorum, bu lispi kullanmaya başladıktan sonra birkaç değişiklik aklıma geldi ama ben beceremedim, ----- başlangıçta yeni bir yük girilerek veya var olan bir değeri seçip değeri çizime yazdırdık diyelim. sonra bu çizime yazdırdığımız bu yükü misal alt alt 10 kere kopyaladık. sonra kopyaladığımız yüklerinden sectiğimiz kadarını (tıklaya tıklaya veya toplu seçimle) toplayıp bir sonraki yüke tıklayarak değiştirsin eğer tıklayarak değiştireceğimiz bir yük yoksa toplamı yeni bir yere tıklayarak yazdırsın ------ bu şekildeki değişikliği uygulayabilir misiniz. ************************************************************ Karanlıkta dile getirmekten çekindiğiniz hakikat bir gün aydınlıkta işitilecek. ************************************************************

26.04.2010 10:03 57058	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
Alıntı sesamoslu : Merhabalar, öncelikle bu engin bilgilerinizle bizlere nasıl faydalı olduğunuzu anlatamam, özel sektörün yoruculuğu altında bizlere çok büyük kolaylıklar sağlıyorsunuz. lispe üniveristede hocadan gelen bi antipatim vardı iş hayatındaki kolaylıklarını görünce bi hayli merak saldım ama hala bi yerlere gelebilmiş değilim :) bu lispi görünce nasıl sevindim bilemzsiniz, uzun süredir mekanik tesisat projelendirmede çalışıyorum, bu lispi kullanmaya başladıktan sonra birkaç değişiklik aklıma geldi ama ben beceremedim, ----- başlangıçta yeni bir yük girilerek veya var olan bir değeri seçip değeri çizime yazdırdık diyelim. sonra bu çizime yazdırdığımız bu yükü misal alt alt 10 kere kopyaladık. sonra kopyaladığımız yüklerinden sectiğimiz kadarını (tıklaya tıklaya veya toplu seçimle) toplayıp bir sonraki yüke tıklayarak değiştirsin eğer tıklayarak değiştireceğimiz bir yük yoksa toplamı yeni bir yere tıklayarak yazdırsın ------ bu şekildeki değişikliği uygulayabilir misiniz. istediklerinin bir kismini duzenledim ins. isine yarar... Kod: ;*************************************************************************** ;sogutma hatlari icin dt 5 dereceye uygun cap veren lisp * ;hazirlayan : miyatu * ;02.09.2009 Katar * ;miyatu@msn.com * ;versiyon 2,1 * ;************************************************************************* (defun c:fc5 () (setq td 0) (initget 1024 "Yeni_yuk_gir") (terpri) (prompt "Hat yukunu sec \\ Yeni_yuk_gir:<H>") (setq ts (entsel)) (if (= ts "yuk_gir") (progn (c:yuk_gir))) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq td (+ td (atof (substr tsd 1 (- (strlen tsd) 4))))) (setq ts (entsel "\nDiger hat yükü sec:"))) (setq cp 0) ;*********************************************************************** ;tablo dt 5 derece sogutmaya uygun hazirlanmistir diger degerler icin lutfen ;tabloyu degistiriniz. (cond ((<= td 6000) (setq cp (strcat "3" "/" "4"))) ((<= td 12000) (setq cp (strcat "1"))) ((<= td 24000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 40000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 75000) (setq cp (strcat "2"))) ((<= td 160000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 270000) (setq cp (strcat "3"))) ((<= td 450000) (setq cp (strcat "4"))) ((<= td 700000) (setq cp (strcat "5"))) ((<= td 1200000) (setq cp (strcat "6"))) ((<= td 2500000) (setq cp (strcat "8"))) ((<= td 6000000) (setq cp (strcat "1" "0"))) ((<= td 12000000) (setq cp (strcat "1" "2")))) ;******************************************************************** (setq td1 (rtos td 2 0)) (setq gen (strcat td1 "kcal/h" "-" cp "''")) (initget 1024 "Yeni_text_yaz") (terpri) (prompt "Sonucu yazdirmak icin text sec \\ Yeni_text_yaz:<S>") (setq p1 (entsel)) (if (= p1 "text_yaz") (progn (c:text_yaz))) (setq p1 (entget (car p1))) (setq p1 (subst (cons 1 gen) (assoc 1 p1) p1)) (entmod p1)) ;******************************************************************************** (defun c:text_yaz () (setq p1 (getpoint "\n Yazdirmak icin bir nokta sec:")) (while (/= p1 nil) (entmake (list (cons 0 "TEXT") (cons 100 "AcDbEntity") (cons 8 (getvar "clayer"));layer adini (getvar "clayer")yerine " " isaretleri arasina yazabilirsiniz. (cons 100 "AcDbMText") (cons 10 P1) (cons 1 gen) (cons 40 (getvar "textsize"));(getvar "textsize")yerine yazi yuksekligini yazabilirsiniz. (cons 7 (getvar "textstyle"))));yazi style adini (getvar "textstyle") yerine " " isaretleri arasina yazabilirsiniz. (setq p1 (getpoint "\n Yazdirmak icin bir nokta sec:")))) ;******************************************************************************** (defun c:yuk_gir () (setq td (atof (getstring "\n Yeni yuku gir:"))) (setq cp 0) ;*********************************************************************** ;tablo dt 5 derece sogutmaya uygun hazirlanmistir diger degerler icin lutfen ;tabloyu degistiriniz. (cond ((<= td 6000) (setq cp (strcat "3" "/" "4"))) ((<= td 12000) (setq cp (strcat "1"))) ((<= td 24000) (setq cp (strcat "1" " " "1" "/" "4"))) ((<= td 40000) (setq cp (strcat "1" " " "1" "/" "2"))) ((<= td 75000) (setq cp (strcat "2"))) ((<= td 160000) (setq cp (strcat "2" " " "1" "/" "2"))) ((<= td 270000) (setq cp (strcat "3"))) ((<= td 450000) (setq cp (strcat "4"))) ((<= td 700000) (setq cp (strcat "5"))) ((<= td 1200000) (setq cp (strcat "6"))) ((<= td 2500000) (setq cp (strcat "8"))) ((<= td 6000000) (setq cp (strcat "1" "0"))) ((<= td 12000000) (setq cp (strcat "1" "2")))) ;************************************************************************* (setq td1 (rtos td 2 0)) (setq gen (strcat td1 "kcal/h" "-" cp "''")) (setq p1 (getpoint "\n Yazdirmak icin bir nokta sec:")) (while (/= p1 nil) (entmake (list (cons 0 "TEXT") (cons 100 "AcDbEntity") (cons 8 (getvar "clayer"));layer adini (getvar "clayer")yerine " " isaretleri arasina yazabilirsiniz. (cons 100 "AcDbMText") (cons 10 P1) (cons 1 gen) (cons 40 (getvar "textsize"));(getvar "textsize")yerine yazi yuksekligini yazabilirsiniz. (cons 7 (getvar "textstyle"))));yazi style adini (getvar "textstyle") yerine " " isaretleri arasina yazabilirsiniz. (setq p1 (getpoint "\n Yazdirmak icin baska bir nokta sec:")))) (princ "\n SOGUTMA LISPI YUKLENDI CALISTIRMAK ICIN > FC5 < YAZINIZ !!!") Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

> 1 < [2]

Sonraki Sayfa