[编程申请]：求助 版主 请给我编个程序 谢谢！！！

ZQHCLX

能不能给我编一个程序，批量把所有的圆圈沿圆中心缩放相应的比例

eachy

2. 
   
3. (defun c:test (/ ss  bl)
   
4. (xdrx_begin)
   
5. (xdrx_sysvar_push "osmode")
   
6. (princ "\n选择圆[ALL - 全选]...")
   
7. (setq ss (ssget '((0 . "Circle"))))
   
8. (if ss
   
9.     (progn
   
10.       (setq bl (getreal "\n缩放比例: "))
    
11.       (xdrx_setsstodb ss 0)
    
12.       (while (xdrx_getentdata 0)
    
13.           (xdrx_modent 40 (* (xdrx_getentdxf 40) bl))
    
14.       )
    
15.    )
    
16.   )
    
17.   (xdrx_sysvar_pop)
    
18.   (xdrx_end)
    
19.   (princ)
    
20. )

<br /> (defun c:test (/ ss  bl)<br /> (xdrx_begin)<br /> (xdrx_sysvar_push "osmode")<br /> (princ "\n选择圆[ALL - 全选]...")<br /> (setq ss (ssget '((0 . "Circle"))))<br /> (if ss<br />     (progn<br />       (setq bl (getreal "\n缩放比例: "))<br />       (xdrx_setsstodb ss 0)<br />       (while (xdrx_getentdata 0)<br />           (xdrx_modent 40 (* (xdrx_getentdxf 40) bl))<br />       )<br />    )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )

ZQHCLX

可以，谢谢斑竹

eachy

最初由 ZQHCLX 发布
[B]能不能给我编一个程序，批量把所有的圆圈沿圆中心缩放相应的比例 [/B]

以前有个缩放文字的，换个通用的实体中心缩放

2. 
   
3. ;;实体中心缩放.
   
4. (defun C:cScale (/ ss bl mat e box cen)
   
5.   (xdrx_begin)
   
6.   (xdrx_ucson)
   
7.   (xdrx_sysvar_push "osmode")
   
8.   (setq e (entsel "\n点选典型实体: "))
   
9.   (if e
   
10.     (progn
    
11.       (princ "\n选择范围[ALL - 全选]...")
    
12.       (setq ss (ssget (list (assoc 0 (entget (car e))))))
    
13.       (if ss
    
14.         (progn
    
15.           (setq bl (getreal "\n缩放比例: "))
    
16. 
    
17.           (xdrx_setsstodb ss 0)
    
18.           (while (setq e (xdrx_getentdata 0))
    
19.             (setq box (xdrx_entity_box e)
    
20.                   cen (xdrx_midp (cadr box) (last box))
    
21.             )
    
22.             (setq mat (xdrx_matrix_setscale
    
23.                         (xdrx_matrix_identity)
    
24.                         bl
    
25.                         cen
    
26.                       )
    
27.             )
    
28.             (xdrx_entity_transform e mat)
    
29.           )
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34.   (xdrx_sysvar_pop)
    
35.   (xdrx_ucsoff)
    
36.   (xdrx_end)
    
37.   (princ)
    
38. )
    

<br /> ;;实体中心缩放.<br /> (defun C:cScale (/ ss bl mat e box cen)<br />   (xdrx_begin)<br />   (xdrx_ucson)<br />   (xdrx_sysvar_push "osmode")<br />   (setq e (entsel "\n点选典型实体: "))<br />   (if e<br />     (progn<br />       (princ "\n选择范围[ALL - 全选]...")<br />       (setq ss (ssget (list (assoc 0 (entget (car e))))))<br />       (if ss<br />         (progn<br />           (setq bl (getreal "\n缩放比例: "))<br /> <br />           (xdrx_setsstodb ss 0)<br />           (while (setq e (xdrx_getentdata 0))<br />             (setq box (xdrx_entity_box e)<br />                   cen (xdrx_midp (cadr box) (last box))<br />             )<br />             (setq mat (xdrx_matrix_setscale<br />                         (xdrx_matrix_identity)<br />                         bl<br />                         cen<br />                       )<br />             )<br />             (xdrx_entity_transform e mat)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

ZQHCLX

可以，太谢谢斑竹了