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

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

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

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

9 l' _6 t2 e: l, n- Y% M- E5 H
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.% h3 M0 F7 M ?* H/ @9 i
0 o' f3 c( I; |7 O, W+ o
;;
) T: s$ L1 a) ^' m6 i7 s s
4 \4 X% c7 o& R5 h2 M Y! }6 N
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
. j4 W# v0 ?9 b* f" M9 H
$ F, a' X# J- Q' m4 `5 X0 j9 X+ h4 a, e
(vl-load-com)" L2 J5 x+ K$ ?$ Z9 n' d
! H# J8 ~* @+ d/ r: `, c
(setq ss (ssget '((0 . "DIMENSION"))), }6 p+ m7 S; j, g h
. ~' }) T9 ]' U% \3 F
i 0
) U Z4 l* v" B" }! T
4 h# D6 k4 o9 [5 @5 k- v
)+ D3 M1 ]# O+ m" ~8 v
6 E* k9 t4 M. B
(repeat (sslength ss)
; ^$ {( p* t- W2 p1 L8 q4 ^
% o! K5 Q8 _/ ]8 d
(setq ent (ssname ss i)
2 \1 b8 P: h8 Q6 S
* q9 b" f+ y2 B: ]4 L
e (entget ent)
0 D" r4 L2 [( n9 S
: i* R$ u5 h! @4 j/ _1 r
e1 (cdr (assoc 1 e))' {1 v# Z/ O3 o$ Y( P
- ?- ` g4 Z. F
intpnt (cdr (assoc 11 e))
1 D t9 f9 O0 J' N
- j& J4 I# t" r5 x- w+ b3 l
blkname (cdr (assoc 2 e))
. M, P+ ~! ^6 F' C
8 \# s7 j% z! ]2 D- ^
blk (vla-item (vla-get-blocks. e& w: {- C" z ]6 h, t E9 m
9 K4 T9 z$ K% Z% Y
(vla-get-Activedocument (vlax-get-acad-object))" ~- q8 i0 s1 U5 S& M- g
3 E; @. V, t, A* `0 E7 B" W+ n
)8 i) h& T( v: ]# ]8 v
, X9 Z5 |4 ^8 d/ s$ X! c: q
blkname9 T4 w9 D, ?1 ]8 f/ t/ U
# J- d- T8 S) y S/ H% Y; }
)( [+ A& c; q/ A5 ^& _ x/ h
+ ? a) S" U6 i- _
)
' Z. z$ E- @* J6 S, q8 r) a
" B& I5 q M+ `! A7 Z4 N
(vlax-for obj blk$ [& X( O4 Z: u' t: v
2 p- L. ~0 r9 r5 T5 q
(if (= (vla-get-objectname obj) "AcDbMText"), s7 ?# V8 H: n+ w3 k8 g7 ^
9 a- J" [9 {+ ~& |& d; H
(progn
$ ?6 C: r6 g" X6 X; q$ k
4 q' {6 |- B& o
(setq txt (vla-get-textstring obj)5 ?! U8 K0 X/ e# k* a- ~
3 L+ V$ ]8 K T
)
0 {7 ~. }' x/ ~5 j4 f$ d
6 e# E* {/ a6 P I I5 g6 q/ b- t
(if (or (= "" e1) (wcmatch e1 "*<>*"))
# `) v1 i0 n; m3 H0 @
. u; {5 v' A6 h5 U9 Y5 [! V+ A
(progn
: p+ s- s( V' w" j3 h, [
& e/ H, a# Y6 z* H
(setq e (subst (cons 1 txt) (assoc 1 e) e))- q/ l# S8 Q6 x4 t; P
( a! i) Y1 U6 m l) H( o
(entmod e)
% H/ T1 s8 e+ T8 u2 ^ X' j; `
+ h; c4 ]" l. v" w
(entupd ent)& Q/ ?, T5 b) M
) E. G, A2 v6 S
)
c; s8 h4 X" n8 J) l7 D% @! W6 ^
- e8 V l2 I5 [6 O3 w U% e
) b& O. M; s$ B! A
) l$ e5 S# Q( z. {
)3 r# J6 m3 p5 m) O
; d, |4 S6 R" L0 e& b! l* k
)
( T" M7 A( Y# J1 C. Y+ X9 \6 I+ W
! J* j/ N: G' D
) (setq i (1+ i))7 h1 k; ]: K% H; v* u; |4 _) U
8 {; Q! e* F9 c, G5 ?8 a
) C1 g/ N! T4 h4 o
/ O1 P3 B5 O( J3 F+ \, w/ G
(princ)
" P1 T; v+ s, U1 E& H8 J$ ?
- L7 Q) x# v7 T
)

复制代码

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

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

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

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