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

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

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

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

" o9 P, _8 [/ C; n6 ^
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.9 f" W/ w0 E b( c
" _# G3 q3 U8 A( Y
;;
. v$ c- U1 F9 A& R* ^3 Z
( R) Y6 o) h1 K5 ~" h
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
! w, S' u% C+ T A
( q% G4 A n* k. k7 w
(vl-load-com)* C" L. F4 u( V! A
- l% W, @9 M* u
(setq ss (ssget '((0 . "DIMENSION")))
! X3 }: {, \" E% D
1 `6 ~9 \0 T0 Q# r: Z) @' D
i 0
8 C' `7 G# V. p4 b+ m* k* t+ K
) v: g% {0 R9 _1 s
)
; q% @) Q1 b& O5 m/ q
4 F2 E% m% V& ?8 l. Y2 {) V
(repeat (sslength ss)
$ W, l1 H) H' W7 @1 G! D
6 \3 V9 K9 E, P6 p: T5 }
(setq ent (ssname ss i), A; K% T* [, {1 `3 A
0 V* e% o3 P1 d4 O% [
e (entget ent)
9 x2 V. @) Q' `$ d
9 o; s% o6 u5 ? G8 z! k3 v3 u! ^
e1 (cdr (assoc 1 e))
- v7 _. j' e. g8 D4 ^( r( @
7 n, V2 z/ l& ]* k
intpnt (cdr (assoc 11 e))
S9 |& t( ^0 }8 \1 Y5 |
) D v* _# O# D# j
blkname (cdr (assoc 2 e))
& s2 B$ h) x# N: d
7 x. n: w9 B9 J4 x* i! o \7 @) W
blk (vla-item (vla-get-blocks
4 v( z5 E+ H% {) i$ a) G
* x9 S4 Q3 n V0 U$ o" b2 ^3 q
(vla-get-Activedocument (vlax-get-acad-object))2 _1 M% D7 i% i6 r
! |2 R; W& `# M: [! w8 u# o/ L
)- M$ \& O u# k* j
) I! D1 M- N3 A/ g' C
blkname
. `$ P1 e+ |! t z
! P. E$ x' @8 w) }! G* o
)
9 E4 U( x! x/ c6 }, k+ z6 M; J
* v3 R) `5 U% E* |
)3 m5 b* a! ], }; D6 x
3 }4 T0 J* l {8 h( |
(vlax-for obj blk
% B% ~; _: L* {! g3 |# ?! D
/ B0 d! Q; y" z% \* y# T
(if (= (vla-get-objectname obj) "AcDbMText")
2 h+ A9 c0 B1 C2 X; n: ]
& B8 f" j" C; g" D, v
(progn
$ U+ T4 K8 h {2 g9 D- n
' X7 k" s+ u4 R% d/ @
(setq txt (vla-get-textstring obj)" |! p; Y7 _" @1 v7 V
- r0 h4 _( Z2 @. n, U* L, |
)4 S; W+ S1 H1 q1 ?; k8 b
" z- {; k t7 |" c4 _! b) n; n
(if (or (= "" e1) (wcmatch e1 "*<>*"))8 l2 X) H- F4 M: Z9 V: q }
. k4 n3 A: p' X" g
(progn
0 u& M2 ]' O3 }
2 M# F1 s1 p5 F. C
(setq e (subst (cons 1 txt) (assoc 1 e) e))) ~1 P7 E* S# q4 s7 R. ] f
/ @$ B6 D, e1 C: T& m8 e
(entmod e)
2 x5 R( r Y' w! C
( E+ q" R9 g/ I. @
(entupd ent)
9 d6 w" a& ]1 B! i7 m
$ E: K9 F9 r8 \9 g
)
, J7 Q) r3 t% x* a$ o7 O9 H/ \. M
8 s# X. U+ L# L% ?
)& X( p' q( h5 u: e
, Q$ B5 F$ @7 e' F7 |2 `, N/ m2 ^
)
% y! c5 M4 f8 {5 m
4 ^7 D% F: M8 C6 P. } b
) x0 Q% U) A. S9 B% r
- ?$ O' o* r T
) (setq i (1+ i))
3 ?% ]8 P9 d3 K' W0 i
8 C1 h- I5 q9 {! X/ z
)& R D/ L- d9 b+ j
! \2 K& J: ^5 v0 E& W$ N2 S
(princ)
( C2 }; @ C9 C E( i
4 \4 \1 }8 ]0 l& v* P; g
)

复制代码

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

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

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

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

浏览过的版块