(defun c:info (/ in)
  (if (setq in (entsel "\nSelect object:"))
    (progn
      (textscr)
      (princ "\n*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*\n")
      (foreach in (entget (car in)) (print in))
      (princ "\n\n*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*")
    )
  ) (princ)
)

(defun c:l2c ( / ent )
(setvar "osmode" 0)
(setq ss (ssget )) ;Line seçimi yapildi
  (setq bb (ssname ss 0))
  (setq cc (entget bb))
 
                        (setq x1 (car  (cdr (assoc 10 cc)))) ;baslangic noktasinin x koordinati
  (setq y1 (cadr  (cdr (assoc 10 cc)))) ;baslangic noktasinin y koordinati

  (setq x2 (car (cdr (assoc 11 cc)))) ;bitis noktasinin x koordinati
(setq y2 (cadr (cdr (assoc 11 cc)))) ;bitis noktasinin y koordinati

  (command "zoom" (list (- x1 5) (+ y1 5) 0) (list (+ x1 5) (- y1 5) 0)) ;baslangic noktasina zoom
  (setq z1 (getreal "\nBaslangic Noktasi Kotunu Giriniz: "))

  (command "zoom" (list (- x2 5) (+ y2 5) 0) (list (+ x2 5) (- y2 5) 0)) ;bitis noktasina zoom
  (setq z2 (getreal "\nBitis Noktasi Kotunu Giriniz: "))
  (setq cap (getreal "\nBoru Capini (mm) Giriniz: "))
  (setq cap2 (/ cap 1000))
  (setq cz (+ z1 (/ cap2 2)))
  (setq cz2 (+ z2 (/ cap2 2)))
  (command "line" (list x1 y1  cz) (list x2 y2 cz2) "") ;z koordinatlarina göre line cizildi
  (command "line" (list x1 y1  z1) (list x2 y2 z2) "") ;z koordinatlarina göre 2. line akar kota cizildi
  (command "zoom" (list (- x1 5) (+ y1 5) 0) (list (+ x1 5) (- y1 5) 0)) ;baslangic noktasina zoom
  (command "circle" (list x1 y1 cz) (/ cap2 2) "") ;baslangic noktasina sweep icin circle cizdi
  (command "sweep")

  )

(setq a (ssget “W” pnt1 pnt2))

"(setq p1 (getpoint ""\n1.Nokta:"")
p2 (getcorner ""\n2.Nokta:""))"
(ssget "c" p1 p2)