变成透明程序使用，怎么改
www.dimcax.com
变成透明程序使用，怎么改
(defun c:tt ()
(setq
spoi (getcenp (setq p1 (getpoint "\n请指定第一点:"))
(getpoint p1 "\n请指定第二点:")
)
)
)
(defun getcenp (firp senp)
;;;取得两点的中点
(list (/ (+ (car firp) (car senp)) 2.0)
(/ (+ (cadr firp) (cadr senp)) 2.0)
0
)
)
想调用tt为透明使用，应该样加点代码在里面呀
d
ref link:
more info:
d