紧急求助：如何完善以下两个填充lisp并合并成一个lisp！！！！

zlq1318

以下是关于两个填充的lisp，第一个lisp是实现了点选填充，但是有一个缺点是每次只能选中一个区域，不能连续多选几个区域进行填充。譬如我有5个矩形需要填充，就必须每次输入h1，一次只能填充一个矩形，无法连续填充。

第二个lisp是实现选择边界进行填充
我的问题是如何将两个lisp合并成一个命令，根据你点选或者选择边界程序自动完成填充，且点选填充时能对多个同时区域进行填充。这样就基本上实现了用lisp对封闭图形的填充问题。

由于本人对lisp所学有限，希望高手指教，感激不尽！！
(defun c:h1 ()
(command "color" "8")
(prompt "\n二次浇灌,请指定内部点：\n")
(setq pt (getpoint))
(command "bhatch" "p" "二次浇灌" "20" "0" pt "")
(princ)
)


(defun c:h2 ()
(command "color" "8")
(prompt "\n二次浇灌,请指定内部点：\n")
(setq pt (ssget))
(command "bhatch" "p" "二次浇灌" "20" "0" "s"pt """")
(princ)
)

ZZXXQQ

1. (defun c:h1 ()
   
2. (command "color" "8")
   
3. (prompt "\n二次浇灌,请指定内部点：\n")
   
4. (command "bhatch" "p" "二次浇灌" "20" "0")
   
5. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
6. (princ)
   
7. )
   

(defun c:h1 ()<br /> (command "color" "8")<br /> (prompt "\n二次浇灌,请指定内部点：\n")<br /> (command "bhatch" "p" "二次浇灌" "20" "0")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> (princ)<br /> )<br />

长风（尚品）

路过。只有等高手解决了

cuyongping

路过，学习学习！

zlq1318

非常感谢ZZXXQQ
我试了一下确实可以

我还有一个问题就是如何实现既可以点选又可以选择边界即两种方式合二为一。