[求助]：请求高手们看看如何解决这个问题？

andyhua5240

2. 
   
3.   [FONT=courier new]
   
4. (defun so_err (s)
   
5.   (setvar "cmdecho" cm)
   
6.   (setvar "hpassoc" 1)
   
7.   (setvar "hpgaptol" 500)
   
8.   (setvar "hpdraworder" 1)
   
9.   (setvar "hpname" hp)
   
10.   (command "_.undo" "_e")
    
11. )
    
12. 
    
13. 
    
14. (defun c:bss ()
    
15.   (setq cm (getvar "cmdecho"))
    
16.   (setq hp (getvar "hpname"))
    
17.   (setq *error* so_err)
    
18.   (setvar "cmdecho" 1)
    
19.   (setvar "hpassoc" 1)
    
20.   (setvar "hpgaptol" 500)
    
21.   (setvar "hpdraworder" 1)
    
22.   (setvar "hpname" "solid")
    
23.   (command "bhatch")
    
24.   (while (/= 0 (getvar "cmdactive"))(command pause))
    
25.   (setvar "cmdecho" cm)
    
26.   (setvar "hpname" hp)
    
27.   (princ)
    
28. )
    
29.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun so_err (s)<br />   (setvar "cmdecho" cm)<br />   (setvar "hpassoc" 1)<br />   (setvar "hpgaptol" 500)<br />   (setvar "hpdraworder" 1)<br />   (setvar "hpname" hp)<br />   (command "_.undo" "_e")<br /> )<br /> <br /> <br /> (defun c:bss ()<br />   (setq cm (getvar "cmdecho"))<br />   (setq hp (getvar "hpname"))<br />   (setq *error* so_err)<br />   (setvar "cmdecho" 1)<br />   (setvar "hpassoc" 1)<br />   (setvar "hpgaptol" 500)<br />   (setvar "hpdraworder" 1)<br />   (setvar "hpname" "solid")<br />   (command "bhatch")<br />   (while (/= 0 (getvar "cmdactive"))(command pause))<br />   (setvar "cmdecho" cm)<br />   (setvar "hpname" hp)<br />   (princ)<br /> )<br />   [/FONT]<br />

程序的思路是：储存用户的填充图案，有此程序可以以solid来填充。程序完成后返回用户的填充图案。本来程序是已经完成了的。但是有个小小的瑕疵：在命令行提示
指定内部点或
[特性(P)/选择对象(S)/绘图边界(W)/删除边界(B)/高级(A)/绘图次序(DR)/原点(O)]:
时，如果输入S，选择对象的时候，就不能开窗口，要借助于输入Windows，或者Cross，来选择对象。
能不能改成，输入S后就能直接的开窗口，不用借助于W或者C呀？
谢谢！