> 1 <
| Yazar | İleti |
|
miyatu
[5] Üsteğmen
29 ileti |
#35757 16.04.2008 13:50 GMT |
|
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 "")) ----------------------------------------------------------------------------------------------------------------------------------------------
O-Ö K-L U-Ü L-M KANDIRILIYORUZ
|
|
|
ufuk19
[2] Asteğmen
3 ileti |
#35763 16.04.2008 15:51 GMT |
|
miyatu kardeş tek kelime ile harikasın bu lispler çok işime yarıyacak teşekkürler
|
|
|
tekir06
[5] Üsteğmen
62 ileti |
#35766 16.04.2008 17:01 GMT |
|
her ne kadar tesisat çizmesemde,çizen arkadaşların çok işine yarayacağına eminim.Teşekkürler
çArşı |
|
|
miyatu
[5] Üsteğmen
29 ileti |
#35797 17.04.2008 11:57 GMT |
|
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...
O-Ö K-L U-Ü L-M KANDIRILIYORUZ
|
|
|
carbine
[5] Üsteğmen
51 ileti |
#39171 19.07.2008 12:22 GMT |
|
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
|
> 1 <