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

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

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

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

5 I5 g9 Y' C' L* d# ?% b& b6 J$ q+ T
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.; r, O8 @1 H/ C# y& r
/ v2 P; g5 J" n) {& Y* E
;; j% t6 _& ?9 k6 H# s# r8 X% A
- m# b0 U* w6 v8 f* Q( K9 f
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
( a4 \0 _4 E% d" B/ B) @
- y$ Z5 n* N) h. s1 p1 W$ q. g1 C
(vl-load-com)) d6 T+ H) j7 a
( F' X% R0 T+ f. m6 n- \. |( x
(setq ss (ssget '((0 . "DIMENSION")))! w) f3 s& `8 S1 T C0 F
; c* K# c+ ]% _! q0 C
i 0
- [* G9 I0 b5 x. i
: f, R+ A' M* V! Q, _7 F& @
)3 i/ j4 i4 P- G' e
4 s; W; ^/ { L: g( l+ @7 u# d
(repeat (sslength ss)- J* r# X1 i3 Y$ _/ }7 b
( v# h0 J' z5 v7 T9 c, e6 ~
(setq ent (ssname ss i)( L6 w7 L4 l- L% K9 D0 I+ }8 G( ?
) W) Z# n+ N( {7 V; \% @
e (entget ent)' j( |( h! w1 W) Z9 N! @$ U
2 _7 t1 K h6 T2 K/ B5 w
e1 (cdr (assoc 1 e))
1 G; T( J1 G! G4 l5 K
. _% m. D' X* j N3 R
intpnt (cdr (assoc 11 e))
9 p2 Q Y1 O- k; P( H
5 Z, b' R0 w0 X! n
blkname (cdr (assoc 2 e))- r, X8 R* @7 v! j! f1 m
2 y8 N( K. m' m" ]+ X3 {
blk (vla-item (vla-get-blocks
4 I0 X1 g* K- J
9 L' d* i0 p+ A/ s* r s2 Z
(vla-get-Activedocument (vlax-get-acad-object))
! X6 T4 w+ W4 T5 X
" p' ~3 M" j/ s; d6 A, U) N" Z
)/ ` k( v6 f" ?4 `# U( u5 ]* t
9 q# ~3 x( ^% b) ~/ J, @' h5 p' o, ~; c
blkname" `3 Y; u0 o0 Z' ~7 {/ x5 W8 Q
& C3 v5 z) E! U% u6 ?
)
3 t l: K3 a3 k2 W$ M) q- K
# t& N- a7 u/ m5 G7 _4 G" B1 g
)
" ]; k0 J$ a4 X4 `
" [* q- [& z% O( `8 x2 B
(vlax-for obj blk+ J+ {& {9 d- m D+ D$ g
% r( |9 m/ z, \" P
(if (= (vla-get-objectname obj) "AcDbMText")1 c4 ~+ U% _: \/ ~4 Z
& F7 F6 o+ K& x- |4 p% y( Q- m
(progn. n+ r+ o5 W; \) Y
$ p: c3 e: q, K, ]; X
(setq txt (vla-get-textstring obj)
2 g. q/ L6 j) g9 E# v1 g5 z
2 z) V) _& k# c
)4 V( M `1 B* E0 `% {
! Z- |- D5 Y! B
(if (or (= "" e1) (wcmatch e1 "*<>*"))
# o& y1 ?4 O7 o6 R
0 i8 L8 z% H3 ^( l0 Q/ D4 }
(progn6 f) C6 z4 a' s8 f
7 N# I$ O$ w; A: X' C: w- @) ]3 K
(setq e (subst (cons 1 txt) (assoc 1 e) e))4 |' {1 ^3 U2 H3 s
) C- ^! U& m, O' F
(entmod e)
: O- @" N& }4 H
7 F1 t8 o2 Q/ \0 [: o h
(entupd ent)
, w! u9 T# ^. w- }
6 j% f& ~. V1 `2 e6 u
)+ f5 E* t! y+ H1 Z! O/ {8 o' L/ J
# R, s3 W: g8 b' t: t
)* R6 l9 t: `9 a ?( }
9 [ {2 N4 d- o) Y; t0 A
)
$ G/ W9 Q5 |: F! j. t
( t+ k/ ]/ K3 C; a
)0 L& K' P5 J. ?6 h6 S8 z1 X/ s
/ o* }* `3 H8 E( Y1 X6 d$ t
) (setq i (1+ i))! `% _- p1 L1 D7 P( e+ C
& ]7 _" ]: r# Y1 H I7 f3 ~
)
, e' O+ o8 t# ^: w8 N
4 L& c3 C3 c* ~
(princ)5 e3 `& G# h$ ?6 G" I# k. ^' |
. k* }' z7 N, Y. ~% q5 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

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

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

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