lisp 练习取得对象属性

函数entsel、car、cdr、entget

(defun c:tt ()
  (setq en1 (entsel))
)

返回 对象名称 选点坐标

(car en1)

返回列表的第一个元素

(cadr en1)

返回列表的第二个元素

 (setq en1 (entsel))

(defun c:tt ()
  (setq en1(entsel))
  (setq en1_data(entget (car en1)))
)

返回圆的联合属性列表

(defun c:tt ()
  (setq en1(entsel))
  (setq en1_data(entget (car en1)))
  (setq oldr(assoc 40 en1_data))
)

返回对应群码40为索引值子列表