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

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

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

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

0 p2 i' R) r a- R- v# B/ C d3 O
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
1 e7 S- S1 ^- D# w6 w8 H( w
. D- z, B! t8 Y9 h4 g/ K
;;
/ p Y `; o' I; O; n
7 `1 n" [0 e! }0 _3 y
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)0 N% _8 s c" }3 P, B$ n. o# J
5 W6 k6 a+ L+ K: E& n# O
(vl-load-com)2 r1 n% C |7 i8 J/ C8 N9 ^( U2 f
- {) O8 |. S# D
(setq ss (ssget '((0 . "DIMENSION")))
- W$ y* G3 h& C! X
# d# r0 F1 L7 m3 ^& V: N
i 0* E3 Q, `+ b0 p# y# f* L) |. S5 v l
9 e" t$ ]* q" }$ p6 W# t5 U
)7 J7 k; O$ u: ?. g1 J
/ a* l- ~8 Q) W
(repeat (sslength ss)
0 ~5 }1 Q+ V7 r- R
- }+ S& p/ [( G9 y) h1 a
(setq ent (ssname ss i)0 `" W4 h) z3 x# |
0 X) M; `$ n1 b4 E
e (entget ent)2 N1 m5 x4 t1 m( S* A4 O& ~4 B( F- E) J# g
, G/ ^( x, R; `
e1 (cdr (assoc 1 e)) f- L, Q6 @0 ^/ c# x' [, _/ T
/ H( c( h+ @; j% p
intpnt (cdr (assoc 11 e))
% ?1 F _( b& d
b7 l+ ]- r" A; U- p0 Q& ~
blkname (cdr (assoc 2 e)). Z, \7 }( f' m2 V
3 m2 v( h$ G( i' B( S
blk (vla-item (vla-get-blocks
6 ^. ~4 a" g4 {# g: P: ~( L
5 V( ?3 [0 A& f% w3 W7 h5 N; Y
(vla-get-Activedocument (vlax-get-acad-object))
. ]3 |3 ?5 w% o7 Q6 q$ _
5 e% \6 @- u# B+ q' p+ O8 l
)
) F. h- Y! J X; |' V- P( P8 }7 D
) j- Y4 X% j* j9 O3 n- N2 Z3 |2 v
blkname, C7 \& \+ [% \' S
6 v7 n& u- K2 @/ H3 z
), v$ |, n. |' o- S0 o+ [- D
& n9 _4 Z4 N+ S4 k! F$ u
)3 p8 c7 X5 A* G
9 s, w a0 q3 V3 a5 L
(vlax-for obj blk
) ?/ `3 M. L5 Z
# j) M7 b$ I' g. ~% [2 w0 [
(if (= (vla-get-objectname obj) "AcDbMText")9 H1 s- ?/ h1 t* s- Y$ C; J
& ?, }) \/ `4 O
(progn
6 r# N# ~, R4 s" W% t
& N4 ?1 L8 m" o* \7 m
(setq txt (vla-get-textstring obj)3 D$ f$ A8 ` m8 b; l
' q) B5 u5 v2 o3 b
)/ w6 e7 u" X! t' j7 H$ i
' z+ d/ \) Q; U/ N1 k( X8 {
(if (or (= "" e1) (wcmatch e1 "*<>*"))
2 r/ E3 K, i; \8 T9 q# H
" B o2 E6 S# Y/ w% w. e( ]3 |
(progn
8 A5 \; A3 r+ [1 L
6 k% d4 k( p! j# p' F1 x
(setq e (subst (cons 1 txt) (assoc 1 e) e))' j* N! ~0 Z, \# F
& A j+ M% D) u/ V& `# }7 Q; c( s7 v
(entmod e)
; l% _# E3 `4 ^# U/ i
4 Y1 G) U, _$ r4 [/ v
(entupd ent)- s, t- U8 |6 }8 C( F
' O, I0 M) ^; o% m
). W. n: W Y2 f+ H( u2 T
3 f% o& B. E: x, ]8 b
)
0 Q: n4 Q2 u6 J
9 }3 m2 S+ d$ S, B, R
)" o3 C2 |! w, p9 f
1 \: V+ P Z2 O( L/ R% {
)$ S: B; M: a9 q; g" }. ]
! S! e Y& J& @( W2 ^. G
) (setq i (1+ i))
8 Q$ K- _4 O$ u- e% N' o
& j* D9 `2 F6 L' n5 D" A' [
)
+ |5 d0 |* a) N9 _
3 @; T! ]5 n, |/ ^* N
(princ)- Y. r! d( F& g; f* ]& P; ^
/ a2 T' U6 x! I. F6 q
)

复制代码

在网上找了个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

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

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

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