(command "text" yp1  ""  "" du)
    (command "text" yp2  ""  "" so)
    (command "text" yp3  ""  "" si)

;*********************************************************************************
;**                                      [PSS] VER-1                            **
;23/01/2011 KATAR / DOHA / EKIN PROJE                                            .
;Hazýrlayan:miyatu                                                               .
;Amac: Sýcak, soguk ve pýssu tesýsatlarýna yuk býrýmý yazmak ve caplandýrmak...  .
;Calistirma kodu PSS                                                             .
;**                                                                             **
;*********************************************************************************


;*********************************************************************************
;**                          PISSU YUK BIRIMI YAZ                               **

(defun pss_yb ()
  (initget
    "L D K W M T E C B X"
  )
  (setq va
(getkword
   "\nVitrifiye kodunu gir [Lavabo/Dus/Kuvet/Wc/c - b Makinesi/Termosifon/Evye tekli/evye Ciftli/Bide/eXit]:<eXit>"
)
  )
  (if (= va nil)
    (setq va "X")
  )
  (while (/= va "X")
    (cond
      ((= va "L") ;Lavabo
       (setq du (strcat "SB:" "2"))
       (setq so (strcat "YB:" "0.5"))
      )
      ((= va "D") ;duþ
       (setq du (strcat "SB:" "7"))
       (setq so (strcat "YB:" "2.5"))
      )
      ((= va "K") ;küvet
       (setq du (strcat "SB:" "7"))
       (setq so (strcat "YB:" "2.5"))
      )
      ((= va "B") ;bide
       (setq du (strcat "SB:" "1"))
       (setq so (strcat "YB:" "0.5"))
      )
      ((= va "W") ;wc
       (setq du (strcat "SB:" "8"))
       (setq so (strcat "YB:" "0.5"))
      )
      ((= va "M") ;bulaþýk makinesi
       (setq du (strcat "SB:" "4"))
       (setq so (strcat "YB:" "2.5"))
      )
      ((= va "E") ;evyetekli
       (setq du (strcat "SB:" "4"))
       (setq so (strcat "YB:" "1"))
      )
      ((= va "C") ;evye cýftlý
       (setq du (strcat "SB:" "4"))
       (setq so (strcat "YB:" "2.5"))
      )
      ((= va "T") ;TERMOSIFON
       (setq du (strcat "SB:" "0.0"))
       (setq so (strcat "YB:" "2.5"))
      )
    )
    (setq yp1 (getpoint "\nYazma noktasýný seç:"))
    (setq yp2 (polar yp1
     (mdr 270)
     (+ (/ (getvar "textsize") 4) (getvar "textsize"))
      )
    )
    (setq yp3 (polar yp2
     (mdr 270)
     (+ (/ (getvar "textsize") 4) (getvar "textsize"))
      )
    )
    (entmake (list
       (cons 0 "TEXT")
       (cons 100 "AcDbEntity")
       (cons 8 "YUK") ;layer adini " " isaretleri arasina yazin
       (cons 100 "AcDbMText")
       (cons 10 yp1)
       (cons 1 du)
       (cons 40 (getvar "textsize"))
     )
    )
    (entmake (list
       (cons 0 "TEXT")
       (cons 100 "AcDbEntity")
       (cons 8 "YUK") ;layer adini " " isaretleri arasina yazin
       (cons 100 "AcDbMText")
       (cons 10 yp2)
       (cons 1 so)
       (cons 40 (getvar "textsize"))
     )
    )
    (initget
      "L D K W M T E C B X"
    )
    (setq va
   (getkword
     "\nVitrifiye kodunu gir [Lavabo/Dus/Kuvet/Wc/c - b Makinesi/Termosifon/Evye tekli/evye Ciftli/Bide/eXit]:<eXit>"
   )
    )
    (if (= va nil)
      (setq va "X")
    )
  )
)




;**                                                                             **
;*********************************************************************************

;*********************************************************************************
;**                               DERECEDEN RADYANA GECIS                       **

(defun mdr (aci)
  (* pi (/ aci 180.0))
)

;**                                                                             **
;*********************************************************************************

;*********************************************************************************
;**                     CVO SOGUK SU BORULARINI CAPLANDIRIR                     **
(defun pss_cvo (/ td ty)
  (setq td 0)
  (setq ts (entsel "\nHat yükünü seçiniz:"))
  (while (/= ts nil)
    (setq tsd (cdr (assoc 1 (entget (car ts)))))
    (setq ty (atof (substr tsd 4 (- (strlen tsd) 3))))
    (setq td (+ td ty))
    (setq ts (entsel "\nHat yükünü seçiniz:"))
  )
  (setq cp 0)
  (cond
    ((<= td 2)
     (setq cp (strcat "DN" "15"))
    )
    ((<= td 5)
     (setq cp (strcat "DN" "20"))
    )
    ((<= td 15)
     (setq cp (strcat "DN" "25"))
    )
    ((<= td 35)
     (setq cp (strcat "DN" "32"))
    )
    ((<= td 50)
     (setq cp (strcat "DN" "40"))
    )
    ((<= td 245)
     (setq cp (strcat "DN" "50"))
    )
  )
  (setq td1 (rtos td 2 2))
  (initget 1024 "Y")
  (setq p1 (entsel "\nCapý yazmak için bir text seç [Yeni text yaz]:"))
  (if (= p1 "Y")
    (progn
    (pss_text_yaz))
    (progn
    (pss_text_deg))))
;**                                                                             **
;*********************************************************************************

;*********************************************************************************
;**                     CVI SICAK SU BORULARINI CAPLANDIRIR                     **

(defun pss_cvi (/ ty td)
  (setq td 0)
  (setq ts (entsel "\nHat yükünü seçiniz:"))
  (while (/= ts nil)
    (setq tsd (cdr (assoc 1 (entget (car ts)))))
    (setq ty (atof (substr tsd 4 (- (strlen tsd) 3))))
    (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))
  (initget 1024 "Y")
  (setq p1 (entsel "\nCapý yazmak için bir text seç [Yeni text yaz]:"))
  (if (= p1 "Y")
    (progn
    (pss_text_yaz))
    (progn
    (pss_text_deg))))

;**                                                                             **
;*********************************************************************************

;*********************************************************************************
;**                             TEXT DEGISTIR                                   **

(defun pss_text_deg ()
  (setq p1 (entsel "\nCapý yazmak için bir text seç:"))
  (setq dt (entget (car p1)))
  (setq dt (subst (cons 1 cp) (assoc 1 dt) dt))
  (entmod dt)
  (setq p1 (entsel "\nYuku yazmak için bir text seç:"))
  (setq gen (strcat "SI:" td1))
  (setq dt (entget (car p1)))
  (setq dt (subst (cons 1 gen) (assoc 1 dt) dt))
  (entmod dt)
)


;**                                                                             **
;*********************************************************************************

;*********************************************************************************
;**                               TEXT YAZ                                      **

(defun pss_text_yaz ()
  (setq p1 (getpoint "\nCapý yazdirmak icin bir nokta sec:"))
  (entmake (list
     (cons 0 "TEXT")
     (cons 100 "AcDbEntity")
     (cons 8 "CAP") ;layer adini " " isaretleri arasina yazin
     (cons 100 "AcDbMText")
     (cons 10 P1)
     (cons 1 cp)
     (cons 40 (getvar "textsize"))
   )
  )
  (setq p1 (getpoint "\nYuku yazdirmak icin bir nokta sec:"))
  (setq gen (strcat "SI:" td1))
  (entmake (list
     (cons 0 "TEXT")
     (cons 100 "AcDbEntity")
     (cons 8 "YUK") ;layer adini " " isaretleri arasina yazin
     (cons 100 "AcDbMText")
     (cons 10 P1)
     (cons 1 gen)
     (cons 40 (getvar "textsize"))
   )
  )
)


;**                                                                             **
;*********************************************************************************

;*********************************************************************************
;**                               AYARLAR                                       **

(defun pss_yazi_yuk()
  (setq e_yy (getvar "textsize")
y_yy (getreal (strcat"\nYeni yazý yuksekliðini gir<"(rtos (getvar "textsize"))">:")))
  (if (= y_yy nil)
      (setq y_yy e_yy))
  (setvar "textsize" y_yy))

;**                                                                             **
;*********************************************************************************

;*********************************************************************************
;**                               ANA FONKSIYON                                 **

(defun c:pss ()
  (initget "C Y T")
  (setq secim
(getkword
   "\nSecim yapýnýz [Yuk birimi yaz / Cap ver / Text yuksekligi degistir]:<Yuk birimi yaz>"
)
  )
  (if (= secim nil)
    (setq secim "Y")
  )
  (cond
    ((= secim "T") (pss_yazi_yuk))
    ((= secim "C") (pss_cvo))
    ((= secim "Y") (pss_yb))
  )
  (princ "\nmiyatu tool kullanýldý [PSS]...")
  (princ)
)


;**                                                                             **
;*********************************************************************************

(princ
  "YUK BIRIMI YAZMA ve CAP VERME LISPI YUKLENDI CALISTIRMAK ICIN [PSS] YAZ..."
)

;*********************************************************************************
;**                                  HATA KONTROL                               **

(defun *error* (msg)
  (setvar "osmode" old_osn)
  (setvar "filletrad" old_rad)
  (if (> (atof (substr (getvar "acadver") 1 4)) 18.0)
    (setvar "3dosmode" old_osn3d)
  )
  (command "undo" "e")
  (princ "\nFONKSIYON IPTAL EDILDI...!")
  (prin1)
)


;**                                                                             **
;*********************************************************************************