(setq e1 (car (entsel "\n1. çizgi"))
        e2 (car (entsel "\n2. çizgi")))
(setq e1-10 (cdr (assoc 10 (entget e1)))
        e1-11 (cdr (assoc 11 (entget e1)))
        e2-10 (cdr (assoc 10 (entget e2)))
        e2-11 (cdr (assoc 11 (entget e2))))
(setq kesisim (inters e1-10 e1-11 e2-10 e2-11))

(vl-load-com)
(setq e1 (vlax-ename->vla-object (car (entsel "\n1.çizgi")))
      e2 (vlax-ename->vla-object (car (entsel "\n2.çizgi"))))
(setq kesisim (vlax-safearray->list (vlax-variant-value (vla-intersectwith e1 e2 acExtendBoth))))

(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(67 . 0)
     '(100 . "AcDbPolyline") '(90 . 6) '(70 . 0)
     (cons 10 p1) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0) '(91 . 0)
     (cons 10 p2) '(40 . 0.0) '(41 . 0.0) (cons 42 buLg1) '(91 . 0)
     (cons 10 p3) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0) '(91 . 0)
     (cons 10 p4) '(40 . 0.0) '(41 . 0.0) (cons 42 buLg1) (91 . 0)
     (cons 10 p5) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0) '(91 . 0)
     (cons 10 p6) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0) '(91 . 0)))

(entmake (list (0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0)
     (100 . "AcDbPolyline") (90 . 2) (70 . 1) (cons 43 width)
     (10 p1) (40 . 0.25) (41 . width) (42 . buLg) (91 . 0)
     (10 p2) (40 . 0.25) (41 . width) (42 . buLg) (91 . 0)))

(setq sec1 (vlax-ename->vla-object sec1)
      sec2 (vlax-ename->vla-object sec2))
               ;;; Değişkenlerinizin değeri ename ise,
               ;;; önce object name'e dönmelisiniz.
               ;;; Değişkenleriniz zaten objet name ise,
               ;;; yukarıdaki 2 satırı yazmaya gerek yok.
(if (< (vlax-get-property sec1 'length)
       (vlax-get-property sec2 'length))
  (vla-delete sec1) (vla-delete sec2))

(setq ent (car (entsel "\nNesneyi seç:")))
(setq tanim (cdr (assoc 0 (entget ent))))
(if (= tanim "CIRCLE")
(progn.....
.......
.......
.......
) ; progn sonu

(progn
.......
.......
.......

;|===========================================================================|
| Betonarme Projelerde Donatı Etiketleme                                    |
| Hazırlayan: M. Şahin Güvercin  28.02.2012  www.autocadokulu.com           |
|___________________________________________________________________________|;
(defun cpt (obj / n00)
  (setq n00 (vlax-safearray->list (vlax-variant-value (vlax-get-property
                  (vlax-ename->vla-object obj) 'coordinates)))
        n00 (list (/ (+ (nth 0 n00) (nth 2 n00)) 2.0)
                  (/ (+ (nth 1 n00) (nth 3 n00)) 2.0) (getvar "Elevation"))))
;|___________________________________________________________________________|;
(defun c:DY (/ *error* n01 n02 n03 n04 n05 n06 n07 fob kuk sob Ang obs n nks
            dob trv vec PvT Ti1 m)
  (command "_.undo" "group") (setq ocmd (getvar "cmdecho"))(setvar "cmdecho" 0)
  (defun *error* (msg) (if (not (vl-string-search "cancel" msg)) (princ msg))
    (if dob (progn (setq m (sslength dob)) (while (not(minusp (setq m (1- m))))
      (entdel (ssname dob m))))) (if dtx (entdel dtx)) (if trv (entdel trv))
    (setvar "cmdecho" ocmd) (command "_.undo" "e") (prin1)) (vl-load-com)
  (setq TxH (* (getvar "dimtxt") (getvar "dimscale"))
        dny (getstring T "\nDonatı Yazısı: ")
        n01 (cdr (assoc 10 (entget
              (setq fob (ssname (ssget ":s" (list '(-4 . "<OR") '(-4 . "<AND")
                '(0 . "LWPOLYLINE") '(90 . 2) '(70 . 1) '(-4 . "AND>")
                '(0 . "CircLe") '(-4 . "OR>"))) 0))))) kuk (redraw fob 3)
        n01 (if (= (cdr (assoc 0 (entget fob))) "CIRCLE") n01 (cpt fob))
        n02 (cdr (assoc 10 (entget
              (setq sob (ssname (ssget ":s" (list '(-4 . "<OR") '(-4 . "<AND")
                '(0 . "LWPOLYLINE") '(90 . 2) '(70 . 1) '(-4 . "AND>")
                '(0 . "CircLe") '(-4 . "OR>"))) 0))))) kuk (redraw fob 4)
        n02 (if (= (cdr (assoc 0 (entget sob))) "CIRCLE") n02 (cpt sob))
        Ang (angle n01 n02)
        obs (ssget "_F" (list n01 n02) (list '(-4 . "<OR") '(-4 . "<AND")
              '(0 . "LWPOLYLINE") '(90 . 2) '(70 . 1) '(-4 . "AND>")
              '(0 . "CircLe") '(-4 . "OR>"))) n (sslength obs)
        nks (if (= (cdr (assoc 0 (entget (ssname obs (setq n (1- n))))))
                   "CIRCLE") (list (cdr (assoc 10 (entget (ssname obs n)))))
              (list (cpt (ssname obs n)))))
  (if (> Ang pi) (setq Ang (- Ang pi)))
  (if (> (setq Ang (+ Ang (/ pi 2.0))) pi) (setq Ang (- Ang pi)))
  (while (not (minusp (setq n (1- n))))
    (if (= (cdr (assoc 0 (entget (ssname obs n)))) "CIRCLE")
      (setq nks (append nks (list (cdr (assoc 10 (entget (ssname obs n)))))))
      (setq nks (append nks (list (cpt (ssname obs n)))))))
  (setq n (length nks) dob (ssadd))
  (while (not (minusp (setq n (1- n))))
    (entmake (list (cons 0 "Line") (cons 10 (nth n nks))
               (cons 11 (polar (nth n nks) Ang 1.0)))) (ssadd (entlast) dob))
  (setq n03 (polar n01 Ang 1.0) n04 (polar n02 Ang 1.0)
        n05 (mapcar '(lambda (p1 p2) (/ (+ p1 p2) 2.0)) n03 n04))
  (entmake (list '(0 . "Line")(cons 10 n03)(cons 11 n04))) (setq trv (entlast))
  (entmake (list '(0 . "Text")(cons 10 (setq Ti1 (polar n05 Ang (/ TxH 2.0))))
                 (cons 40 TxH) (cons 1 dny) (cons 50 (- Ang (/ pi 2.0)))
                 '(72 . 1) (cons 11 Ti1))) (setq dtx (entlast))
  (while (/= 3 (car (setq n06 (grread T 4 1))))
    (setq n07 (cadr n06) vec (list (- (car n07) (car n05))
      (- (cadr n07) (cadr n05)) (- (caddr n07) (caddr n05))) n (sslength dob))
    (while (not (minusp (setq n (1- n)))) (setq PvT (entget (ssname dob n))
            PvT (subst (cons 11 (mapcar '(lambda (p1 p2) (+ p1 p2))
                                 (cdr (assoc 11 PvT)) vec)) (assoc 11 PvT) PvT)
            PvT (entmod PvT) PvT (entupd (cdr (assoc -1 PvT)))))
    (setq PvT (entget trv)
          PvT (subst (cons 10 (mapcar '(lambda (p1 p2) (+ p1 p2))
                                 (cdr (assoc 10 PvT)) vec)) (assoc 10 PvT) PvT)
          PvT (subst (cons 11 (mapcar '(lambda (p1 p2) (+ p1 p2))
                                 (cdr (assoc 11 PvT)) vec)) (assoc 11 PvT) PvT)
          PvT (entmod PvT) PvT (entupd (cdr (assoc -1 PvT)))
          n05 (mapcar '(lambda (p1 p2) (/ (+ p1 p2) 2.0))
                (cdr (assoc 10 (entget PvT))) (cdr (assoc 11 (entget PvT)))))
    (if (not (inters n05 (polar n05 Ang (* 3 TxH)) n01 n02 T))
      (setq PvT (entget dtx) PvT (subst (cons 10
             (setq Ti1 (polar n05 Ang (/ TxH 2.0)))) (assoc 10 PvT) PvT)
            PvT (subst (cons 11 Ti1) (assoc 11 PvT) PvT)
            PvT (entmod PvT) PvT (entupd (cdr (assoc -1 PvT))))
      (setq PvT (entget dtx) PvT (subst (cons 10
             (setq Ti1 (polar n05 (+ Ang pi) (* TxH 1.5)))) (assoc 10 PvT) PvT)
            PvT (subst (cons 11 Ti1) (assoc 11 PvT) PvT)
            PvT (entmod PvT) PvT (entupd (cdr (assoc -1 PvT)))))
    (setq n05 n07)) (setvar "cmdecho" ocmd) (command "_.undo" "e") (prin1))
;|___________________________________________________________________________|;

(defun c:incr (/)
  (command "_.undo" "group") (princ "\n Artırılacak Rakamı seçiniz: ")
  (while (setq rKm (ssget ":s" (list (cons 0 "*text"))))
    (setq rKm (entget (ssname rKm 0)))
    (if (numberp (setq icrk (atof (cdr (assoc 1 rKm)))))
      (setq rKm (if (= icrk (fix (* (/ icrk 2) 2)))
                  (subst (cons 1 (itoa (fix (1+ icrk)))) (assoc 1 rKm) rKm)
                  (subst (cons 1 (rtos (1+ icrk))) (assoc 1 rKm) rKm))
            rKm (entmod rKm) rKm (entupd (cdr (assoc -1 rKm)))))
    (princ "\n ... Rakam seçiniz: "))
  (command "_.undo" "e") (prin1)         
)

(defun c:ett2 (/ *error* oL dnt1 tanim dnt2 obje yc1 bn1 yc2 bn2 yc3 bn3
               nk1 nk2 nk3 nk4 nk5 nk6 eleman)
  (command "_.undo" "group")
  (defun *error* (msg) (princ msg) (command "_.undo" "e"))
  (if (not (tblsearch "Layer" "Ok_Mavi"))
    (entmake (list '(0 . "Layer") '(2 . "Ok_Mavi")
                   '(62 . 11) '(6 . "Continuous"))))
  (setq oL (getvar "dimscale")
        dnt1 (entget (car (entsel "\n 1.Donatiyi secin...")))
        tanim (cdr (assoc 0 dnt1))
        dnt2 (entget (car (entsel "\n 2.Donatiyi secin...")))
        obje (ssget '((-4 . "<or") (0 . "circle")
                      (0 . "Lwpolyline") (-4 . "or>"))))
  (if (= tanim "LWPOLYLINE")
    (setq yc1 (cdr (assoc 40 dnt1)) bn1 (cdr (assoc 10 dnt1))
          yc2 (cdr (assoc 40 dnt2)) bn2 (cdr (assoc 10 dnt2))
          nk1 (polar bn1 0  (/ yc1 2))
          nk4 (polar bn2 0  (/ yc2 2)))
    (setq nk1 (cdr (assoc 10 dnt1)) nk4 (cdr (assoc 10 dnt2))))
  (setq aci   (angle nk1 nk4)
        nk2 (polar nk1 (+ aci (* pi 0.5)) (* oL 80 ))
        nk3 (polar nk4 (+ aci (* pi 0.5)) (* oL 80 ))
        L (sslength obje))
  (entmake (list'(0 . "Lwpolyline")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")
          '(90 . 4)'(43 . 0) '(70 . 0) '(8 . "Ok_Mavi")
          (cons 10 nk1) (cons 10 nk2) (cons 10 nk3) (cons 10 nk4)))
  (while (not (minusp (setq L (1- L))))
    (setq eleman (entget (ssname obje L)))
    (if (= tanim "LWPOLYLINE")
      (setq yc3 (cdr (assoc 40 eleman))
            bn3 (cdr (assoc 10 eleman))
            nk5 (polar bn3 0  (/ yc3 2)))
      (setq nk5 (cdr (assoc 10 eleman))))
    (setq nk6 (polar nk5 (+ aci (/ pi 2 )) (* oL 80 )))
    (entmake (list '(0 . "line")'(8 . "Ok_Mavi")(cons 10 nk5)(cons 11 nk6))))
  (command "_.undo" "e") (princ)
)