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

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

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

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

' \6 [7 U! H' R% f
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
9 ]% C$ k* o7 T b
7 ?+ u: l% g) W/ ]# z: Z' i( z
;; D5 w( q0 p! s* U2 [% w! X
) L3 f' t) U) j- D9 u
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
: \2 P3 m; T% M G+ S3 v* _1 R
4 s' u- d7 N0 s
(vl-load-com)
4 r6 X" L" D- D7 p
3 c9 C4 k" k2 z( X/ H
(setq ss (ssget '((0 . "DIMENSION")))
* q) r( }9 G+ `, `# L+ G) d) e
. u; G" P- w8 ]6 e: Z5 D1 h
i 0
, U( I+ d; Z7 t5 H3 F/ s
4 D) ?! w% _, ~4 r/ b' z4 }
)
& {5 @3 I; I- q/ ]
# ]2 \4 M& [( M3 S* @) Y8 P
(repeat (sslength ss)8 I6 Q$ K0 A9 ]/ s9 l
0 s1 Q! [. H! b) I o- n4 C/ j
(setq ent (ssname ss i), D2 N8 D m8 U* M. M
7 |* u7 v, B" I
e (entget ent)0 K3 B* o' L4 }
( I/ l4 T+ ^# f2 ~8 Q
e1 (cdr (assoc 1 e))
7 x! D8 C9 x1 k! G# \8 M
r7 M& R% Z! @8 K8 L
intpnt (cdr (assoc 11 e))3 C- J+ t ]9 D/ ^
" [& x, E6 {' C, ^5 T3 ?' V8 R+ m
blkname (cdr (assoc 2 e))
. M$ V. e8 y) R* h
* T. f) g# @- X( n a
blk (vla-item (vla-get-blocks
) |- v& b1 T8 w' c# X% F
8 X0 V w w( B0 o% C; P; [# R9 f
(vla-get-Activedocument (vlax-get-acad-object)). _; E7 v2 ^ ]$ r4 k6 r# H
/ d# s' S; Q) s7 q! u
)' ^9 \/ I2 v( Y' D
7 }- q* Y% ]) O
blkname
# p2 J+ w9 p Q- V2 ]; k0 k
9 M3 |! S w+ v0 e" y; _
)
7 N& l( {* I. p) D6 z9 W' B3 L3 H
9 F% u% {. ^( ?) E
)" n: }' f0 x+ ?. g) u. Y$ h
8 M* N9 @; {2 h
(vlax-for obj blk
# X' w' m' Y+ r2 d) e1 D
! s0 C# }4 p7 M n' G( m
(if (= (vla-get-objectname obj) "AcDbMText")
& \3 I: p& V' Q
4 G+ G! m6 c4 k q9 M9 `
(progn
. W& @! @# z& ~
( r; S/ j& A B( f: y; c2 w2 P2 r
(setq txt (vla-get-textstring obj)
$ C5 n! T2 i7 O0 k8 p
& }, `- X6 K0 I3 m, ^
)
) h7 a) ]3 O1 g8 |/ G, \
" V7 z. H0 }# E. X
(if (or (= "" e1) (wcmatch e1 "*<>*"))
" S2 W+ ^9 H3 }5 x9 @) X
8 L' j( z5 A5 ]4 b8 z" c3 L
(progn, w8 H% T3 Y) g- {
( W$ t- y' n- G. T0 u- N j5 `
(setq e (subst (cons 1 txt) (assoc 1 e) e)). L( s% b1 W/ w0 |
& I7 |% Z5 F9 M _% Q1 \7 X& x
(entmod e)6 q9 W _" a1 p/ m" X8 z
3 a# x, y# W& P2 s
(entupd ent)
# a' \( Z9 M1 T5 W3 x
3 X0 [. H9 @1 ~( U, l
)
/ f4 a4 f- N/ v0 _5 U E7 z( k
& M& m/ {, |: n5 @& M @+ ]8 i
)0 i0 h3 |% f0 ~/ }1 J+ \
# b# S( A; e% f
); }: M0 y1 Z& Q' T
4 G3 s- c& ~# l2 ^, `
)
( s# A3 u0 q5 m/ f
5 V$ M% h3 t0 ~# x5 n4 U
) (setq i (1+ i))
$ D/ _! }; M% W8 ^ u
. V x3 p# S6 Y
)7 M& w1 X a- o5 \4 v
* n! [6 Z& g; Y. U; K
(princ)1 v; c- M1 k: a
+ u6 H( ~! x7 r* 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

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

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

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