(defun c:attdeg ()
(if (= secim nil)
  (setq secim "Değiştir"))
  (if (= sayi nil)(setq sayi 1))
  (setq bs (getint (strcat "\nBaşlangıç sayısı: < : " (rtos sayi 2 0)" : >")))
  (if (= bs nil)(setq bs sayi))
  (setq sayi bs)
  (initget 1 "Değiştir Başa ekle Sona ekle")
  (setq islem (getkword "\nYazı değiştirme seçeneği : Değiştir / Başa ekle / Sona ekle : "))
(setq nnn nil)
(while (= nnn nil)
  (setq nes (nentsel "\nDeğişecek yazıyı seçin:"))
  (if (= nes nil)
    (progn
    (if (= (getvar "errno") 7)(setq nnn nil))
    (if (= (getvar "errno") 52)(setq nnn t)))
    (progn
      (setq ntur (cdr (assoc 0 (entget (car nes)))))
      (if (/= ntur "ATTRIB")
(progn
  (setq nnn nil)(princ "\nSeçilen nesne ATTRIB değil..."))
(progn
(setq icerik (cdr (assoc 1 (entget (car nes))))
      data (entget (car nes)))
          (if (= islem "Değiştir")(setq yyazi (rtos sayi 2 0)))
          (if (= islem "Başa")(setq yyazi (strcat (rtos sayi 2 0)icerik)))
          (if (= islem "Sona")(setq yyazi (strcat icerik (rtos sayi 2 0))))
(entmod (subst (cons 1 yyazi)(assoc 1 data)data))
(setq sayi (+ sayi 1))
(setq nnn nil)
)))))
(princ)
)

;|***************************************************************************|
| PDL: Profile Dimesions Label                                              |
|      Görünüş çizgileri seçilen Köşebentin boyut etiketi                   |
|      mevcut Text (veya MText) objesine işlenir.                           |
|      M. Şahin Güvercin  www.cizimokulu.com  25.12.2012                    |
|---------------------------------------------------------------------------|;
(defun c:PDL (/ ds1 ds2 ds3 kk ksr Ln1 Ln2 Ln3 PnT)
  (setvar "cmdecho" 0) (command "_.undo" "group") (vl-load-com)
  (setq Ln1 (car (entsel "\nProfil Sırt Çizgisi: ")) Kk  (redraw Ln1 3)
        Ln2 (car (entsel "\n  Profil Uç Çizgisi: ")) Kk  (redraw Ln2 3)
        Ln3 (car (entsel "\n   Flanş İç Çizgisi: ")) Kk  (redraw Ln3 3)
        PnT (vlax-safearray->list (vlax-variant-value
                (vlax-get-property (vlax-ename->vla-object Ln1) 'StartPoint)))
        ds1 (rtos (distance Pnt (vlax-curve-getClosestPointTo
                                  (vlax-ename->vla-object Ln2) PnT T)) 2 0)
        ds2 (rtos (distance PnT (vlax-curve-getClosestPointTo
                                  (vlax-ename->vla-object Ln3) PnT T)) 2 0)
        ds3 (rtos (vlax-get-property (vlax-ename->vla-object Ln1) 'Length) 2 1)
        ksr (atoi (substr ds3 (strlen ds3) 1)))
  (if (wcmatch ds3 "*.*") ;;; Küsüratın simetrik yuvarlanması
    (cond ((< ksr 3) (setq ds3 (substr ds3 1 (- (strlen ds3) 2))))
          ((and (> ksr 2) (< ksr 8))
           (setq ds3 (strcat (substr ds3 1 (1- (strlen ds3))) "5")))
          ((> ksr 7) (setq ds3 (rtos (+ (atof ds3) (- 1 (/ ksr 10.0))) 2 1)))))
  (vlax-put-property (vlax-ename->vla-object (car (entsel "\n Text Objesi: ")))
    'TextString (strcat "L" ds1 "x" ds1 "x" ds2 "..." ds3))
  (redraw Ln1 4) (redraw Ln2 4) (redraw Ln3 4) (command "_.undo" "e") (princ))