求助：CAD中怎么能缩放到合适的尺寸？一直让这个问题伤着了……

694865935

求助：CAD中怎么能缩放到合适的尺寸？一直让这个问题伤着了……
0 r3 f( K2 d5 ^  求助，客户经常给一些PDF档改图（PDF档是用CAD转进去的），我使用PDF转CAD的软件转回CAD来，却发现图纸的尺寸变了，形装都和原来一样没问题，我试着改标注样式，但算不好比例因子，只好放弃。改用缩放命令，但这样又出现一个问题，就是X方向我缩放好了，可以发现Y方向又差了，套上没改以前的图纸，就能发现这个问题。试着用块来解决要放不同比例缩放因子的问题，能做出来但效果不好，主要是比较因子常常不是个整数，只有用比例缩放里的参照方式来收缩，才是最准的，可是比例缩放里的参照好像不能参照XY两个方向了，想在XY方向参照不同的尺寸进行缩放，不知哪位高人有好办法了，先谢谢了！

362996104

如图不是可以全图缩放么，不知道你是不是说的这个

694865935

谢谢楼上兄弟的回答，我要的不是同时缩放，是X和Y方向能不能都参照不同的尺寸进行缩放

fote1234

可以考虑X、Y方向拉伸解决。

@fly@

- N6 b) @# E- o: o9 \, m( h' l
楼主，你把图形做成块，然后插入块，就可以按照X/Y方向进行缩放了，给你截个图。
3 q" {2 K% ~; f) G3 T5 V
# |; p8 P( D8 Y  K+ M/ v
! N( \" j$ q! [" Z' C- }

luoxian2004

X,Y 向,缩放只有用对齐命令了

woaishuijia

1. ;;;主程序
   6 [2 T0 k8 o  f% j4 a
2. (defun c:SXY (/ mydoc ss sp bn br s)
   ) {! h/ E6 P2 B& g) o) ]2 V/ S9 ]0 }
3. (vl-load-com) ;加载VLISP扩展功能
   : T4 ^/ d/ f1 J( h' E; i
4. (setvar "CMDECHO" 0) ;关闭命令回显
   0 X0 p' Q7 D& I% X$ ]" P
5. (setq mydoc (vla-get-activedocument (vlax-get-acad-object)))
   
6. ;用vla-get前缀函数获取当前CAD进程的活动文档对象
   ) }& a3 M3 X8 f, _4 a6 z) F* ~
7. (setq ss (ssget)) ;创建选择集并由用户在屏幕上选取图元对象
   : s' p$ M4 i% Q+ ?; A
8. (if ss ;检查用户是否有效选择了图元
   
9. (progn ;当用户有效选择了图元时,执行下面的代码
   
10. (setq sp (getpoint "\n指定基点:" ) ;指定缩放(块)基点
    ! k. V/ M( l" ~4 l4 `; o
11. bn (strcat "temp" (rtos (getvar "cdate" ))) ;临时块名称
    
12. )
    ' |; S1 y8 U9 o$ m0 ]- q
13. (command "-block" bn sp ss "" ) ;创建临时块并删除被选择的图元
    
14. (setq br ;在原位置按原尺寸插入临时块参照
    
15. (vla-insertblock ;用vla-前缀函数调用当前空间的insertblock方法
    $ Q( w& ]: d% Y
16. (if (= (vla-get-activespace mydoc) acmodelspace)
    ! i+ K6 E6 E4 K7 \' R: q9 t' g
17. (vla-get-modelspace mydoc)
    
18. (vla-get-paperspace mydoc)
    9 }) B0 H# t* u) |2 g3 e
19. ) ;获取活动文档的当前空间
    $ O4 x. u: ~: `: j' G3 d
20. (vlax-3d-point sp) ;块参照插入点
    6 ?" l0 `6 m+ H# f6 @8 p
21. bn ;块名称
    
22. 1 ;X比例
    
23. 1 ;Y比例
    . P; B( h7 F' S( P- H
24. 1 ;Z比例
    
25. 0 ;旋转角度
    5 T% u8 \8 c. g
26. )
    
27. )
    # t' ~- a# L) B: S/ N# L
28. (setq s (getscale "X" )) ;调用子程序获取X比例因子
    
29. (if s ;检查子程序返回值的有效性
    6 q  D3 a4 l6 ^" o3 U% K5 W3 W
30. (progn ;当返回值有效时继续进行
    + h7 W7 ?2 I4 e5 I0 z7 U
31. (vla-put-xscalefactor br s) ;修改临时块参照的X比例属性
    * q8 w5 ^, r' L* X4 ^
32. (setq s (getscale "Y" )) ;调用子程序获取Y比例因子
    
33. (if s ;检查子程序返回值的有效性
    4 c) D4 y. t& U' V2 C2 s" V4 Y
34. (vla-put-yscalefactor br s) ;修改临时块参照的Y比例属性
    
35. )
    $ ]9 j5 }$ z& h% _
36. )
    # A+ H4 i6 K1 K1 q. }
37. )
    * l; E1 ?) n7 |4 ~! L. X; e
38. (vla-explode br) ;分解临时块参照
    
39. (vla-delete br) ;删除临时块参照
    % X* b. i- g$ I! v" B
40. (vla-delete ;删除临时块定义
    
41. (vla-item (vla-get-blocks
    
42. mydoc
    
43. )
    
44. bn
    
45. )
    
46. )
    - h" C: Q% Q+ V; p% l4 h- ^( \
47. )
    ( Q$ L* R: X+ B- [( w2 k
48. )
    
49. (setvar "CMDECHO" 1) ;打开命令回显
    
50. (princ) ;静默退出
    , f' x& w; g* a. b  ]
51. )
    
52. ;;;=====================================================================
    
53. ;;;子程序
    
54. (defun getscale (s / ut sc l1 l2)
    / S0 T- l, P% \7 A. a) r- ?) j  F
55. (initget 2 "R" ) ;定义用户输入选项(禁止输入0)和关键字
    
56. (setq sc ;用户指定距离做为比例因子
    : s* X" h- v6 Y/ y- S& m
57. (vl-catch-all-apply ;捕获用户输入时的错误
    
58. 'getdist
    
59. (list (strcat "\n指定 " s " 比例因子 或[参照(R)] <1.0000>:" )
    
60. )
    
61. )
    
62. )
    
63. (if (vl-catch-all-error-p sc) ;检查用户输入时是否出错
    
64. nil ;当用户输入出错时,子程序返回值为nil
    
65. (if sc ;用户输入正确时,检查是否直接回车
    
66. (if (= sc "R" ) ;检查用户是否输入关键字
    
67. (progn ;用户输入的是关键字(选择参照选项)
    
68. (initget 3) ;定义用户输入选项(禁止直接回车或输入0)
    
69. (setq l1 ;用户指定参照长度
    ; |5 D2 }! T6 N
70. (vl-catch-all-apply ;捕获用户输入时的错误
    
71. 'getdist
    
72. (list "\n指定参照长度:" )
    
73. )
    
74. )
    7 m6 I1 D' X4 W
75. (if (vl-catch-all-error-p l1) ;检查用户输入时是否出错
    
76. nil ;当用户输入出错时,子程序返回值为nil
    ( u) n3 g* ]) ^+ G
77. (progn ;用户输入正确时继续
    
78. (initget 3) ;定义用户输入选项(禁止直接回车或输入0)
    
79. (setq l2 ;用户指定新长度
    
80. (vl-catch-all-apply ;捕获用户输入时的错误
    ; m3 j  G0 X2 K  i) [' a
81. 'getdist
    
82. (list "\n指定新长度:" )
    
83. )
    
84. )
    + u5 G* D6 J$ Z" r6 G! T
85. (if (vl-catch-all-error-p l2) ;检查用户输入时是否出错
    ' m) O$ F5 T4 }6 x( ]
86. nil ;当用户输入出错时,子程序返回值为nil
    6 \- n) y  T. j( Q
87. (/ l2 l1) ;用户输入正确时计算两个长度的比值做为子程序返回值
    ; r3 @! s( i0 ^5 h% B& X' v
88. )
    . _( ]' k8 o2 J& c, w/ y; p
89. )
    % J3 N4 M8 s( \; ^( w# U
90. )
    ' n' s* [( Q% x( c+ c
91. )
    - W7 u& ]* M9 {. q( G  ~" k
92. sc ;用户输入的是长度值,以此做为子程序返回值
    
93. )
    
94. 1 ;用户直接按回车,用默认的1.0000做为子程序返回值
    
95. )
    
96. )
      `1 b. f2 M' ]% Y6 ]0 i9 w
97. )

复制代码

rookie108

7 楼的方法应该不错。

694865935

谢谢七楼的版大，我一时还没消化，先看学习以后，再来回贴