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

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

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

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

6 D$ C5 C7 L1 F* l9 G$ _
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.$ |- T5 H/ J( P0 t
! V/ ~9 n: N* c( \: v
;;, |2 Q7 q( Y8 U- t6 O& y* E; ^
: S2 b- z% f, f% p6 R4 b6 j! X6 t
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
/ Q) y3 v E, H! y$ N1 ?: d
# V+ N5 t, w) o
(vl-load-com)
, @' u, w/ {- g5 J+ m
: |8 m( y, }) e+ \" d, W
(setq ss (ssget '((0 . "DIMENSION")))
2 _6 O$ n9 Z6 \- D
}! B" u( Z) o5 \2 E+ Y. E
i 0/ a6 o6 q; C S4 {: ~' s
5 m3 O1 O/ M2 t6 U
): r: t/ V2 w2 o' ?2 S0 T
) F, j. m4 M" p7 Q9 o5 S& s
(repeat (sslength ss)
5 }/ X% f" h0 k. n$ l x
: o7 f& V8 a5 w. e9 l
(setq ent (ssname ss i)
" `, [ ]) A# v2 z4 f
6 q. X2 ?7 a0 G6 k) U, K
e (entget ent)
# [9 E e9 l+ r4 w" I6 B
9 A6 @$ `% Y1 s5 @
e1 (cdr (assoc 1 e))
1 @% M3 _$ u& E* c0 b L
' D2 a4 K; g6 I; z9 ^+ S& x& [
intpnt (cdr (assoc 11 e))9 |! Q. V+ ?; D% H4 M# H
1 p& T1 V7 W4 ^8 g9 b; L/ v
blkname (cdr (assoc 2 e))4 V C3 ]6 Z2 l5 H0 o0 ^8 }
3 D& |* Q8 f5 K0 k
blk (vla-item (vla-get-blocks
0 o) s7 b7 V6 m9 g0 } S. v0 ^
' C, i" s; P' O$ v
(vla-get-Activedocument (vlax-get-acad-object)), x8 \! e Q0 {; t) b+ ^
6 b1 Q7 D S$ M5 \& _
)
, t: G9 {* p& _1 [
0 o9 ^2 s/ F8 L4 V3 G! T# {
blkname. H+ _; G4 a7 `
% {4 B5 \& T$ n% I4 h/ c
)
6 q8 F. ^; ?" y1 `
8 Z" w# Z1 U5 t, ]6 S! y) s5 k2 i
)- e* \; L/ D7 ^- }" b6 u F
9 Z. X- x1 ^) Y) G" h* R# ~
(vlax-for obj blk/ j; o$ X4 ?7 R# p! I! K& a- a9 O2 P. Y
) T: S! d0 w- t. V8 q7 ^( {" J) I; G
(if (= (vla-get-objectname obj) "AcDbMText"). {# G4 C a$ \
7 m$ d- i4 K( W% @
(progn9 l/ z& G. ]/ R ~
. x2 I& E* \. \& E* C2 e; o
(setq txt (vla-get-textstring obj)3 t& P( t& P. J' w
$ R+ S5 O8 N. k2 ^
): q% L5 y9 C& z7 H" w
% `5 D/ I0 m4 ~% L2 u% v' a6 ?2 O
(if (or (= "" e1) (wcmatch e1 "*<>*"))% \1 A8 B$ d9 v5 B; u- _
6 n1 V3 D% g7 O4 t7 _
(progn
4 A/ B* z7 l1 a8 a. T2 w
6 i0 b( d/ R+ m* w
(setq e (subst (cons 1 txt) (assoc 1 e) e))$ @: ]8 l ]5 o
/ t, E+ d9 T9 N- g3 [
(entmod e). R# U7 Z: X) J. e/ M
# L8 }% F+ e G
(entupd ent): c5 L$ M, g( t" K% i: p! c
3 h; l, ~) o4 c }8 T1 H- ]& a
)# D: y5 D/ e9 Q2 V4 _3 R$ D$ D( m
7 O! x# r. a" N( r, X- X( x
)
- D# C" G9 i ?( J2 ^( Y$ a7 ~
( O$ S0 k, {3 n- I. `
)% U- F& z3 b: x! Z' [/ x0 v
1 R+ B" o7 \# Y4 \% x/ T2 C2 b
)! M, O1 v2 ]/ {, G# T. O
+ r$ W1 ?. ]( G2 A+ i6 c
) (setq i (1+ i))
- u$ y9 `& W" F. S) {
- h+ F( @. v4 U1 _: R; L2 m, V
)3 u4 `$ p+ W; N y( i* Z I6 ^. B
) C- d; }. g$ _
(princ) O* D. |* a& P$ N1 k
5 s. `5 ]# `" }7 W
)

复制代码

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

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

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

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