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

694865935 · 发表于 2011-8-2 09:52:32

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 694865935 于 2011-8-2 11:18 编辑

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

362996104 · 发表于 2011-8-2 10:17:52

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

694865935 · 发表于 2011-8-2 11:16:09

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

fote1234 · 发表于 2011-8-2 12:46:36

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

@fly@ · 发表于 2011-8-2 14:01:57

本帖最后由 @fly@ 于 2011-8-2 14:12 编辑

楼主，你把图形做成块，然后插入块，就可以按照X/Y方向进行缩放了，给你截个图。

１.jpg

luoxian2004 · 发表于 2011-8-3 11:27:30

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

woaishuijia · 发表于 2011-8-4 03:25:36

;;;主程序
. ?2 H2 j- t! c- Q) D4 v( @
(defun c:SXY (/ mydoc ss sp bn br s)- j6 }! t) q7 O- M6 U. q. S ]* n
(vl-load-com) ;加载VLISP扩展功能
# c7 X$ x6 I9 W* Q1 U0 F; k1 B& m# _
(setvar "CMDECHO" 0) ;关闭命令回显
$ j* ~' i2 b) Z8 I$ W8 T7 j9 h4 g
(setq mydoc (vla-get-activedocument (vlax-get-acad-object)))
8 G+ S/ w& S# z
;用vla-get前缀函数获取当前CAD进程的活动文档对象
Z4 m8 n, p& K+ t- f: B
(setq ss (ssget)) ;创建选择集并由用户在屏幕上选取图元对象
; P& C# b& o6 I3 y0 u
(if ss ;检查用户是否有效选择了图元4 p4 z3 _$ k# z6 a
(progn ;当用户有效选择了图元时,执行下面的代码2 v, g( U6 H6 ~/ s- _$ i' X. B
(setq sp (getpoint "\n指定基点:" ) ;指定缩放(块)基点" ?6 z2 T. @3 w- J+ I
bn (strcat "temp" (rtos (getvar "cdate" ))) ;临时块名称6 p# y$ W- T3 g! g M$ K
)
6 V0 R+ M, |5 h/ x8 Z, E5 \7 @7 h! `
(command "-block" bn sp ss "" ) ;创建临时块并删除被选择的图元4 @: f; H7 C, t( \/ y
(setq br ;在原位置按原尺寸插入临时块参照/ H1 E, t% C- C; U$ h. ^
(vla-insertblock ;用vla-前缀函数调用当前空间的insertblock方法
8 X3 H5 @' r- |$ O" ?0 P: W3 U. ]7 x
(if (= (vla-get-activespace mydoc) acmodelspace)& {3 G& X+ z) y. o
(vla-get-modelspace mydoc)0 h; S8 I0 _+ G b' J) P" |
(vla-get-paperspace mydoc)
( }# l; z, {) m! f
) ;获取活动文档的当前空间; B F! w1 R2 L4 _% q
(vlax-3d-point sp) ;块参照插入点
6 }& g4 V a4 w# u- T
bn ;块名称
7 Z4 e G8 A& i, R1 h# h
1 ;X比例
+ O2 R4 I8 d8 h1 B
1 ;Y比例+ Q1 b. m8 I4 ~8 {
1 ;Z比例
9 G5 L! U; }1 H0 `$ y, t* O
0 ;旋转角度* z. D% f2 V, s' t M
)# E0 J2 C: g: \$ L) z: q0 K
)
# H! j' R8 z9 |4 q/ f( s; D/ C
(setq s (getscale "X" )) ;调用子程序获取X比例因子
5 k4 t9 m: F+ W2 }. h
(if s ;检查子程序返回值的有效性
) d- m& X( I1 o4 G0 @: L
(progn ;当返回值有效时继续进行
" o; H' R' F" Z
(vla-put-xscalefactor br s) ;修改临时块参照的X比例属性9 [6 m9 X* b. }6 l5 D7 }
(setq s (getscale "Y" )) ;调用子程序获取Y比例因子
2 g* R" q9 q9 N# q- k% v, V0 W, _
(if s ;检查子程序返回值的有效性
0 x0 j" {5 V( ~* b
(vla-put-yscalefactor br s) ;修改临时块参照的Y比例属性# t0 w7 g* r! T4 [0 |/ u, n7 V
); r) v/ n1 y5 ]5 h
)) K3 w4 `8 Y& B) ~3 G
)
% \( Q5 M+ j- b# w/ P
(vla-explode br) ;分解临时块参照6 ]2 I8 `; z: y; ?9 N7 _1 f( h
(vla-delete br) ;删除临时块参照
; E0 r5 b; u: B% N
(vla-delete ;删除临时块定义: H& A5 Q8 g1 A2 x4 w
(vla-item (vla-get-blocks
0 }" n" ?' q5 ]
mydoc
0 r6 f: @' K0 R! J/ X
)
5 B3 w/ x Q) {& f7 S. `# N
bn
0 s9 _* X" |! C
)0 ?* M* t* ^: i1 g
); \; _! G& i6 D. `' ^& |9 e
)8 a4 ?( x/ x. ^6 ?' N
)2 q. ~8 K4 i. [1 H5 p
(setvar "CMDECHO" 1) ;打开命令回显
$ @; q) V8 J- z2 Y
(princ) ;静默退出
. n. Z" Z8 C, K: T( X
)
( \( l" I7 b5 V; j5 p# S/ s
;;;=====================================================================# ~: r4 Y" Y: r o' w
;;;子程序0 Z9 h) t' N6 k. e1 @
(defun getscale (s / ut sc l1 l2)$ |$ L8 n! p* N+ H
(initget 2 "R" ) ;定义用户输入选项(禁止输入0)和关键字3 m, J% {& U# L0 @5 n6 w
(setq sc ;用户指定距离做为比例因子7 h! l4 Q B4 C! y) m
(vl-catch-all-apply ;捕获用户输入时的错误" g6 f! v5 C4 Z% C- V T+ q! O
'getdist
) ?" J. ^5 y. q; ]8 q9 C; h
(list (strcat "\n指定 " s " 比例因子或[参照(R)] <1.0000>:" )5 y$ W0 f" j9 R% s
)& ^* M. P) R% f( c1 E. ]& w
)" t5 }: M3 L6 s; J
)1 E- _7 F- M" j5 L- @, y/ ?
(if (vl-catch-all-error-p sc) ;检查用户输入时是否出错
, h u @% V$ |$ T, F
nil ;当用户输入出错时,子程序返回值为nil
. a( M; m, _) N9 P1 I' r$ {
(if sc ;用户输入正确时,检查是否直接回车6 `6 u5 ~& O3 M+ C$ `
(if (= sc "R" ) ;检查用户是否输入关键字7 r1 D3 u/ ^) d! W
(progn ;用户输入的是关键字(选择参照选项) T2 V/ @% @: x. }$ r
(initget 3) ;定义用户输入选项(禁止直接回车或输入0)5 l% O& k: Q2 G
(setq l1 ;用户指定参照长度( `$ f/ f! r4 f" Y- T
(vl-catch-all-apply ;捕获用户输入时的错误: I" X( B# a: ^" B" W2 O
'getdist
( l7 u m: h; m% Y; c( }
(list "\n指定参照长度:" )
" |2 F& g8 R! i8 B+ `/ O
)2 q2 P& I& _) b6 s+ Q, [
)2 t/ M6 c8 P9 K4 ]& d1 G% L
(if (vl-catch-all-error-p l1) ;检查用户输入时是否出错1 Y" x( b l M$ G, w
nil ;当用户输入出错时,子程序返回值为nil8 S. q0 O9 t/ n. b1 B( B
(progn ;用户输入正确时继续
) _ t. V6 X+ ^6 u* I' Q" F7 L
(initget 3) ;定义用户输入选项(禁止直接回车或输入0); U: T2 i- z; w; H: d$ D
(setq l2 ;用户指定新长度
! |# p& g7 E Y% Z$ a: O; [
(vl-catch-all-apply ;捕获用户输入时的错误6 `( `8 t2 F8 Y7 D n/ ?* R
'getdist
# Y& k. b9 ` P7 n# D
(list "\n指定新长度:" )
) j! e. |* S2 I& s6 Z: y+ z
). Q* M% i$ y9 |5 o6 B
)6 [( j) @, V; P1 w
(if (vl-catch-all-error-p l2) ;检查用户输入时是否出错 ?" X7 B) K- ]$ X6 C
nil ;当用户输入出错时,子程序返回值为nil* B1 k7 x/ M. r
(/ l2 l1) ;用户输入正确时计算两个长度的比值做为子程序返回值
. p& U: D. K" E) V9 C. g D
)
9 P, y; O! t2 J
)
: ?/ D1 f" m+ z" `- v9 O
)6 m3 L) h5 y$ r/ @! Y( _
)* `! u( ]" Z) z9 T9 t
sc ;用户输入的是长度值,以此做为子程序返回值
, i, p+ b! J2 q) J9 c) W% E3 z
)7 g4 u. g' {) }' g" h+ d& ~+ t
1 ;用户直接按回车,用默认的1.0000做为子程序返回值' H# A K# B. A) Z
)
+ p& u+ m/ B8 u
)
' r; m. A l( d0 x9 f' Y3 a
)

复制代码

rookie108 · 发表于 2011-8-4 14:18:23

7 楼的方法应该不错。

694865935 · 发表于 2011-8-4 14:23:01

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

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块