框选三点自动生成三角形

yfanzi

好多离散点，但只需要每次框选三点。自动生成三角形，求这样一个LISP

ZZXXQQ

论坛有生成三角网的程序，你搜搜看。
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "POINT")))) (progn
  (setq p1 (cdr(assoc 10 (entget(ssname 0 ss))))
           p2 (cdr(assoc 10 (entget(ssname 1 ss))))
           p3 (cdr(assoc 10 (entget(ssname 2 ss)))))
  (command ".LINE" p1 p2 p3 "c")
))
(setvar "CMEECHO" 1)
(princ)
)