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

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

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

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

% \( S8 f( _$ j- B1 |) N5 k
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
$ m& Q3 ~+ z# Z' g
! W: r# _; l& z9 V4 p6 x/ ?
;;% a' P3 T/ ~2 z
: x5 S) D4 K/ o Q( `6 B, E
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
2 j0 ~. n7 S/ I4 S3 k. F* n% @
. S6 L) m6 z6 R, h7 C6 D3 F
(vl-load-com)
* B8 {$ N$ G- L( J. U. s0 G
% a/ ^% v6 C2 U% M/ Q; q
(setq ss (ssget '((0 . "DIMENSION")))
A7 H: Z: o8 @
7 d4 L0 i8 R3 @- e
i 0
" ^) L% L h& o2 r \. L( [
1 x/ D1 u& b |
)
3 M" g6 ?; S9 N: V$ C* ?: t& J. T
3 U4 j: \3 T4 W" n5 x1 d
(repeat (sslength ss)& F g7 B a) j# v& V
: r& ?8 \* V6 W5 X: Q" }7 F
(setq ent (ssname ss i)
. o% z7 p# ]. Q$ J7 t$ w$ K6 i
( Y+ f2 i+ w! p: _8 y
e (entget ent)/ K. q. l2 ?7 C$ O" \3 K4 z5 N
# r# R1 z% g+ v0 H
e1 (cdr (assoc 1 e))8 E" F) F j9 {3 ?
# ?+ E6 I6 W0 J
intpnt (cdr (assoc 11 e)); |7 B, z+ @. q& i; k2 t
( U3 s2 p. b2 h7 b
blkname (cdr (assoc 2 e)); j- b, I; l' \5 z2 Y2 ~8 x
+ S- |! ?5 P, m# S" B
blk (vla-item (vla-get-blocks( f" ~; I! [ |7 N: ~
% y' K7 }0 l* @; E- }+ C
(vla-get-Activedocument (vlax-get-acad-object))
# C0 L- d0 J5 K+ `4 [3 @
& D' W: y" C$ m" Q+ E0 N( z
)
b% V4 W+ _6 @: p3 [' A
' r* B g9 E6 J' i1 w
blkname
* h4 _- x& I, E4 n/ d
: ~* E+ }( Q3 [- K3 I3 K3 \/ `
)3 i3 ^; Y, t& `; {! K1 A! ?
/ T- k( _( p2 } c X
)
: @; J! `# y; F. ~% q
9 k' f# L3 N! \1 v8 d6 b( b
(vlax-for obj blk) v0 @) h! G( T+ Y0 U2 U
2 q7 b+ m+ l- ]+ M5 L9 Z$ z: [$ s Z
(if (= (vla-get-objectname obj) "AcDbMText")
* I) G1 V x$ W% K4 h; ?; ~% k4 x
4 L- L2 h1 T# D2 w2 q: d
(progn' d0 F0 o0 [: Q- t0 Y) F* V0 q
& Y" m% v+ ^+ @
(setq txt (vla-get-textstring obj)
' \* ?7 }2 }* O' t% ^4 E& G! {$ ^
6 f9 _( O0 F- i( G- l
)
* K+ w/ u# @5 V3 I9 g, z
- N# b7 k- l& M1 @- n- V2 W: z" t
(if (or (= "" e1) (wcmatch e1 "*<>*"))
; @3 c5 p% U5 j9 T' O# ?# }
0 G& w8 s+ i$ s( i
(progn4 n {6 d# ~$ j3 w6 I) ^
/ ]3 l5 B' t0 B; { \! B0 Q% W. x" w) z
(setq e (subst (cons 1 txt) (assoc 1 e) e))
! k- {( O, Q' n* X ^
' E$ P# Q# s7 V6 _* j
(entmod e)9 F9 o9 H" A& j# y1 h7 l
' ]& F5 \0 X& d N
(entupd ent)$ v# }( K) s3 ^
5 m$ \: Y9 m! ?* J' a; F5 N% h3 ~
)
& \1 k; ?4 `% s1 \* R0 ]- C X
; E/ C) k! J7 W
)
: V( E8 Z* E8 K- I" h
9 n+ y" K1 i+ Q! L h( L$ O
)( A" n. h9 z1 S8 _* t
7 b" A, A+ `3 Z4 z; N& K! v, l
)
6 t. `" z& E! x7 A& p1 J7 b& B8 X# m
/ {0 Y; t% m4 j3 W
) (setq i (1+ i))
; V2 A U: {6 U8 m& r
9 N1 A' u( Z% i; x3 {% Z: R
). Y* I" Z) w: Z, m6 g) M3 q
. v& V Q+ E, l8 t. I
(princ); |$ G2 d- V/ t
3 ]) H, f5 u3 b4 X# I/ K+ j
)

复制代码

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

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

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

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