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

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

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

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

7 H7 N" X" M) s
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
5 ` F6 A4 x$ g; k- P% _
( t, w9 M# @0 Y1 U/ H, G, k
;;
7 [8 H, d# i4 W- L$ \0 D
0 u" L/ w' z: q+ r! }
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt), a9 V- P' l( M9 s4 q) X
0 c3 o+ ~3 E$ K& A$ ~- q
(vl-load-com)4 v5 L! K3 Y* Y1 N
3 A0 ^# B' c2 M% D
(setq ss (ssget '((0 . "DIMENSION")))0 T9 [( o1 O! T+ Q
; D/ T4 D' _/ b. _% u
i 08 F1 s1 O! G& P# V) U- n7 Y
8 C- V, p3 f4 @7 q! g
)
1 N2 Q& Y" G( g1 R0 U! `$ I3 a
4 }( x0 a. \8 u6 {: ^0 i
(repeat (sslength ss)
) O# M3 u: a4 A& f8 N
9 J0 z9 Y) ?) C' R$ @. V! q! R
(setq ent (ssname ss i)8 h9 q- q7 ~5 h' \8 {* ?; C( b
# R" B" b% W! \8 E9 W
e (entget ent)6 P8 H2 @2 h3 H7 d" O& ~
1 F5 u1 D+ @, U
e1 (cdr (assoc 1 e))
0 c, i- S* z9 O. p+ H, J
- c0 W! R+ S+ t
intpnt (cdr (assoc 11 e)). d5 W, O; Z3 P" W0 p0 D
J6 l" Y/ C! F2 t0 c& F' m1 R0 z
blkname (cdr (assoc 2 e))
: s# B1 r' G8 Q/ [ Y
J; G4 D( o! n. V
blk (vla-item (vla-get-blocks
7 n) G9 D$ F/ w5 d
+ [ I2 W! [) i: l0 u. D; ?
(vla-get-Activedocument (vlax-get-acad-object))
. x0 a0 K! a+ I; F( S2 r
7 C1 O* Y% M0 ]3 M
)
! T! a. }: E7 v0 M
% K3 y& B7 L9 M X
blkname
B1 u7 \0 [6 ~1 R
1 x, j, ?9 N. }5 P1 D$ H# v) Y
) C4 F) e2 [/ t. [. J
; _* ]3 C. U- H+ w* F. t
)
: c9 a. C4 S2 f
5 w4 {" J1 D' ?! C3 w. w
(vlax-for obj blk) E2 l; l3 G' \% m
% C: ^( p: I. t* w
(if (= (vla-get-objectname obj) "AcDbMText")
7 p- P4 l" b/ W: O' Q: y7 ^
0 I' q. r' | `
(progn
9 q5 `# ~% ^1 h2 F: @- y! X4 i
- w6 C: F7 c3 Q$ u! N
(setq txt (vla-get-textstring obj)
* ]( d0 \7 v; n' |7 h* X, ~
: j6 d" I3 w& ~
)
) }; |4 g; \3 Q; F r0 {9 e1 D0 M
`+ P% |4 ^6 _, U; H
(if (or (= "" e1) (wcmatch e1 "*<>*")); ]8 f! Q0 S9 v8 d
/ \# t: e: a# Y' {; U. f' S* j
(progn& J j! I5 Z% m _# C% `% U
: Z) }# v/ O. [5 a; d7 e
(setq e (subst (cons 1 txt) (assoc 1 e) e))
" G3 @) C( C; ]
4 |- ^3 ^9 U7 R; t6 t% Z
(entmod e). `" S; O' o8 v. V! @% A8 H) q
) t( D. n: F/ P% y' w! J+ @$ z
(entupd ent)( ? z% j$ q# N' [
+ v/ d! s8 |7 C H
)6 ~7 a9 Z2 F; Y) \ Z& s; W2 u5 ^$ L
7 j& {' i6 e: ^8 D; }# z; d
)) m$ ^7 u7 \1 O* u4 J- f. [
# X3 |/ f! C6 [- F" x# p
)
" e: I4 |3 P4 j3 |6 j& h' X
8 R, D9 J: r1 z6 ? x4 D
)$ o) y+ K' C# k" a2 B
0 q$ [4 Q3 }3 P( A, X3 Q
) (setq i (1+ i))0 B% T2 m% L/ x K3 K
5 b. _1 |0 Q3 N
)
7 [ u- Z# z. M% F
s% ^ x% v; D( b; e
(princ)
/ p# C/ a; M \2 y+ K
2 B& U1 C0 n5 H& 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

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

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

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