请问e派工具箱的xy方向缩放工具的源程序是什么 ？要他的那种效果

恋恋有旺

2. ;x,y方向不同比例缩放
   
3. ; ***  XSCALE   [Version 1.0] 6/22/2005  ***
   
4. ;
   
5. ;Copyleft Gu Wenwei
   
6. ;
   
7. ; ***************************************
   
8. ; ****  Author:  Apooollo            ****
   
9. ; ****                               ****
   
10. ; ****  Wuxi Jiangsu China           ****
    
11. ; ***************************************
    
12. ;
    
13. ;
    
14. ; This program takes selected objects, defines an anonymous block,
    
15. ; then inserts the block at the original location, Scale by X,Y
    
16. 
    
17. 
    
18. (defun C:XSCALE(/ bp ss xscal yscal entL)
    
19. 
    
20.   (defun errexit (s)
    
21.     (princ "\nError:  ")
    
22.     (princ s)
    
23.     (restore)
    
24.   )
    
25. 
    
26.   (defun restore ()
    
27.     (setvar "CMDECHO" (car oldvar))
    
28.     (setq *error* olderr)
    
29.     (princ)
    
30.   )
    
31.   
    
32. (defun MAKEUNBLOCK (ss ip / tmp errexit mbx BLAYER)
    
33. 
    
34.   (setq T (not nil))
    
35.   (setq olderr  *error*
    
36.         *error* errexit
    
37.   )
    
38.   (setq oldvar
    
39.     (list
    
40.       (getvar "CMDECHO")
    
41.     )
    
42.   )
    
43.   (setvar "CMDECHO" 0)
    
44.   (terpri)
    
45.   (if BLAYER  
    
46.     (command "._LAYER"
    
47.       (if (tblsearch "LAYER" BLAYER) "_S" "_M")
    
48.       BLAYER
    
49.       ""
    
50.     )
    
51.   )
    
52.   (if (and ip ss)
    
53.     (progn
    
54.       (entmake (list
    
55.         (cons '0 "BLOCK")
    
56.         (cons '2 "*U")
    
57.         (cons '70 1)
    
58.         (cons '10 ip)
    
59.       ))
    
60.       (setq cnt (sslength ss))
    
61.       (while (>= (setq cnt (1- cnt)) 0)
    
62.         (setq tmp (ssname ss cnt))
    
63.         (entmake (setq el (entget tmp)))
    
64.         (if (> (cdr (assoc 66 el)) 0)
    
65.           (while
    
66.             (/= "SEQEND"
    
67.               (cdr
    
68.                 (assoc 0
    
69.                   (entmake (setq el (entget (entnext (cdr (assoc -1 el))))))
    
70.                 )
    
71.               )
    
72.             )
    
73.           )
    
74.         )
    
75.         (entdel tmp)
    
76.       )
    
77.       (setq tmp (entmake (list (cons '0 "ENDBLK"))))
    
78.       (entmake (list
    
79.         (cons '0 "INSERT")
    
80.         (cons '2 tmp)
    
81.         (cons '10 ip)
    
82.       ))
    
83.     )
    
84.   )  
    
85.   (restore)
    
86. )
    
87. 
    
88.   (setq ss (ssget))    ;;; 选择缩放实体
    
89.   (if ss
    
90.     (progn
    
91.       (setvar "cmdecho" 0)
    
92.       (setq bp (getpoint "缩放基准点 (<0,0,0>): "))
    
93.       (if (not bp) (setq bp (list 0 0 0)))
    
94.       (setq xscal (getreal "X向比例因子 <1>: "))
    
95.       (if (not xscal) (setq xscal 1))
    
96.       (setq yscal (getreal "Y向比例因子 <1>: "))
    
97.       (if (not yscal) (setq yscal 1))
    
98.       (MAKEUNBLOCK ss bp)
    
99.       (setq entL (entget (entLast))
    
100.           entL (subst (cons 41 xscal) (assoc 41 entL) entL)
     
101.           entL (subst (cons 42 yscal) (assoc 42 entL) entL)
     
102.       )
     
103.       (entmod entL)
     
104.       (command "_explode" "l" "")
     
105.     )
     
106.   )
     
107.   (princ "X,Y不同比例缩放, 命令:XSCALE")
     
108. )

;x,y方向不同比例缩放<br /> ; ***  XSCALE   [Version 1.0] 6/22/2005  ***<br /> ;<br /> ;Copyleft Gu Wenwei<br /> ;<br /> ; ***************************************<br /> ; ****  Author:  Apooollo            ****<br /> ; ****                               ****<br /> ; ****  Wuxi Jiangsu China           ****<br /> ; ***************************************<br /> ;<br /> ;<br /> ; This program takes selected objects, defines an anonymous block,<br /> ; then inserts the block at the original location, Scale by X,Y<br /> <br /> <br /> (defun C:XSCALE(/ bp ss xscal yscal entL)<br /> <br />   (defun errexit (s)<br />     (princ "\nError:  ")<br />     (princ s)<br />     (restore)<br />   )<br /> <br />   (defun restore ()<br />     (setvar "CMDECHO" (car oldvar))<br />     (setq *error* olderr)<br />     (princ)<br />   )<br />   <br /> (defun MAKEUNBLOCK (ss ip / tmp errexit mbx BLAYER)<br /> <br />   (setq T (not nil))<br />   (setq olderr  *error*<br />         *error* errexit<br />   )<br />   (setq oldvar <br />     (list <br />       (getvar "CMDECHO") <br />     )<br />   )<br />   (setvar "CMDECHO" 0)<br />   (terpri)<br />   (if BLAYER  <br />     (command "._LAYER"<br />       (if (tblsearch "LAYER" BLAYER) "_S" "_M")<br />       BLAYER<br />       ""<br />     )<br />   )<br />   (if (and ip ss)<br />     (progn<br />       (entmake (list <br />         (cons '0 "BLOCK") <br />         (cons '2 "*U") <br />         (cons '70 1) <br />         (cons '10 ip)<br />       ))<br />       (setq cnt (sslength ss))<br />       (while (>= (setq cnt (1- cnt)) 0)<br />         (setq tmp (ssname ss cnt))<br />         (entmake (setq el (entget tmp)))<br />         (if (> (cdr (assoc 66 el)) 0)<br />           (while<br />             (/= "SEQEND"<br />               (cdr<br />                 (assoc 0<br />                   (entmake (setq el (entget (entnext (cdr (assoc -1 el))))))<br />                 )<br />               )<br />             )<br />           )<br />         )<br />         (entdel tmp)<br />       ) <br />       (setq tmp (entmake (list (cons '0 "ENDBLK"))))<br />       (entmake (list <br />         (cons '0 "INSERT") <br />         (cons '2 tmp) <br />         (cons '10 ip)<br />       ))<br />     )<br />   )  <br />   (restore)<br /> )<br /> <br />   (setq ss (ssget))    ;;; 选择缩放实体<br />   (if ss<br />     (progn<br />       (setvar "cmdecho" 0)<br />       (setq bp (getpoint "缩放基准点 (<0,0,0>): "))<br />       (if (not bp) (setq bp (list 0 0 0)))<br />       (setq xscal (getreal "X向比例因子 <1>: "))<br />       (if (not xscal) (setq xscal 1))<br />       (setq yscal (getreal "Y向比例因子 <1>: "))<br />       (if (not yscal) (setq yscal 1))<br />       (MAKEUNBLOCK ss bp)<br />       (setq entL (entget (entLast))<br />           entL (subst (cons 41 xscal) (assoc 41 entL) entL)<br />           entL (subst (cons 42 yscal) (assoc 42 entL) entL)<br />       )<br />       (entmod entL)<br />       (command "_explode" "l" "")<br />     )<br />   )<br />   (princ "X,Y不同比例缩放, 命令:XSCALE")<br /> )

999999

支持支持，谢谢楼主的话题，谢谢各位大神的讨论

下文没句号。

来看看啦。。