求助：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

;;;主程序
$ v, n* K; E9 k. n( P) q
(defun c:SXY (/ mydoc ss sp bn br s)) w( B+ C6 Q G+ i r
(vl-load-com) ;加载VLISP扩展功能
; F% l; `1 E4 e4 c% f% i1 p2 w6 Q$ _
(setvar "CMDECHO" 0) ;关闭命令回显
8 u: ]- z" q. y
(setq mydoc (vla-get-activedocument (vlax-get-acad-object)))9 Y5 @! ~7 j" ^+ ^
;用vla-get前缀函数获取当前CAD进程的活动文档对象& K+ \ {- l8 B* U; i8 |
(setq ss (ssget)) ;创建选择集并由用户在屏幕上选取图元对象
$ e& h9 ^) a. Q- p) g3 D
(if ss ;检查用户是否有效选择了图元
1 ?7 E7 i6 N8 m8 b& H
(progn ;当用户有效选择了图元时,执行下面的代码
( {: ^, B1 g2 p. x
(setq sp (getpoint "\n指定基点:" ) ;指定缩放(块)基点( \! J. J, n3 f5 {
bn (strcat "temp" (rtos (getvar "cdate" ))) ;临时块名称- C# Q9 b6 o$ R: k0 Y( r( n% @
)! p, _% G U# ]5 _
(command "-block" bn sp ss "" ) ;创建临时块并删除被选择的图元
# v5 m# @5 {$ j( q4 l1 C
(setq br ;在原位置按原尺寸插入临时块参照
3 R# }- u* ~% ]& Q& }
(vla-insertblock ;用vla-前缀函数调用当前空间的insertblock方法- o5 V0 o$ i' W2 J) m1 ^
(if (= (vla-get-activespace mydoc) acmodelspace)
# n$ q0 w7 U* P: @1 C
(vla-get-modelspace mydoc)' u6 E- d! t, m$ ~! y# d9 k
(vla-get-paperspace mydoc), z# J6 w7 x) \9 r0 @6 e: m! w& R0 a
) ;获取活动文档的当前空间
+ u9 i* }, A- ~( p
(vlax-3d-point sp) ;块参照插入点
/ g. b0 g/ V+ G3 A( g: t2 `
bn ;块名称
0 ?( U5 {* Z7 Z1 |) S
1 ;X比例
! s5 }1 q, l% a( I6 ]' a
1 ;Y比例
* b0 H- j5 |9 X1 V
1 ;Z比例6 O; ^2 _# I/ @$ Z
0 ;旋转角度: E$ C; |- B; Y' s& @0 }
)
9 F7 O8 `, k7 [- ?# m. X
)# d3 N' |; o% `+ J7 Z2 C
(setq s (getscale "X" )) ;调用子程序获取X比例因子
! m2 T0 l, J- z) c* n
(if s ;检查子程序返回值的有效性
( w/ P9 Y, z$ t; p# c4 q9 C
(progn ;当返回值有效时继续进行
; q+ h3 J r* V; z3 F
(vla-put-xscalefactor br s) ;修改临时块参照的X比例属性+ O( G5 Z7 A+ y, K
(setq s (getscale "Y" )) ;调用子程序获取Y比例因子
& m* D O( x; T( q
(if s ;检查子程序返回值的有效性 ^ `7 @& L+ {5 g1 q7 y3 i
(vla-put-yscalefactor br s) ;修改临时块参照的Y比例属性, N5 v& K5 }" Y$ G, j/ k* v# X
): R; p# R* k8 `7 Q' ~5 v- M
)
2 ]! J5 N& E! g, c
). h: L% D: B& E# Y- I; e) [! a" ~6 _
(vla-explode br) ;分解临时块参照
6 y- \. E3 i5 ^9 b' g# ]
(vla-delete br) ;删除临时块参照
' ^: ?) Z# v W
(vla-delete ;删除临时块定义
0 [- L8 V% r; ]
(vla-item (vla-get-blocks
: r: a/ p# K0 I* d9 f
mydoc
- m0 l; o* h! _! p) Q1 v
)
2 J9 F, L5 m0 K- l7 r
bn
) l* N) ^. f/ e7 E/ y
)9 ?, h! J3 i! I; P
)
" X' ?6 _) O9 h* B5 [. P( j
)( p- I8 h G, y! d4 B- z; q
)9 a. I# p% k. N6 x& S. [# f! v. ?' {4 Y
(setvar "CMDECHO" 1) ;打开命令回显0 C n+ n+ m# i9 O' Q$ t$ v+ J
(princ) ;静默退出
4 L) ~5 ^* L- b( o
)
{ L( J4 f) d6 o; q
;;;=====================================================================
1 X( D9 h1 F( n; T% `
;;;子程序+ l, D; b d0 R; J" o+ l$ u9 E% ?; D+ [
(defun getscale (s / ut sc l1 l2)& _. l4 ^$ x: F6 T Y* @
(initget 2 "R" ) ;定义用户输入选项(禁止输入0)和关键字, P" g+ K' r: `+ N, C7 `/ Q5 i. A
(setq sc ;用户指定距离做为比例因子
/ [. L: d' p0 {/ s8 t) b
(vl-catch-all-apply ;捕获用户输入时的错误
+ @/ p, K: L0 y! e# F, [
'getdist! t- E6 o/ b( Q W$ G. [1 {
(list (strcat "\n指定 " s " 比例因子或[参照(R)] <1.0000>:" )$ b) a, V3 d1 D. [ J! R
)' w$ h9 J0 `, H; w3 ~
)# T1 k$ {' B7 e" g- |9 ~
)
; T& y9 ~. K. i. w6 A
(if (vl-catch-all-error-p sc) ;检查用户输入时是否出错& w% y4 R/ W" I; g
nil ;当用户输入出错时,子程序返回值为nil3 V2 [% t$ S4 b, e2 z7 Y
(if sc ;用户输入正确时,检查是否直接回车6 Y* `. q6 ]8 M6 k
(if (= sc "R" ) ;检查用户是否输入关键字
% L* o; p ?" Y4 D
(progn ;用户输入的是关键字(选择参照选项)
; W) @* J7 a# Z
(initget 3) ;定义用户输入选项(禁止直接回车或输入0)* z2 v) _' l) C& B
(setq l1 ;用户指定参照长度7 P) [; P# H' ?" N
(vl-catch-all-apply ;捕获用户输入时的错误
) G0 Z( X; b# J/ H3 m5 M
'getdist
) j* E& q; S ]# {
(list "\n指定参照长度:" )
2 A& \% s0 v5 H+ U; c- ~' x
)
/ u! g2 Z, R/ M1 g {1 E
)2 A! f5 P5 t( c6 Q# } _( ?
(if (vl-catch-all-error-p l1) ;检查用户输入时是否出错
* R3 P2 B4 k2 S* R/ T
nil ;当用户输入出错时,子程序返回值为nil. ~ s: P" } Y2 N% q6 o0 [8 N0 l6 H
(progn ;用户输入正确时继续
/ ? ]/ h1 G5 L3 ]
(initget 3) ;定义用户输入选项(禁止直接回车或输入0)
1 I7 @3 m/ I9 Z9 {8 m$ g# H
(setq l2 ;用户指定新长度
' Y6 [7 A1 j1 F5 r" [+ d0 w5 o4 C
(vl-catch-all-apply ;捕获用户输入时的错误
3 w% m+ T& Z; z4 ^* R
'getdist; q# ], q e: K1 W
(list "\n指定新长度:" )
) {3 F9 c/ P0 R( q+ J, s6 p
)
; O% W& U# u6 ^9 v! H
)* z. m& U% D$ v8 _! {/ H
(if (vl-catch-all-error-p l2) ;检查用户输入时是否出错
6 D. v) l" Z3 n% E" Z3 h
nil ;当用户输入出错时,子程序返回值为nil
C( z) h J6 k0 y, c
(/ l2 l1) ;用户输入正确时计算两个长度的比值做为子程序返回值
- j% U& F8 G d$ x6 R, q1 r& f' T
)7 F/ m) z/ y' Z1 S# ^3 K0 r- K2 c
)/ \2 y' }; q' a) i/ ^
)* f$ F* ]2 b; ]4 v. |: {
)7 ]8 f K" \, E
sc ;用户输入的是长度值,以此做为子程序返回值. t7 G' J& K' {% ?" X
); e' X" ?) F1 ]( }) O
1 ;用户直接按回车,用默认的1.0000做为子程序返回值
+ b7 `' d" H, b. `. f: ?/ I
)
" n) i) _" t9 e. {2 \; c
)
( @9 \, l4 F! ?( W) F
)

复制代码

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

7 楼的方法应该不错。

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

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

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

通知

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

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

浏览过的版块