(defun c:cdd ()
  (vl-load-com)
  (setvar "osmode" 512)
(setq ent1 (getpoint "\nDaireyi seçin:"))
  (if (= ent1 nil)
    (progn
      )
      (progn
(setq ss (ssget "c" ent1 ent1)
      ent (ssname ss 0))
(setvar "osmode" 16567)
(setq data (vlax-ename->vla-object ent)
      merkez (vlax-safearray->list (vlax-variant-value (vla-get-center data)))
      ycap (vla-get-radius data)
      aci (angle ent1 merkez)
      ciz-1 ent1
      ciz-2 (polar ciz-1 aci (/ ycap 2.0))
      yon (polar ciz-1 0 100)
      yon1 (polar ent1 (- aci (angtof "90.00")) 0.05))
(vl-cmdf "_.line" ciz-1 ciz-2 "")
(setq cizgi-1 (entlast))
(vl-cmdf "_.offset" "0.1" cizgi-1 yon "")
(setq cizgi-2 (entlast))
(vl-cmdf "_.zoom" "o" ent "")
(vl-cmdf "_.zoom" ".2x")
(vl-cmdf "_.trim" cizgi-1 cizgi-2 "" "f" merkez (polar merkez (angle merkez yon1) (* ycap 4)) """")
(vl-cmdf "_.pedit" ent "" "j" cizgi-1 """")
(setq nesne (entlast))
(vl-cmdf "_.zoom" "o" nesne "")
(entdel cizgi-2)
))
  (setvar "osmode" 183)
  (princ))