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

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

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

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

% W$ F8 C9 L: l: E
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
9 z+ m2 F1 O2 R: G
2 e' o& C0 G' A$ {, X8 I6 a
;;
' Y2 o5 d% E0 U9 D
$ m( {3 V0 d% M; w4 \
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
7 d$ L* R3 s" V
! x, }1 ^( r$ I2 \* @( ?
(vl-load-com)
4 P% S; ? \; Q: c
4 h! f! }, J+ F( X! c% P1 [. D& `
(setq ss (ssget '((0 . "DIMENSION")))0 \- K7 Z0 p8 P5 J( k6 Z: h2 n
, s' y& ]% z4 p8 D8 x- f6 W
i 0
# T& t- U9 w) U5 p: S* z
0 f _0 h) ]) K% _, w, f
)2 N2 K4 ]- h" X0 b& T
! S$ c6 `: U; `/ I9 O: S% I# L
(repeat (sslength ss)3 P4 t7 z; U/ J. b+ J" {- k
: `+ D( a% i4 t; x3 I
(setq ent (ssname ss i): p) ?5 D8 p( t* m" |
/ {+ W7 r. C/ w, p& C
e (entget ent)) d4 ?3 n8 `0 D
3 z7 {& A @% G6 ]+ | C2 ?' E
e1 (cdr (assoc 1 e))
# y! r' `' X& _ `
9 P7 @+ c; u* D* M2 s- H0 S
intpnt (cdr (assoc 11 e)) }. y. B. \$ O' H9 S- f7 a
0 J. L+ j, t6 J) o" K7 @
blkname (cdr (assoc 2 e))
* W/ H8 `+ b% [% M
# G. }! l- D# w+ j, f7 q2 g
blk (vla-item (vla-get-blocks- F, w8 u0 K p3 H
{: k/ `/ z6 t1 [
(vla-get-Activedocument (vlax-get-acad-object))4 ?4 _2 t: p& |! |* h3 I
: [9 d; X; c; s1 m( d+ S9 K9 T
)
8 Y4 \* B( {1 g+ y
, x, e" _. m7 l) [& K+ Q# _
blkname
/ S$ w" M& e7 Y2 Z5 C9 H
4 I, H' K4 W( @% {8 o
)
' f! e0 T7 C; ^. _; K! h. h' F1 e
1 b% E+ u' ?% |- q+ y) }3 {3 j
)7 X9 q7 K! H& l# E
9 H4 m+ U8 ?: f3 r3 n6 n
(vlax-for obj blk
8 C9 b0 I& o3 J" p* h
& W( x! {2 Q; R& U
(if (= (vla-get-objectname obj) "AcDbMText")4 b" U) @" E3 E3 p, X# p7 X4 T
0 o, j0 I+ L8 o9 E V; i
(progn; }' ~& R% `* i8 X& O( Z b2 {
1 X+ H% @8 L% J; m
(setq txt (vla-get-textstring obj)
. u5 d2 s) g2 G) x( t
0 i8 z* f& L. e* i' I/ C
)
' s3 G- i( l+ s* k8 o0 e
' M _- f; D2 l: ~6 ^
(if (or (= "" e1) (wcmatch e1 "*<>*"))3 o2 m) S6 r& h& t A/ B1 [
! |" T" l: L& u O8 [ x' m
(progn
( s2 J2 M/ [* m- Q) K
; v" j k5 l/ D( _6 A
(setq e (subst (cons 1 txt) (assoc 1 e) e))
. T% Q6 |) G" |1 n! @
! u% l7 t8 R; K* b9 W) m& L) m
(entmod e)
: c2 f/ \/ t$ M/ j) B% [4 k- J# Q# w
0 p2 k: U) m, x7 ?6 w. J& u- o; q
(entupd ent)
( M$ J* C; n! M8 A* \
4 E7 Z; |! x- g' b) J0 s
)
: V+ m; F) X* _* p; x% Q) D
, o/ X: f+ B! \: K# ^
)+ r$ H; v- l* o: Z( q
, P4 H. J) x- k, @8 u2 A
)
$ _: e& d2 n# `' w- [! E
^/ ]# Y* x4 y% ]0 l7 u
)4 {- u: t" |# W: A- {$ s
! o3 P. b- m+ e6 L. s/ \) H! L. }
) (setq i (1+ i))
4 N5 i7 E5 W* ]: j2 @9 |/ Q
, U. x2 e6 m) P/ M! N
)4 b4 k5 A I0 r l
' R4 s6 t3 {- A- V. ~
(princ)5 U$ C. a$ v) d* e5 \
/ U3 n, A3 y" W, l! P8 P
)

复制代码

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

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

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

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