;===============================================================
;   Seçilen bir harf veya harf gurubuyla başlayan ve artarak   
;   devam eden sırada, dikdörtgen içine alınmış Poz numarası   
;   vermek için Hazırlayan: Mehmet Sahin Guvercin 17-04-2011   
;===============================================================
(write-line "\nHazırlayan, M. Şahin Güvercin - www.autocadokulu.com")
(defun C:PsL (/ pre sayi yyuk ynok a1 p1 p2 ang dst p3 p4)
  (setvar "cmdecho" 0) (command "undo" "group")
  (setvar "modemacro" "Prepared by: M.S Güvercin")
  (if esayi (setq sayi esayi) (setq esayi 1))
  (if (= epre nil) (setq epre "P"))
  (if (= eyuk nil) (setq eyuk (* (getvar "dimtxt") (getvar "dimscale"))))
  (setq pre (getstring
    (strcat "\Poz'ların başına gelecek Harf ya da Harf Gurubu <" epre ">: ")))
  (if (= pre "") (setq pre epre)) (if (= pre "0") (setq pre ""))
  (setq sayi (getint (strcat "\nBaslangic Poz Numarası <" (itoa esayi) "> :")))
  (if (= sayi nil) (setq sayi esayi))
  (setq yyuk (getreal (strcat "\nYazi yuksekligi <" (rtos eyuk) "> :")))
  (if (= yyuk nil) (setq yyuk eyuk))
  (while (setq ynok (getpoint
                 (strcat "\n<" pre (itoa sayi) "> Pozu için Yer seciniz...")))
    (entmake (list (cons 0 "TEXT") (cons 1 (strcat pre (itoa sayi)))
                   (cons 10 ynok) (cons 11 ynok) (cons 40 yyuk) (cons 72 4)))
    (setq a1 (entget (entlast)) p1 (car (textbox a1)) p2 (cadr (textbox a1))
          ang (angle p1 p2) dst (/ (distance p1 p2) 1.25)
          p1 (polar ynok (+ ang pi) dst) p2 (polar ynok ang dst)
          p3 (list (car p2) (cadr p1) (caddr p1))
          p4 (list (car p1) (cadr p2) (caddr p1)))
    (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0)
                   (cons 100 "AcDbPolyline") (cons 90 4) (cons 70 1)
                   (cons 43 0.0) (cons 38 0.0) (cons 39 0.0)
                   (cons 10 p1) (cons 10 p3) (cons 10 p2) (cons 10 p4)))
    (setq sayi (1+ sayi)))
  (setq eyuk yyuk esayi sayi epre pre)
  (setvar "modemacro" "") (command "undo" "e") (prin1)
)

;===============================================================
;   Seçilen bir harf veya harf gurubuyla başlayan ve artarak   
;   devam eden sırada, slot içine alınmış Poz numarası vermek   
;   için Hazırlayan: Mehmet Sahin Guvercin        07-06-2011   
;===============================================================
(write-line "\nHazırlayan, M. Şahin Güvercin - www.autocadokulu.com")
(defun C:PsL (/ pre sayi yyuk ynok a1 p1 p2 ang dst p3 p4)
  (setvar "cmdecho" 0) (command "undo" "group")
  (setvar "modemacro" "Prepared by: M.S Güvercin")
  (if esayi (setq sayi esayi) (setq esayi 1))
  (if (= epre nil) (setq epre "P"))
  (if (= eyuk nil) (setq eyuk (* (getvar "dimtxt") (getvar "dimscale"))))
  (setq pre (getstring
    (strcat "\Poz'ların başına gelecek Harf ya da Harf Gurubu <" epre ">: ")))
  (if (= pre "") (setq pre epre)) (if (= pre "0") (setq pre ""))
  (setq sayi (getint (strcat "\nBaslangic Poz Numarası <" (itoa esayi) "> :")))
  (if (= sayi nil) (setq sayi esayi))
  (setq yyuk (getreal (strcat "\nYazi yuksekligi <" (rtos eyuk) "> :")))
  (if (= yyuk nil) (setq yyuk eyuk))
  (while (setq ynok (getpoint
                 (strcat "\n<" pre (itoa sayi) "> Pozu için Yer seciniz...")))
    (entmake (list (cons 0 "TEXT") (cons 1 (strcat pre (itoa sayi)))
                   (cons 10 ynok) (cons 11 ynok) (cons 40 yyuk) (cons 72 4)))
    (setq a1 (entget (entlast)) p1 (car (textbox a1)) p2 (cadr (textbox a1))
          ang (angle p1 p2) dst (* (distance p1 p2) 0.75)
          p1 (polar (polar ynok (+ ang pi) dst) 0 (/ yyuk 2))
          p2 (polar (polar ynok ang dst) pi (/ yyuk 2))
          p3 (list (car p2) (cadr p1) (caddr p1))
          p4 (list (car p1) (cadr p2) (caddr p1)))
    (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0)
                   (cons 100 "AcDbPolyline") (cons 90 4) (cons 70 1)
                   (cons 43 0.0) (cons 38 0.0) (cons 39 0.0)
                   (cons 10 p1) (cons 42 0.0) (cons 10 p3) (cons 42 1.0)
   (cons 10 p2) (cons 42 0.0) (cons 10 p4)  (cons 42 1.0)))
    (setq sayi (1+ sayi)))
  (setq eyuk yyuk esayi sayi epre pre)
  (setvar "modemacro" "") (command "undo" "e") (prin1)
)