autolisp有谁能将以下两命令合并tt rrn

显示全部楼层 · 2011-7-2 09:05:58

(defun c:tt()
(setq p1 (getreal"\n Rmin")
p2 (getreal"\n Rmax")
num(getint"\n sumo")
)
(setq ri (/ (- p2 p1) num)

r (+ p1 ri)
)
(command ".fillet" "r" r)
(command "fillet")
)
(defun c:rrn()
(setq r (+ r ri))
(command ".fillet" "r" r)
(command "fillet")
)
行是行了，但是只能fillet两次，而不是输入的num次数,请问有办法修改吗

千问 · 2011-7-2 09:05:58

(defun c:tt()(setq p1 (getreal"\n Rmin:")p2 (getreal"\n Rmax:")num(getint"\n sumo:"))(setq ri (/ (- p2 p1) num)
r (+ p1 ri))(command "fillet" "r" r)(command "fillet" pause pause)(setq r (+ r ri))(command "fillet" "r" r)(command "fillet"))...