缩放问题，帮下！！有点急啊！！

ozb2011 · 发表于 2012-5-29 20:36

回复 15# yiminga
应该类似lisp的一个小程序

ozb2011 · 发表于 2012-5-29 20:52

9 H g- Y) [4 l* A8 Z' K
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.' Y5 ]9 h' X6 a& h
/ O" l* U& R7 X. y* D( T0 x4 M
;;( c9 A9 Q( y0 ?( [6 I1 m6 C
# f( `/ i5 g( ^+ ~+ j
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
- @) _4 X& X, L# J2 T
+ w6 y$ R5 P' ~, Q
(vl-load-com)
/ P2 G" R0 N. C, `7 U
9 q# Y. b7 s0 U
(setq ss (ssget '((0 . "DIMENSION")))3 _1 h$ u+ H1 |3 D9 O
+ s! u, C: U) Z- K0 T7 g; g9 o
i 0
# G, J/ m3 O: Y; O8 u& {! y
4 A( S3 w+ S+ H) q( I5 c8 M/ r
)
$ a; a0 R) ^5 u8 m& d% |3 q
7 C7 {$ s7 r* B) d4 N/ z
(repeat (sslength ss) s( L0 G" |& p4 `1 \* m2 E
# A( I- H3 ^' V1 h8 n
(setq ent (ssname ss i)9 b, h8 M# T" o
) O& k4 B' @1 o) k1 l
e (entget ent)" i2 d$ V* K+ w' W
; n( p( B$ t& f: W
e1 (cdr (assoc 1 e))
# F( M. a6 G% x6 N. t @
1 G9 L5 S; v4 L* I$ p
intpnt (cdr (assoc 11 e))
8 v( |3 ?* I6 `% S
! D& q4 }) _1 ^8 g- O
blkname (cdr (assoc 2 e))
8 u( _4 \/ Y1 b( `
: {: F- R$ L8 g( p; [* G) J
blk (vla-item (vla-get-blocks+ Q" [: v5 j5 l# j" t
7 A$ l+ Y9 _9 V- f) M
(vla-get-Activedocument (vlax-get-acad-object))
3 ?+ h P1 b: `$ u
8 { l$ D* h. F. f- {5 A1 u# }
)
* F, V. a/ W- ~$ w8 w
) z2 W2 X) [% `& Z, g( z4 c
blkname7 B, w# i5 u; Q) V9 t
' x# R0 c0 a* E' h9 m8 ?
)5 t% ?' {3 @( c, {
7 i! h2 R$ ~) G1 c+ {' e* o
); g+ r2 X) m8 r4 R& g
0 u6 ?* v- d5 L( X) T2 L0 N
(vlax-for obj blk5 r; e0 c: d* c$ a4 _/ k9 d
* R' _8 z) _& a8 t' U0 Z
(if (= (vla-get-objectname obj) "AcDbMText")' T" P) x4 ~) t- U5 ]& T; f+ o
+ w2 H4 g2 ^6 ^0 t& t
(progn
' X/ d, S ]: k/ j9 V0 ~" M: |
( Y5 h# I: R# _3 E6 T8 c/ n
(setq txt (vla-get-textstring obj)1 J1 J! q! }. [# I' }, L e
1 t7 |" N e& v! r9 e
)# _9 H5 e/ x2 O3 q5 Y6 |% e- u2 _6 p
- v6 e, \ j# W+ H
(if (or (= "" e1) (wcmatch e1 "*<>*"))
6 j% x, G+ E6 C2 U9 I& W
! k+ b; X6 H1 y$ b
(progn. k' w+ v% s, j0 G/ K, y3 r& N; ?
- ?! }& G4 J. d- k* S3 |0 W6 H
(setq e (subst (cons 1 txt) (assoc 1 e) e))
3 v @5 ?4 q, K3 o9 t
. O) _( m( G8 j0 D6 r
(entmod e)
* C2 R9 p' ]- I& k" |' q. L
% A) B' _& q* i& T, Q& M1 f
(entupd ent)- `2 e, g. V5 J1 ^! s7 i+ E3 T+ I( U
* P$ N1 r, i) s: [4 x; q
)) x3 e* G; u" j; V! V* U
8 m t- L( v8 D* V0 m$ w2 N
)
2 c! K2 ~3 q0 k4 j" V9 A
6 m2 q8 Z$ G V) g) Q
). }, p: i3 H. a7 c. ?1 a) w
' t5 y0 ]$ Z4 s
)3 K5 X/ J+ D4 g) J
/ U, W- Q! y& e0 J" |2 {
) (setq i (1+ i))
# n' n4 u7 }/ n. i% _3 f
2 ^1 |9 c. f, ]1 S
)
5 x; \4 u* W$ C2 P+ L2 s
0 r$ N, Q% O, x
(princ)& R0 v5 Y# U& X4 ^2 S$ D; \
6 l& v4 i0 c' s; ~% M
)

复制代码

在网上找了个lisp代码，用上面代码做一个lisp文件，加载后能实现锁定标注文字的功能

yiminga · 发表于 2012-5-29 22:35

回复 17# ozb2011

大哥，西。。我是新手，不会做这程序耶！！做难不难的啊？难就不用教了，不难的话。。。。西。。。。

346244456 · 发表于 2012-5-30 09:22

告诉你个最笨的方法，尽管不规范，但可以解决你当前问题。
把你要打印的图做成块（B），再进行缩放标注就不会变了，你就可以按你想要的比例缩放打图了......

ozb2011 · 发表于 2012-5-30 12:11

复制代码到记事本中，把记事本的后缀名.txt改成.lsp，在cad中输入AP命令，找到你建的lsp文件并加载，加载后输入dmvl命令，然后选择你要锁定的标注

yiminga · 发表于 2012-5-30 21:50

回复 20# ozb2011

好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011 · 发表于 2012-5-31 07:58

回复 21# yiminga

代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011 · 发表于 2012-5-31 08:00

回复 21# yiminga

没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug · 发表于 2012-5-31 10:46

回复 7# yiminga

标注样式的比例也要缩放的。

xgr54 · 发表于 2012-6-7 12:55

只要选窗口打印就行了

GAUDI · 发表于 2012-6-8 16:25

打印比例：按图纸空间缩放

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

[求助] 缩放问题，帮下！！有点急啊！！