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

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

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

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

6 p& S. b0 {' w2 ~0 Y+ x) |" l
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.. j/ U) Z% b$ ~* c9 q0 _
6 F( p" T9 V7 |! y; J% d) H
;;
4 Z+ X% i6 F$ U. t0 U. f
9 ?) m, E" M! f, u. h
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
5 H, D- ] n! K4 q! A, g
$ ~( u. @3 d6 c" P
(vl-load-com)
, ^, i/ I7 d. p4 Q' o' G# g
+ M; Z) }2 i" k5 c
(setq ss (ssget '((0 . "DIMENSION"))); X$ a% H6 d2 C8 ]8 |
+ H5 I& U- c4 f1 ?2 @% V: N1 Z5 V
i 0
0 b, X1 l# @7 ]2 }8 D9 e
2 U. c3 w3 {& v% k' Q2 o! f) ]
)
- X# \ b+ w- @( \
: m1 J: t+ D4 A$ w4 _8 r
(repeat (sslength ss)/ Y& C. q- K0 A7 N2 k3 X3 }, t& U6 L
, q$ v# U3 O2 n$ M
(setq ent (ssname ss i)1 `. ]* |6 h1 q4 w# s5 U
! \8 K, k% J! z% }9 p0 W% W: s0 O
e (entget ent)% Q3 |1 O! y5 Z6 ?6 G4 n
! K8 X( D; F1 Y' p5 k) s) B
e1 (cdr (assoc 1 e))
' S6 n; o- f0 j, z/ q* B$ [2 d
6 b8 y% H; a+ D. M" N* B
intpnt (cdr (assoc 11 e))
. [2 C) { `4 q
. h8 a0 c* x8 K2 c/ F5 a5 s/ ]
blkname (cdr (assoc 2 e))# d p( n" n3 k) \# l1 j! p; M; C
2 g# |; j% |* S. T
blk (vla-item (vla-get-blocks4 @# |+ f) E0 G0 P4 v: e3 X" v
2 y5 y7 R; P- z+ o, H
(vla-get-Activedocument (vlax-get-acad-object))( ]+ c- [, s* a8 h- Y4 J
( O- Z* o2 B. `+ P" p$ o: V
), k* x) Y( Y4 @5 M( c& J+ v
( m2 g& S7 b- n+ b
blkname! H; a! N& ?5 [( P
# u$ |% | d0 W! r
)& y1 H2 }* o1 v; A" C% n
+ \7 I' H, P" w, M! [) p
)7 U9 d/ L" q* }% Y# ~
$ O& R) l( }. B6 o+ ^, x
(vlax-for obj blk
8 p, \; E( C- s! [) {
2 @% T) i0 U4 ~# E% c7 q* B/ N* M
(if (= (vla-get-objectname obj) "AcDbMText")
9 Y T `+ B8 \ Y! n8 c
& x" a- \* o& g5 J& Q
(progn
( Q; C7 F3 Z9 |& q5 ` y ]
5 U; T& y$ a q- }( L0 q
(setq txt (vla-get-textstring obj)
% {* t3 }; d4 V! {2 I Y+ y
: B% K+ l2 t2 Z. y# S. Y( m4 o: P
)5 _, C! O' y! W: o9 `- R
! C4 q% E2 G$ h" m, h" o2 t
(if (or (= "" e1) (wcmatch e1 "*<>*"))
7 _- W4 ]/ K& B0 s
. |' j2 Q% v" T+ x( @0 P! @
(progn9 ^6 T, w, ~7 d/ S0 V- a
z" ^1 U4 f, M# ?' `8 ?0 H
(setq e (subst (cons 1 txt) (assoc 1 e) e)). h0 K( n1 ?2 S$ K
6 N2 I3 e2 ~) V5 d1 N9 X) A
(entmod e)
* E+ M$ Q/ k" D- v, M
( ~. o `& P6 u+ k3 ^
(entupd ent)0 Z) B- ]( N: i8 S3 l' g# i @0 w
1 N6 Z) J9 b* k9 _
)6 d, P" E: i8 B" N/ [! m; m) @
) C8 K. T: k( _; o3 e
). f1 l; Y' h+ a5 h+ Q5 }/ E8 k
5 x' r& {6 l2 o) I7 L( [
)
' S% A( R1 T# [! Q, W2 x
. V1 @ c8 F* t. Q, }. Q C
) [& w7 l# S9 f) v
( N5 U% m3 {/ C5 b- U
) (setq i (1+ i))* S* x. F) a0 O! z" }
3 m; H% }+ |3 u; r: u) F
)
) M4 S, A! I4 R* M+ |. \: o0 p
6 n6 v' X5 h+ s" H& O' l v( Q
(princ)- C5 Z( ?3 B$ J G* {
8 I5 V2 n6 p1 T5 n2 u& |! o# }
)

复制代码

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

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

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

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