(entget (car(entsel)))

(if (not (tblsearch "BLOCK" "NKT"))
(progn
  (entmake ; blok ekle
   '(
     (0 . "BLOCK")
     (100 . "AcDbEntity")
     (67 . 0) ; model space
     (100 . "AcDbBlockReference")
     (2 . "NKT") ; Blok adı
     (10 0 0 0) ; Baz nokta
     (70 . 0)
     )
   )
  (entmake ; çember
   '(
     (0 . "CIRCLE")
     (100 . "AcDbEntity")
     (10 0.0 0.0 0.0) ; Merkez noktası
     (67 . 0)
     (40 . 1) ; Yarıçap
     )
   )
  (entmake ; tara
   '(
     (0 . "HATCH")
     (100 . "AcDbEntity")
     (67 . 0)
     (410 . "Model")
     (8 . "0")
     (100 . "AcDbHatch")
     (10 0.0 0.0 0.0)
     (210 0.0 0.0 1.0)
     (2 . "SOLID")
     (70 . 1)
     (71 . 0)
     (91 . 1)
     (92 . 7)
     (72 . 1)
     (73 . 1)
     (93 . 2)
     (10 1.0 0.0 0.0)
     (42 . 1.0)
     (10 -1.0 0.0 0.0)
     (42 . 1.0)
     (97 . 0)
     (75 . 1)
     (76 . 1)
     (47 . 0.0564485)
     (98 . 1)
     (10 0.0 0.0 0.0)
     (450 . 0)
     (451 . 0)
     (460 . 0.0)
     (461 . 0.0)
     (452 . 0)
     (462 . 1.0)
     (453 . 2)
     (463 . 0.0)
     (63 . 5)
     (421 . 255)
     (463 . 1.0)
     (63 . 2)
     (421 . 16776960)
     (470 . "LINEAR")
     )
   )
  (entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0")))
  )
)