AUTOLISP擷取圖元資料

以下這段程式是教您怎樣用程式去擷取出線段或圓的參數或內部詳細資訊

(defun C:tom20 (/ N w2 w3)
(setvar "OSMODE" 0)
(setq
    a (ssget

 '((0 . "TEXT,REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))
       )
  )

 (setq n(sslength a))
  (setq index 0)
      (setq b1(entget (ssname a index)))
;      (setq index (1+ index))
  ;    (setq b(assoc 0 b1))

)