[求助]：如何让图上所有的圆圈按比例缩小？

雨箭风刀

楼上没有明白楼主的意思,完全是两码事

zxq0220

最初由 alwaysbin 发布
[B]谢谢，基本可以了，就是如果文字比较多，超出圆圈范围，就不能一起缩小了，
感谢。 [/B]

再改一次：

2. 
   
3. ;晓东 zxq0220 2006.10
   
4. (DEFUN C:SCCIRCLE ()
   
5. (SETVAR "CMDECHO" 0)
   
6. (SETQ OLDOS (GETVAR "OSMODE"))
   
7. (SETVAR "OSMODE" 0)
   
8. (COMMAND ".UNDO" "BE")
   
9. (SETQ SC (GETDIST "\nEnter The Scale :"))
   
10. (IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN
    
11.   (SETQ N -1)
    
12.   (REPEAT (SSLENGTH SS)
    
13.    (SETQ EN (SSNAME SS (SETQ N (1+ N)))
    
14.          ENT (ENTGET EN)
    
15.          PC (CDR (ASSOC 10 ENT))
    
16.          R (CDR (ASSOC 40 ENT))
    
17.          P1 (POLAR PC 0 R)
    
18.          P2 (POLAR PC (/ PI 2) R)
    
19.          P3 (POLAR PC PI R)
    
20.          P4 (POLAR PC (/ PI -2) R)
    
21.          P nil)
    
22.    (IF (> (SSLENGTH (SSGET "C" P1 P1)) 1) (SETQ P P1))
    
23.    (IF (> (SSLENGTH (SSGET "C" P2 P2)) 1) (SETQ P P2))
    
24.    (IF (> (SSLENGTH (SSGET "C" P3 P3)) 1) (SETQ P P3))
    
25.    (IF (> (SSLENGTH (SSGET "C" P4 P4)) 1) (SETQ P P4))
    
26.    (IF P (COMMAND "SCALE" EN "F" P1 P3 "" "" P SC))
    
27.   )
    
28. ))
    
29. (COMMAND ".UNDO" "E")
    
30. (SETVAR "OSMODE" OLDOS)
    
31. (SETVAR "CMDECHO" 1)
    
32. (PRINC)
    
33. )
    

<br /> ;晓东 zxq0220 2006.10<br /> (DEFUN C:SCCIRCLE ()<br /> (SETVAR "CMDECHO" 0)<br /> (SETQ OLDOS (GETVAR "OSMODE"))<br /> (SETVAR "OSMODE" 0)<br /> (COMMAND ".UNDO" "BE")<br /> (SETQ SC (GETDIST "\nEnter The Scale :"))<br /> (IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN<br />   (SETQ N -1)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ EN (SSNAME SS (SETQ N (1+ N)))<br />          ENT (ENTGET EN)<br />          PC (CDR (ASSOC 10 ENT))<br />          R (CDR (ASSOC 40 ENT))<br />          P1 (POLAR PC 0 R)<br />          P2 (POLAR PC (/ PI 2) R)<br />          P3 (POLAR PC PI R)<br />          P4 (POLAR PC (/ PI -2) R)<br />          P nil)<br />    (IF (> (SSLENGTH (SSGET "C" P1 P1)) 1) (SETQ P P1))<br />    (IF (> (SSLENGTH (SSGET "C" P2 P2)) 1) (SETQ P P2))<br />    (IF (> (SSLENGTH (SSGET "C" P3 P3)) 1) (SETQ P P3))<br />    (IF (> (SSLENGTH (SSGET "C" P4 P4)) 1) (SETQ P P4))<br />    (IF P (COMMAND "SCALE" EN "F" P1 P3 "" "" P SC))<br />   )<br /> ))<br /> (COMMAND ".UNDO" "E")<br /> (SETVAR "OSMODE" OLDOS)<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC)<br /> )<br />

xihuliuyue

我也去试试楼上的说招

alwaysbin

15楼的朋友是在搞笑

jx2008

zxq0220

第三个程序有问题，圆圈内的某些实体不能缩放，第二个程序圆圈内的所有实体都能缩放。

最好是所有组选择的实体都能缩放

jonee

9楼的lsp,试后很好用,任何比例都可以,但是代属性的还是不行,不过已经可以满足使用了.谢谢
14楼的,只能以.5scale减小,需要其他缩小的比例就要修改lsp了.使用还是很方便.谢谢
15楼的,选取要准确,只能按照cen点改变,之后还要move到合适的位置才可以.谢谢