yfanzi 发表于 2011-5-30 20:10:48

框选三点自动生成三角形

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

ZZXXQQ 发表于 2011-5-30 20:40:05

论坛有生成三角网的程序，你搜搜看。
(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)
)
页: [1]
查看完整版本: 框选三点自动生成三角形