CAD AutoLisp 获取图形顶点坐标

示例中选中一个图形，输出图形所有顶点的坐标

(defun C:TT()
  ;;自定义函数 一定要先加载自定义函数
  (defun 2+(a)
    (+ 2 a)
  )

  (2+ 5)

  (defun pl(a)
    (setq ent (entget a))
    (setq pts nil)
    (foreach n ent
      (if (= (car n) 10);当编号等于10的时候
        (progn   ;就执行这一句话
          ;(command "CIRCLE" (cdr n) 2)
          (setq pts (append pts (list (cdr n))))
        )
      )
    )
    pts
  )

  (setq aa (pl (car(entsel))))

  ;pl 函数说明 图元名    pl 图元名 (PL ent)
)