（已解决）请教LSP的执行顺序问题．

Wildcat

想写一个程序如下：填充某一图案后，自动把刚才填充好的图案改为黄色．（但要求不改变cecolor系统变量）．

想法一、
(defun c:hh()
  (command "-hatch" "p" "u" "45" "10" "y") ;;;这里等待用户点取选区并填出图案
  (command "change" (entlast) "" "p" "c" "2" "")　;;;本意让entlast选中上面新填充出来的图案，结果却错选成填充图案生成前的最后一个图元
)

想法二、
(defun c:hh()
  (setq color_old (getvar "cecolor")) ;;;记录cecolor系统变量
  (setvar "cecolor" "2")              ;;;把cecolor系统变量设为黄色
  (command "-hatch" "p" "u" "45" "10" "y") ;;;这里等待用户点取选区并填出图案
  (setvar "cecolor" color_old) ;;;还原cecolor系统变量
)
结果是填充的图案不变色

总结以上情况，似乎程序是完整执行完成后，再让用户点取选区并填出图案，以致程序后面的改变颜色的程序找错目标了。
请问如何能够解决这个问题呢？

eachy

2. 
   
3. (defun c:hh (/ color_old)
   
4.   (setq color_old (getvar "cecolor")) ;_记录cecolor系统变量
   
5.   (setvar "cecolor" "2") ;_把cecolor系统变量设为黄色
   
6.   (command "-hatch" "p" "u" "45" "10" "y")
   
7.   (while (/= (getvar "cmdnames") "")
   
8.     (command pause)
   
9.   ) ;_这里等待用户点取选区并填出图案
   
10.   (setvar "cecolor" color_old) ;_还原cecolor系统变量
    
11.   (princ)
    
12. )

<br /> (defun c:hh (/ color_old)<br />   (setq color_old (getvar "cecolor")) ;_记录cecolor系统变量<br />   (setvar "cecolor" "2") ;_把cecolor系统变量设为黄色<br />   (command "-hatch" "p" "u" "45" "10" "y")<br />   (while (/= (getvar "cmdnames") "")<br />     (command pause)<br />   ) ;_这里等待用户点取选区并填出图案<br />   (setvar "cecolor" color_old) ;_还原cecolor系统变量<br />   (princ)<br /> )

Wildcat

最初由 eachy 发布
[B][code]
(defun c:hh (/ color_old)
  (setq color_old (getvar "cecolor")) ;_记录cecolor系统变量
  (setvar "cecolor" "2") ;_把cecolor系统变量设为黄色
  (command "-hatch" "p" "u" "45" "10" "y")
  (whi... [/B]

谢谢您，按您的方法顺利把我的问题解决了。
但有点还想多问一下，

您的这段程序
   (command "-hatch" "p" "u" "45" "10" "y")
  (while (/= (getvar "cmdnames") "")
    (command pause)

与 (command "-hatch" "p" "u" "45" "10" "y" pause) 有什么区别呢？

为什么 (command "-hatch" "p" "u" "45" "10" "y" pause) 不行呢？AUTOLISP的运算流程是怎样的？

szx025

上述程序点取选区是选取填充区的边界线,能否改为选取填充区内一点来完成填充.

Wildcat

最初由 szx025 发布
[B]上述程序点取选区是选取填充区的边界线,能否改为选取填充区内一点来完成填充. [/B]

如果只是填充一个区域则很容易做到，如果同时多个区域（而不知道具体为多少个区域时），就不知道怎么办了。

cy956

最初由 Wildcat 发布
[B]
如果只是填充一个区域则很容易做到，如果同时多个区域（而不知道具体为多少个区域... [/B]

你去研究一下-bhatch的说明。

szx025

楼上的,别光说不练,先写一个填充一个区域的程序来看看

zml84

我认为，在command函数中使用pause不妥。
因为难以预料用户交互返回的类型。
比较好的做法是在使用command调用系统命令前完成交互操作，根据交互返回的值来确定下一步的操作。
在这个过程中，即可实现添加自定义的任何功能。