(defun yazort ()
  (if (and (/= ent "Büyüt")(/= ent "Küçült")(/= ent nil))
    (progn
  (setq d1 (cadr (textbox (entget (car ent))))
aci (angle '(0 0 0) d1)
mes (distance '(0 0 0) d1)
data (vlax-ename->vla-object (car ent))
ins (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint data))))
  (setq a1 ins
a3 (polar ins aci mes)
ort (polar a1 (angle a1 a3) (/ (distance a1 a3) 2.0))))))
(defun c:bkt ()
(vl-load-com)
  (setvar "errno" 0)
(if (= oran nil)(setq oran 2))
  (setq orr (getreal (strcat "\nYazı oranı: < " (rtos oran 2 2) " >:")))
  (if (= orr nil)
    (setq orr oran))
  (setq oran orr)
  (if (= bk nil)
    (setq bk "Büyüt"))
   
  (setq nnn nil)
  (while (= nnn nil)
(initget "Büyüt Küçült")   
(setq ent (entsel (strcat "\nNesneyi seçin: [Büyüt / Küçült] <"bk">")))
(if (= ent "Büyüt")
  (setq bk "Büyüt" scoran (* 1.0 oran)))
(if (= ent "Küçült")
  (setq bk "Küçült" scoran (/ 1.0 oran)))
(if (= (getvar "errno") 52)
  (setq nnn t))
(yazort)
  (if (and (/= ent "Büyüt")(/= ent "Küçült")(/= ent nil))   
    (command "_.scale" ent  "" ort scoran)
))(princ))

;|===========================================================================|
| Seçilen Text veya MText objeleri Büyütme veya Küçültme işini yapar        |
| Hazırlayan: M. Şahin Güvercin  14.03.2012  www.autocadokulu.com           |
|___________________________________________________________________________|;
(princ "\nAuthor: M. Şahin Güvercin - www.autocadokulu.com - ")
;|___________________________________________________________________________|;
(defun nK (p0 vec /) (mapcar '(lambda (p1 p2) (+ p1 (* pSz p2))) p0 vec))
;|___________________________________________________________________________|;
(defun c:BK (/ *error* bk PvT pRs nnK pT1 pT2 pT3 pT4 pT5 pT6)
  (setvar "cmdecho" 0) (command "_.undo" "group")
  (defun *error* (er) (redraw) (princ (strcat "\n" er "\n")))
  (setq bk  "B" PvT nil opr (if opr (* 1.0 opr) (* 1.0 1.25)))
  (if (<= (if (not (setq prs (getreal (strcat "\nBüyütme/Küçültme Oranı <"
              (if opr (rtos opr)) ">: ")))) (setq prs opr) (setq opr prs)) 1.0)
      (progn (princ "\nBüyütme/Küçültme Oranı 1'den büyük olmalıdır!") (exit)))
  (while (/= 2 (car (setq nnK (grread T 4 2))))
    (princ (strcat "\r<" (if (= bk "B") "KÜÇÜLTME" "BÜYÜTME")
                   " için Sağ Tuş, ÇIKIŞ için klavyeden bir Tuş> - "
                   (if (= bk "B") "BÜYÜYECEK" "KÜÇÜLECEK") " obje seçiniz..."))
    (if PvT (redraw PvT 4)) (redraw)
    (cond ((= (car nnK) 5)
           (setq pSz (* (/ (getvar "viewsize")(cadr (getvar "screensize")))
                        (getvar "pickbox")))
           (if (= bk "B")
             (mapcar '(lambda (p1 p2) (set (read p1) (nK (cadr nnK) p2)))
                     (list "pT1" "pT2" "pT3" "pT4" "pT5" "pT6")
            (list '(-2 1 0) '(-3 0 0) '(-2 -1 0) '(2 1 0) '(3 0 0) '(2 -1 0)))
             (mapcar '(lambda (p1 p2) (set (read p1) (nK (cadr nnK) p2)))
                     (list "pT1" "pT2" "pT3" "pT4" "pT5" "pT6")
            (list '(-3 1 0) '(-2 0 0) '(-3 -1 0) '(3 1 0) '(2 0 0) '(3 -1 0))))
    (grdraw pT1 pT2 1) (grdraw pT2 pT3 1) (grdraw pT4 pT5 1) (grdraw pT5 pT6 1)
           (if (setq PvT (ssget (cadr nnK) (list (cons 0 "*TexT"))))
             (redraw (setq PvT (ssname PvT 0)) 3)))
          ((= (car nnK) 25) (if (= bk "B") (setq bk "K") (setq bk "B")))
          ((= (car nnK) 3)
           (if (setq PvT (ssget (cadr nnK) (list (cons 0 "*TexT"))))
             (setq PvT (entget (ssname PvT 0))
                   PvT (subst (cons 40 (* (if (= bk "B")
            (* 1.0 prs) (/ 1.0 prs)) (cdr (assoc 40 PvT)))) (assoc 40 PvT) PvT)
                   PvT (entmod PvT) PvT (entupd (cdr (assoc -1 PvT))))))))
  (redraw) (command "_.undo" "end") (prin1))
;|___________________________________________________________________________|;