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

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

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

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

c. g# M2 m# N) ]+ {: W! Q/ V
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.& J0 |! G( h9 Q$ h; e# U3 ^
3 s. }; H+ x$ g, Q9 _% o
;;9 Q3 D) O% R9 U$ v) D. X
+ n4 c8 s8 M9 A& c: E) }
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
3 y, e P9 D& b1 j* U
3 S: T, P# ^2 \
(vl-load-com)
. L( W- j4 g, f3 J
! J# V2 J- c P) j
(setq ss (ssget '((0 . "DIMENSION")))
/ R# H+ O4 O+ p d5 N4 G" E
6 z( s' |# U0 L' l5 C8 E5 l
i 0" e. M1 v8 k# x3 F5 c
% }9 }2 V) s) p @3 i
)
0 u1 e. ~) f4 ]- e. y* |9 @
3 b* l2 `. f) G; }- x
(repeat (sslength ss)
/ f O# b% X3 V) ^
% c/ T6 x l+ \$ Q( c# B1 f
(setq ent (ssname ss i)
5 `/ A! p1 D$ |: H F, o
& M$ C0 z+ y l5 k" `! x
e (entget ent)$ M( w, W; X; M& e, N8 ?
$ J! Q) N4 Q2 Y, ~2 S7 c" m
e1 (cdr (assoc 1 e))
1 ~ f* d/ B5 X' G
+ E$ I& e; v1 e6 s O
intpnt (cdr (assoc 11 e))
, H2 j" L* W& @9 R
6 m9 H1 f9 N, _5 [( a ~
blkname (cdr (assoc 2 e))
0 J- a* Z4 n; ~- J/ G7 k* E
0 Y$ d1 o/ M8 d' @/ e: t
blk (vla-item (vla-get-blocks
3 v0 r4 r- x& {. I
' ^* K1 S, r% a4 h
(vla-get-Activedocument (vlax-get-acad-object))/ J7 N! r0 l7 n8 f) B& W& f- J
7 }" i) v" q! b+ ]
)! S t K. J. H4 |
8 b% n& |2 H1 R J9 \# O
blkname+ _# W5 v: F. z6 m# T3 _% k
1 \2 w. \1 _. f1 q
) M( j# y3 \2 G
5 ?: G* f6 a; l$ X# f
)' `& D' z. L a# h) ]% [! }
% c8 u8 b+ y2 P# {: ]3 s
(vlax-for obj blk& f" t" b0 M5 G. f" w) r" l% K8 G- h
0 {3 Q' t4 N, D
(if (= (vla-get-objectname obj) "AcDbMText"). ]5 A- \; u6 D/ A0 L7 m
, w6 D2 u) z8 h Y( M! ?- I, c( Y% G
(progn, ^: f8 ^5 L+ B6 t4 T5 E
3 S& F3 |# [6 g/ `% ]$ s/ A8 K
(setq txt (vla-get-textstring obj)( d) ]8 E& U$ \% n& ~# @, P" d" e1 t
0 W, n" D( x# K5 B
)
4 N: u4 l W8 g; c
0 m' B% J0 D! f! ?* i9 r7 @: W
(if (or (= "" e1) (wcmatch e1 "*<>*"))3 L. c( _0 {, d/ o- A
" g3 h7 m) a0 t
(progn
- f1 C( L3 H7 |: @
! ^0 N$ `- D& J/ p) J
(setq e (subst (cons 1 txt) (assoc 1 e) e))
2 z% h; i: \/ W; [ W* C: S$ [ @
y( G9 T" W/ I4 k. a
(entmod e)! y1 J9 P, j% J2 g I5 A# `
7 X" J& g; J, h8 I
(entupd ent)
3 j2 ^, y* q9 M2 b* \% @
0 o5 n" N' r# H: g, o
)
+ |# u; `" Z* q6 A
6 e ]/ [/ `5 C; |0 x
)
) u3 V; c9 v* n9 h0 [4 n
: z& O0 d' U% l( ?
)
0 \! }, P; w) s" ^# @- z% h$ ]
$ J! w8 {6 \- _8 c A+ Q, b' w
)
8 @8 K- p F) C, l) _
) R$ B z# i' d* |8 ^3 F. i z7 V+ c7 [
) (setq i (1+ i))$ Q3 o/ X- B) r6 s
* [( H/ B- m3 ~+ \5 L W
)
0 x( E, v0 C8 Z+ s% v& M$ ^
! R& ]7 z6 o0 }# m) |: i
(princ)
- R. f& C2 d! \, n+ W1 n3 m0 E4 k
1 _5 ]' E5 }* a( x
)

复制代码

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

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

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

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