[其他]：XDLSP.LSP中两个问题。

eachy

1 错误处理函数没有改（5.11升级中）
现：

2. 
   
3. ;;; 错误处理函数
   
4. (defun $XDLSP_ERROR (st)
   
5.   (if (and
   
6.         (/= st "Function cancelled")
   
7.         (/= st "quit / exit abort")
   
8.       )
   
9.     (princ (strcat "\n错误: " st "\n"))
   
10.   )
    
11.   (xdrx_end)
    
12.   (xdrx_SysVar_Pop)
    
13.   (xdrx_drawing_viewres)
    
14.   (xdrx_pbarend)
    
15.   (setq *error* $XDLSP_ERROR)
    
16. )

<br /> ;;; 错误处理函数<br /> (defun $XDLSP_ERROR (st)<br />   (if (and<br />         (/= st "Function cancelled")<br />         (/= st "quit / exit abort")<br />       )<br />     (princ (strcat "\n错误: " st "\n"))<br />   )<br />   (xdrx_end)<br />   (xdrx_SysVar_Pop)<br />   (xdrx_drawing_viewres)<br />   (xdrx_pbarend)<br />   (setq *error* $XDLSP_ERROR)<br /> )

应为

2. 
   
3. ;;; 错误处理函数
   
4. (defun $XDLSP_ERROR (st)
   
5.   (if (and
   
6.         (/= st "Function cancelled")
   
7.         (/= st "quit / exit abort")
   
8.       )
   
9.     (princ (strcat "\n错误: " st "\n"))
   
10.   )  
    
11.   (xdrx_SysVar_Pop)
    
12.   (xdrx_drawing_viewres)
    
13.   (xdrx_pbarend)
    
14.   (xdrx_end)
    
15.   (setq *error* $XDLSP_ERROR)
    
16. )

<br /> ;;; 错误处理函数<br /> (defun $XDLSP_ERROR (st)<br />   (if (and<br />         (/= st "Function cancelled")<br />         (/= st "quit / exit abort")<br />       )<br />     (princ (strcat "\n错误: " st "\n"))<br />   )  <br />   (xdrx_SysVar_Pop)<br />   (xdrx_drawing_viewres)<br />   (xdrx_pbarend)<br />   (xdrx_end)<br />   (setq *error* $XDLSP_ERROR)<br /> )

2  

2. 
   
3. ;|
   
4.    选择集亮显
   
5. |;
   
6. (defun $xdlsp_PickSet_redraw (ss mode)
   
7.   (xdrx_setsstodb ss 9)
   
8.   (while (setq e (xdrx_getentdata 9))
   
9.     (redraw e mode)
   
10.   )
    
11.   t
    
12. )

<br /> ;|<br />    选择集亮显<br /> |;<br /> (defun $xdlsp_PickSet_redraw (ss mode)<br />   (xdrx_setsstodb ss 9)<br />   (while (setq e (xdrx_getentdata 9))<br />     (redraw e mode)<br />   )<br />   t<br /> )

其中的 e 为全局变量，不注意时会在程序中冲突。

XDSoft

最初由 eachy 发布
[B]1 错误处理函数没有改（5.11升级中）
现：
[code]
;;; 错误处理函数
(defun $XDLSP_ERROR (st)
  (if (and
        (/= st "Function cancelled")
        (/= st "quit / exit abort")
      )
    (princ (strcat "\n错... [/B]

错误处理函数已经修正.

选择集亮显现在应该用xdrx_pickset_redraw 来代替了,速度更快.