mekanik tesisat/sihhi tesisat/pissu,sıcak ve soguksu çaplandırma

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 488, Üye: 2
admin, alisezgin

Detaylar »

Forumlar > AutoLISP > mekanik tesisat/sihhi tesisat/pissu,sıcak ve soguksu çaplandırma

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

İleti	Yazar
16.04.2008 10:50 35757	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
sıhhi tesisatta sıcaksu, soğuksu boru ve pissu çaplarını veren lisp bu konu çok değişken olduğu için her yapıda yada ülkede kullanılabilir bir lisp hazırlamak oldukça zaman ve uğraş isteyen bir iştir... aşagıdaki kodlarda birkaç düzenleme yaparak kendi işinize yarayacak hale getirebilirsiniz. yapmanız gereken değişikliklerin nerde ve naıl olması gerektiğini yazmaya çalıştım inş. başarılı olmuşumdur. yük birimlerini yazan lisp... yük birimlerini yazdırmak için text ayarlarınızın (font punta vb..) yapılmış olması gerekir... lisp çalıştırma kodu yb dir.. lisp çalıştıktan sonra sizden vitrifiye kodu isteyecek bu kodlar aşagıdaki listelenmiştir... yük birimleri yapıların türlerine göre değişiklik gösterir bu nedenle lispi çalıştırmadan önce kendi yük birimlerinizi lisp dosyasını açarak; ((= va "W");wc yük birimi için W (setq du (strcat "DU:" "pissu yük birimi")) (setq so (strcat "SO:" "soguk su yük birimi")) (setq si (strcat "SI:" "sıcak su yük birimi")) kırmızı renkli yerlere ilgili yük birimlerini tırnak " " içinde yazmalısınız... wc yük birimi için W lavabo yük birimi için L duş yük birimi için D küvet yük birimi için K bide yük birimi için B pisuvar yük birimi için P bulaşık makinesi yük birimi için BM çamaşır makinesi yük birimi için CM evye yük birimi için E 50 lik süzgeç için S5 70 lik süzgeç için S7 100 lük süzgeç için S10 ------------------------------------------------------------------------------------------------------------------------------------------------- Kod: ;Bu kodlar pissu ve temizsu için yükleme birimlerini yazar. ;hazırlayan: miyatu 21/02/2008 ;iletişim: miyatu@gmail.com (defun c:yb () (setq va (getstring "\n vitrifiye kodunu gir:")) (while (/= va nil) (cond ((= va "W");wc yük birimi için W (setq du (strcat "DU:" "2")) (setq so (strcat "SO:" "0.15")) (setq si (strcat "SI:" "0.0")) ) ((= va "L");lavabo yük birimi için L (setq du (strcat "DU:" "0.3")) (setq so (strcat "SO:" "0.07")) (setq si (strcat "SI:" "0.07")) ) ((= va "D");duş yük birimi için D (setq du (strcat "DU:" "0.4")) (setq so (strcat "SO:" "0.15")) (setq si (strcat "SI:" "0.15")) ) ((= va "K");küvet yük birimi için K (setq du (strcat "DU:" "0.5")) (setq so (strcat "SO:" "0.15")) (setq si (strcat "SI:" "0.15")) ) ((= va "B");bide yük birimi için B (setq du (strcat "DU:" "0.3")) (setq so (strcat "SO:" "0.13")) (setq si (strcat "SI:" "0.13")) ) ((= va "P");pisuvar yük birimi için P (setq du (strcat "DU:" "0.3")) (setq so (strcat "SO:" "0.07")) (setq si (strcat "SI:" "0.07")) ) ((= va "BM");bulaşık makinesi yük birimi için BM (setq du (strcat "DU:" "0.6")) (setq so (strcat "SO:" "0.15")) (setq si (strcat "SI:" "0.15")) ) ((= va "CM");çamaşır makinesi yük birimi için CM (setq du (strcat "DU:" "0.6")) (setq so (strcat "SO:" "0.25")) (setq si (strcat "SI:" "0.25")) ) ((= va "E");evye yük birimi için E (setq du (strcat "DU:" "0.6")) (setq so (strcat "SO:" "0.07")) (setq si (strcat "SI:" "0.07")) ) ((= va "S5");50 lik süzgeç için S5 (setq du (strcat "DU:" "0.9")) (setq so (strcat "SO:" "0.0")) (setq si (strcat "SI:" "0.0")) ) ((= va "S7");70 lik süzgeç için S7 (setq du (strcat "DU:" "0.9")) (setq so (strcat "SO:" "0.0")) (setq si (strcat "SI:" "0.0")) ) ((= va "S10");100 lük süzgeç için S10 (setq du (strcat "DU:" "1.2")) (setq so (strcat "SO:" "0.0")) (setq si (strcat "SI:" "0.0")) ) ) (setq yp1 (getpoint "\n yazma noktasını seç:")) (setq yp2 (polar yp1 4.7124 55)) (setq yp3 (polar yp2 4.7124 55)) (command "text" yp1 "" du "") (command "text" yp2 "" so "") (command "text" yp3 "" si "") (setq va (getstring "\n vitrifiye kodunu gir:")) ) ) ------------------------------------------------------------------------------------------------------------------------------------------------- soguk su burusu çapı veren lisp; aşagıdaki kodlar toplamak istediğiniz soguk su yük birimlerini tıklayarak toplatabilir ve sonuç olarak toplam yük birimini ve boru çalını alırsınız... komut satırına cvo yazarak lispi çalıştrabilirsiniz. çalıştığınız yapı türüne göre çap aralıklarını; ((<= td 0.1]) kırmızı ile gösterilen yere yazmalısınız... ------------------------------------------------------------------------------------------------------------------------------------------------- Kod: ;hazırlayan: miyatu 25/07/2007 ;iletişim: miyatu@gmail.com (defun c:cvo () (setq td 0) (setq ty 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq yu (strlen tsd)) (setq ayu (- yu 3)) (setq ty1 (substr tsd 4 ayu)) (setq ty (atof ty1)) (setq td (+ td ty)) (setq ts (entsel "\nHat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 0.1) (setq cp (strcat "20" "mm"))) ((<= td 0.21) (setq cp (strcat "25" "mm"))) ((<= td 0.60) (setq cp (strcat "32" "mm"))) ((<= td 2.04) (setq cp (strcat "40" "mm"))) ((<= td 7.03) (setq cp (strcat "50" "mm"))) ((<= td 35.62) (setq cp (strcat "63" "mm"))) ((<= td 257) (setq cp (strcat "75" "mm"))) ((<= td 512) (setq cp (strcat "90" "mm"))) ) (setq td1 (rtos td 2 2)) (setq dn (entsel "\n değişecek yazıyı seç:")) (command "change" dn "" "" "" "" "" cp "") (setq gen (strcat "SO:" td1)) (setq dl (entsel "\n değişecek yazıyı seç:")) (command "change" dl "" "" "" "" "" gen "")) ------------------------------------------------------------------------------------------------------------------------------------------------- sıcak su borusu çapı veren lisp; aşagıdaki kodlar toplamak istediğiniz sıcaksu yük birimlerini tıklayarak toplatabilir ve sonuç olarak toplam yük birimini ve boru çalını alırsınız... komut satırına cvi yazarak lispi çalıştrabilirsiniz. çalıştığınız yapı türüne göre çap aralıklarını; ((<= td 0.1) kırmızı ile gösterilen yere yazmalısınız... ------------------------------------------------------------------------------------------------------------------------------------------------- Kod: ;hazırlayan: miyatu 25/07/2007 ;iletişim: miyatu@gmail.com (defun c:cvi () (setq td 0) (setq ty 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq yu (strlen tsd)) (setq ayu (- yu 3)) (setq ty1 (substr tsd 4 ayu)) (setq ty (atof ty1)) (setq td (+ td ty)) (setq ts (entsel "\nHat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 0.1) (setq cp (strcat "20" "mm"))) ((<= td 0.21) (setq cp (strcat "25" "mm"))) ((<= td 0.60) (setq cp (strcat "32" "mm"))) ((<= td 2.04) (setq cp (strcat "40" "mm"))) ((<= td 7.03) (setq cp (strcat "50" "mm"))) ((<= td 35.62) (setq cp (strcat "63" "mm"))) ((<= td 257) (setq cp (strcat "75" "mm"))) ((<= td 512) (setq cp (strcat "90" "mm"))) ) (setq td1 (rtos td 2 2)) (setq dn (entsel "\n değişecek yazıyı seç:")) (command "change" dn "" "" "" "" "" cp "") (setq gen (strcat "SI:" td1)) (setq dl (entsel "\n değişecek yazıyı seç:")) (command "change" dl "" "" "" "" "" gen "")) ------------------------------------------------------------------------------------------------------------------------------------------------- pissu boru çapını veren lisp; aşagıdaki kodlar toplamak istediğiniz pissu yük birimlerini tıklayarak toplatabilir ve sonuç olarak toplam yük birimini ve boru çalını alırsınız... komut satırına cvp yazarak lispi çalıştrabilirsiniz. çalıştığınız yapı türüne göre çap aralıklarını; ((<= td 0.1) kırmızı ile gösterilen yere yazmalısınız... ------------------------------------------------------------------------------------------------------------------------------------------------- Kod: ;hazırlayan: miyatu 25/07/2007 ;iletişim: miyatu@gmail.com (defun c:cvp () (setq td 0) (setq ty 0) (setq ts (entsel "\nHat yükünü seçiniz:")) (while (/= ts nil) (setq tsd (cdr (assoc 1 (entget (car ts))))) (setq yu (strlen tsd)) (setq ayu (- yu 3)) (setq ty1 (substr tsd 4 ayu)) (setq ty (atof ty1)) (setq td (+ td ty)) (setq ts (entsel "\nHat yükünü seçiniz:")) ) (setq cp 0) (cond ((<= td 2.25) (setq cp (strcat "%%c" "50"))) ((<= td 36) (setq cp (strcat "%%c" "70"))) ((<= td 56.25) (setq cp (strcat "%%c" "100"))) ) (setq td1 (rtos td 2 2)) (setq dn (entsel "\n değişecek yazıyı seç:")) (command "change" dn "" "" "" "" "" cp "") (setq gen (strcat "DU:" td1)) (setq dl (entsel "\n değişecek yazıyı seç:")) (command "change" dl "" "" "" "" "" gen "")) ---------------------------------------------------------------------------------------------------------------------------------------------- ehya (16.04.2008 11:41 GMT) Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

16.04.2008 12:51 35763	ufuk19 Girişimci 18 ileti mekanik teknik ressam ankara
miyatu kardeş tek kelime ile harikasın bu lispler çok işime yarıyacak teşekkürler

16.04.2008 14:01 35766	tekir06 Kıdemli Girişimci 49 ileti Teknik Ressam Ankara
her ne kadar tesisat çizmesemde,çizen arkadaşların çok işine yarayacağına eminim.Teşekkürler tekir06 (16.04.2008 14:39 GMT)

17.04.2008 08:57 35797	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
nedemek herzaman... umarım faydalı olabilmişimdir... mekanik tesisat ile ilgili şuda şöyle olsaydı güzel olurdu dediğiniz bişeyler varsa onlarıda yazmaya çalışırım... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

19.07.2008 09:22 39171	carbine Yeni üye 31 ileti makina müh. adana
Miyatu teşekkür ederim ancak ben bir türlü kullanamadım lispi yardımcı olabilirmisin. Lispleri yüklüyorum örnek olarak veriyorum 1.5 lik yük birimleri yazdım sorada birisine tıklıyorum degişecek yazıyıa tıklıyorum ancak toplamiyor bir türlü anlıyamadım nası yapacagımı hata veriyor edit:Tekrar denedim yazılar mtext oldugu için sanırım hata veriyordu normal text halinde yaptıgımda halloldu teşekkür ederim tekrardan çok yararlı bir lisp carbine (19.07.2008 11:39 GMT)

05.12.2008 10:24 44161	izmank Girişimci 4 ileti mak. müh. izmir
miyatu selam. Öncelikle emeklerin için teşekkürler. Benim ricam, boru üzerinde yazan rakamı gösterelim. Sonra da yanına mouse ile işaretlediğimiz yere çapını yazsın. Ancak gösterdiğimiz yazının formatı "Qc=1000 Watt" veya "Qc=1000 kcal/h" gibi şartının olmayacak. Açıkçası ben biraz uğraştım ancak çıkamadım işin içinden. Şimdidem teşekkürler....

05.12.2008 11:12 44162	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
Alıntı izmank : miyatu selam. Öncelikle emeklerin için teşekkürler. Benim ricam, boru üzerinde yazan rakamı gösterelim. Sonra da yanına mouse ile işaretlediğimiz yere çapını yazsın. Ancak gösterdiğimiz yazının formatı "Qc=1000 Watt" veya "Qc=1000 kcal/h" gibi şartının olmayacak. Açıkçası ben biraz uğraştım ancak çıkamadım işin içinden. Şimdidem teşekkürler.... standar bir yazım formatı olmazsa aritmetik işlemlerde kullanacagın karakterleri nasıl çekeceksin bunu söylersen yazabilirim... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

05.12.2008 17:49 44179	izmank Girişimci 4 ileti mak. müh. izmir
Forumda "yt" lispi var.bu lispte örneğin; "1000 kcal/h" ve "1500 kcal/h" yazan iki yazıyı toplatınca "2500" olarak işaretlediğimiz bir yazıyı değiştiriyor. Eğer "nToplamı alınacak yazıları seçiniz:" dediğinde başında rakam olmayan textler seçilirse "0" olarak sonuç veriyor.Benim merak ettiğim bu lispin çalışma mantığında olduğu gibi textin, ilk karekterlerinde ki rakamları seçerek, değişken olarak alması, devamında sizlerin yazdığı boru çapları lispleri gibi yorumlayarak, seçtiğimiz yere sonucu yazması mümkün mü? Çünkü hazırladığımız projelerde "1000 kcal/h","1000 Watt"vb. gibi boruların taşıdığı yükleri yazıyoruz. Bu arada forumda arattırdım, görmediğim için elimdeki ok çizip, not eklemeyi sağlayan lispi ekleyeyim. Umarım birilerinin işine yarayabilir. Şimdiden herkese iyi bayramlar... ;;;;;;;;; Kod: (defun C:SW (/ tempcmd templt tempplw temportho tempblip aleng awidth pt1 pt2 ent1 ang pt3 pt4 ) (setq tempcmd (getvar "cmdecho")) (setq templt (getvar "celtype")) (setq tempplw (getvar "plinewid")) (setq temportho (getvar "orthomode")) (setq tempblip (getvar "blipmode")) (setvar "cmdecho" 0) (setvar "celtype" "bylayer") (setvar "orthomode" 0) (setvar "blipmode" 0) ; set arrow size (setq aleng (* (getvar "dimasz") (getvar "dimscale"))) (setq awidth (/ aleng 3.)) (if (setq pt1 (getpoint "\nLeader start:")) (progn (initget 1) (setq pt2 (getpoint pt1 "\nTo point: ")) (command "line" pt1 pt2 "") (setq ent1 (entlast)) (setq ang (angle pt1 pt2)) (setvar "orthomode" 1) (setq pt3 (getpoint pt2 "\nTo point:")) (if (null pt3) (setq pt3 pt2) ) (setq pt4 (polar pt1 ang aleng)) (entdel ent1) (setvar "fillmode" 1) (command "pline" pt3 "w" "0" "0" pt2 pt1 "W" "0" awidth pt4 "w" "0" "0" "") ) ;progn ) if pt1 (setvar "orthomode" temportho) (setvar "celtype" templt) (setvar "plinewid" tempplw) (setvar "blipmode" tempblip) (setvar "cmdecho" tempcmd) (princ) ) ;end sw (prompt "\nType SW to draw straight arrow leader") (princ) ehya (05.12.2008 21:15 GMT)

06.12.2008 09:53 44196	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
Alıntı izmank : Forumda "yt" lispi var.bu lispte örneğin; "1000 kcal/h" ve "1500 kcal/h" yazan iki yazıyı toplatınca "2500" olarak işaretlediğimiz bir yazıyı değiştiriyor. Eğer "nToplamı alınacak yazıları seçiniz:" dediğinde başında rakam olmayan textler seçilirse "0" olarak sonuç veriyor.Benim merak ettiğim bu lispin çalışma mantığında olduğu gibi textin, ilk karekterlerinde ki rakamları seçerek, değişken olarak alması, devamında sizlerin yazdığı boru çapları lispleri gibi yorumlayarak, seçtiğimiz yere sonucu yazması mümkün mü? Çünkü hazırladığımız projelerde "1000 kcal/h","1000 Watt"vb. gibi boruların taşıdığı yükleri yazıyoruz. Bu arada forumda arattırdım, görmediğim için elimdeki ok çizip, not eklemeyi sağlayan lispi ekleyeyim. Umarım birilerinin işine yarayabilir. Şimdiden herkese iyi bayramlar... ;;;;;;;;; Kod: (defun C:SW (/ tempcmd templt tempplw temportho tempblip aleng awidth pt1 pt2 ent1 ang pt3 pt4 ) (setq tempcmd (getvar "cmdecho")) (setq templt (getvar "celtype")) (setq tempplw (getvar "plinewid")) (setq temportho (getvar "orthomode")) (setq tempblip (getvar "blipmode")) (setvar "cmdecho" 0) (setvar "celtype" "bylayer") (setvar "orthomode" 0) (setvar "blipmode" 0) ; set arrow size (setq aleng (* (getvar "dimasz") (getvar "dimscale"))) (setq awidth (/ aleng 3.)) (if (setq pt1 (getpoint "\nLeader start:")) (progn (initget 1) (setq pt2 (getpoint pt1 "\nTo point: ")) (command "line" pt1 pt2 "") (setq ent1 (entlast)) (setq ang (angle pt1 pt2)) (setvar "orthomode" 1) (setq pt3 (getpoint pt2 "\nTo point:")) (if (null pt3) (setq pt3 pt2) ) (setq pt4 (polar pt1 ang aleng)) (entdel ent1) (setvar "fillmode" 1) (command "pline" pt3 "w" "0" "0" pt2 pt1 "W" "0" awidth pt4 "w" "0" "0" "") ) ;progn ) if pt1 (setvar "orthomode" temportho) (setvar "celtype" templt) (setvar "plinewid" tempplw) (setvar "blipmode" tempblip) (setvar "cmdecho" tempcmd) (princ) ) ;end sw (prompt "\nType SW to draw straight arrow leader") (princ) bu durumla ilgili daha once bir lisp calismasi yapmis ve yayinlamistim... Linkleri görebilmek için ÜYE olmalısınız. yukardaki konuyu incelemenizi tavsiye ederim... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

16.12.2008 13:56 44395	nzm06 Girişimci 12 ileti makına tesisatı ankara
arkadaşlar kolay gelsın ben bu lıps olayını anlayamadım bana yardımcı olurmusunuz lutfen emegınıze saglık

16.12.2008 20:36 44401	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
forumda arama yaparsan yeterince bilgi bulabilirsin... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

23.12.2008 15:58 44697	nzm06 Girişimci 12 ileti makına tesisatı ankara
miyatu tşkederım çalışmaların için ama benım bı sorunum var sıcak su boru capını vern lısp hakında bi problemın var lıspı çalıştırdım ama şoyle bi sorun verıyo yardım edersen çok sevinirım Command: cvi Hat yükünü seçiniz: Hat yükünü seçiniz: Hat yükünü seçiniz: Hat yükünü seçiniz: değişecek yazıyı seç:Unknown command "CVI". Press F1 for help. Unknown command "CVI". Press F1 for help. Unknown command "CVI". Press F1 for help. Unknown command "CVI". Press F1 for help. Unknown command "CVI". Press F1 for help. Unknown command "20MM". Press F1 for help. Unknown command "CVI". Press F1 for help. değişecek yazıyı seç: Unknown command "CVI". Press F1 for help. Unknown command "CVI". Press F1 for help. Unknown command "CVI". Press F1 for help. Unknown command "CVI". Press F1 for help. Unknown command "CVI". Press F1 for help. Unknown command "SI:0". Press F1 for help. Unknown command "CVI". Press F1 for help. nil cvp beklıyorum

23.12.2008 16:02 44698	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
yazılarının mtext olmadığından emin ol hat yüklerinin yazım formatının doğru olduğundan emin ol çözülecektir... eger çözüme ulaşamazsan text ayarlarını yaparak tekrar dene... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

23.12.2008 16:13 44699	nzm06 Girişimci 12 ileti makına tesisatı ankara
Yazılar mtext değil hat yükleri yazım formatı nasıl olacak bunu anlamadım ve text ayarları nedir yardım edermisin? ehya (24.12.2008 07:15 GMT)

24.12.2008 09:41 44721	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
sicak su yuk birimini yazarken SI:4 seklinde yazmalisin text ayarlarida yazi yuksekligi fontu vb ayarlarin yapilamsi... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

24.12.2008 11:45 44729	nzm06 Girişimci 12 ileti makına tesisatı ankara
Tşkederım yardım için çalıştırdım çalışıyo ama bi istegım daha olacak bılıyorum bırz fazla oldum ama :D her zaman "SI" yazmak zorundamıyım buna bı çare bulanabılırmı

24.12.2008 16:47 44751	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
bu lisp böle çalışır çarasi var tabiki ama lispi yeniden düzenlemek gerekir... boş olduğum bir zamanda yaparım... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

01.02.2010 09:33 55247	alirizasahin Kıdemli Uzman 118 ileti Makina Mühendisi
yb kodla çalışan lispi çalıştıramadım. yb komutunu girdikten sonra vitrifiye kodunu istiyor. Vitrifiye kodunu dediğiniz gibi bm gibi giriyorum.Yazma noktası seç diyor bir yere tıkladığım zaman komut satırına "Unknown command "YB". Press F1 for help." şeklinde bir yazı çıkıyor. Acaba açıklama kısmında yazdığınız text ayarlarının (font punta) yapılması mı gerekir. Eğer font sorunu ise bu font bende yok. Cevap verirseniz memnun olacağım. alirizasahin (01.10.2010 11:16 GMT)

04.02.2010 08:12 55341	leventorun Girişimci 11 ileti inşaat teknisyeni izmir
harika bir düşünce..Ellerine saglık.... Ne mutlu TÜRKüm Diyene !

04.02.2010 13:11 55351	alirizasahin Kıdemli Uzman 118 ileti Makina Mühendisi
Yukarıda belirttiğim soruya cevap alamadım, yb lispini çalıştıran varsa yardımcı olabilir mi?

> 1 < [2]

Sonraki Sayfa