Restores expected behavior of STRETCH command in ACAD 2006

eachy

2. 
   
3. ;;;----------------StretchRight.lsp-----------------------------------------
   
4. ;;; Purpose: Restores expected behavior of STRETCH command in ACAD 2006
   
5. ;;; Author : Herman Mayfarth
   
6. ;;; Date   : 4/23/2005
   
7. ;;; Version: 1.1
   
8. ;;; Permission granted to freely use and redistribute without fee.
   
9. ;;; Supplied "as is," and without warranty, express or implied.
   
10. ;;; Acknowledgements: Many thanks to Joe Burke & John Uhden for discovering
    
11. ;;; STRETCH command behaves as if PICKAUTO=0 when called from a LISP routine,
    
12. ;;; unless the value of QAFLAGS is >0, and to Trey Mansour for testing this.
    
13. ;;;-------------------------------------------------------------------------
    
14. (vl-cmdf "undefine" "_stretch")
    
15. (defun C:Stretch (/ *error* oldpik oldqaf olcmd)
    
16.   (defun *error* (msg /)
    
17.     (setvar "pickstyle" oldpik)
    
18.     (setvar "qaflags" oldqaf)
    
19.   )
    
20.   (setq        oldpik (getvar "pickstyle")
    
21.         oldqaf (getvar "qaflags")
    
22.         oldcmd (getvar "cmdecho") ;_ add
    
23.   )
    
24.   (setvar "cmdecho" 1)
    
25.   (setvar "qaflags" 1)
    
26.   (cond        ((member oldpik '(1 3)) ;_group selection enabled
    
27.          (setvar "pickstyle" (1- oldpik)) ;_disable object grouping
    
28.          (vl-cmdf "_.stretch") ;_invoke native stretch command
    
29.          (while        (= (logand (getvar "CMDACTIVE") 1) 1)
    
30.            (command pause)
    
31.          ) ;_pause until completion
    
32.         )
    
33.         (1 ;_group selection disabled
    
34.          (vl-cmdf "_.stretch") ;_invoke native stretch command
    
35.          (while        (= (logand (getvar "CMDACTIVE") 1) 1)
    
36.            (command pause)
    
37.          ) ;_pause until completion
    
38.         )
    
39.   ) ;_cond
    
40.   (setvar "cmdecho" oldcmd)
    
41.   (*error* nil) ;_restore sysvars
    
42.   (princ)
    
43. ) ;_C:Stretch
    
44. (princ "\n StretchRight Loaded.")
    
45. (princ)
    

<br /> ;;;----------------StretchRight.lsp-----------------------------------------<br /> ;;; Purpose: Restores expected behavior of STRETCH command in ACAD 2006<br /> ;;; Author : Herman Mayfarth<br /> ;;; Date   : 4/23/2005<br /> ;;; Version: 1.1<br /> ;;; Permission granted to freely use and redistribute without fee.<br /> ;;; Supplied "as is," and without warranty, express or implied.<br /> ;;; Acknowledgements: Many thanks to Joe Burke & John Uhden for discovering <br /> ;;; STRETCH command behaves as if PICKAUTO=0 when called from a LISP routine,<br /> ;;; unless the value of QAFLAGS is >0, and to Trey Mansour for testing this.<br /> ;;;-------------------------------------------------------------------------<br /> (vl-cmdf "undefine" "_stretch")<br /> (defun C:Stretch (/ *error* oldpik oldqaf olcmd)<br />   (defun *error* (msg /)<br />     (setvar "pickstyle" oldpik)<br />     (setvar "qaflags" oldqaf)<br />   )<br />   (setq        oldpik (getvar "pickstyle")<br />         oldqaf (getvar "qaflags")<br />         oldcmd (getvar "cmdecho") ;_ add<br />   )<br />   (setvar "cmdecho" 1)<br />   (setvar "qaflags" 1)<br />   (cond        ((member oldpik '(1 3)) ;_group selection enabled<br />          (setvar "pickstyle" (1- oldpik)) ;_disable object grouping<br />          (vl-cmdf "_.stretch") ;_invoke native stretch command<br />          (while        (= (logand (getvar "CMDACTIVE") 1) 1)<br />            (command pause)<br />          ) ;_pause until completion<br />         )<br />         (1 ;_group selection disabled<br />          (vl-cmdf "_.stretch") ;_invoke native stretch command<br />          (while        (= (logand (getvar "CMDACTIVE") 1) 1)<br />            (command pause)<br />          ) ;_pause until completion<br />         )<br />   ) ;_cond<br />   (setvar "cmdecho" oldcmd)<br />   (*error* nil) ;_restore sysvars<br />   (princ)<br /> ) ;_C:Stretch<br /> (princ "\n StretchRight Loaded.")<br /> (princ)<br />

pzweng

替换CAD的查找，先试下:)

清风明月10

是拉伸用的一个插件