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

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

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

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

( _* v4 V5 w' `8 m R! x
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
* q3 f, K k' B/ b+ Z C) m
! Y0 @6 ]( W" C: f( {, m! N& u& M& P
;;
; ]# g6 K' u+ i
$ E6 L- U( G1 m: z* E
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
: z: U( m& h# K. _: V
0 ~4 t2 C7 M( D6 E" `0 r. }# x; T
(vl-load-com)
( w6 C) k* R. D3 {$ d# m
" }4 Z: j1 A( |- o( C2 _! w
(setq ss (ssget '((0 . "DIMENSION")))" I, G& k, E& {2 z# k3 Q& K
* I7 v& o. \3 z/ Z" T
i 03 a& I; |; R+ m b2 y* k
v) l9 m. }( y% Q5 @3 o. i
)
4 x) b* x0 @: u. N" v6 j
0 k# H5 Z4 j. ~, r5 U, h
(repeat (sslength ss)
0 T% u, E) k: E, }8 a
3 R( f1 e, M7 [7 X8 g! T% `
(setq ent (ssname ss i)) B o+ O! P- v4 _; ^# i' `, P
6 g6 U/ U7 ?4 S2 H) }
e (entget ent)
6 `: o- Z. B( L8 Z
/ F; ?6 {8 N+ v! A2 c9 u5 A
e1 (cdr (assoc 1 e))- h* @1 [9 x6 S: y6 t
0 u% s: T9 N2 E# L; T+ G; B
intpnt (cdr (assoc 11 e))
# H% f/ M( l% z" a
1 P) j& _3 K( g O5 b i4 ? y
blkname (cdr (assoc 2 e))0 D, B" M+ ]9 V3 d8 [
/ H( Z6 `2 s9 {3 `4 A
blk (vla-item (vla-get-blocks: w2 q9 W' K. @+ e3 Y4 g) r8 _
, ], ~! R- g; [, U- F( B) w
(vla-get-Activedocument (vlax-get-acad-object))* M0 L0 {# c% V
_8 C9 w- p1 c" k% V) q
)
9 [9 V! ~3 e! p$ [. S# `" U
7 Y; a( p( t" p8 L( B: }/ ?
blkname; k5 _; R" S' }7 R" q; s' c
* A! D0 i& O* ^; W% f3 K8 r
)
! p' y$ r- e* t: l1 j3 p
. s2 h, g0 u7 c5 x* o% T6 ^
)
' u5 E1 v. J8 U" M K; ?- ]; S3 B
7 C. R7 h* x7 F5 s7 ?3 M9 y% @
(vlax-for obj blk
0 X0 v9 z5 j* [, t% H
! _; D% [+ j7 Z) r: i1 @- }
(if (= (vla-get-objectname obj) "AcDbMText")% Z2 U1 D2 D/ g/ S7 G6 Z' p
) F1 T4 L6 B. n/ k5 E: a
(progn2 {; P! \& L1 o; {+ [2 x
w& H2 l# b9 P, l8 q: n
(setq txt (vla-get-textstring obj)
2 t2 B7 ~% |1 z
6 P j' B# {/ ~5 L; l) H) g2 y5 a
). h9 K( j( z+ f/ I8 i5 u
/ v4 Y0 u& p7 q; g1 l! K9 L5 c
(if (or (= "" e1) (wcmatch e1 "*<>*"))! x9 L8 q: V7 @) C6 s3 K
$ f" b% H: x. ?: L
(progn
" h2 e! x7 U2 M& I8 w! X+ J
/ E' t2 h* d9 {+ P& B
(setq e (subst (cons 1 txt) (assoc 1 e) e)): P# d4 @. F2 u: F# I+ B; ]$ l E
- ^1 d4 D$ s) ^* f: N' u$ `
(entmod e)$ P& g# y1 L6 D, q7 }
, R5 Y/ H) w" {1 `7 ]) G2 L
(entupd ent)
4 `! F$ v' Y" {! q* `! J2 g
3 a( ]4 \/ n- h( {) |; U! T' k
)1 C; c7 _- D& A! L1 t! B& p o( Y
' Y0 N' C) B" Q* ~9 s8 C4 {) E
) C) s0 e5 ~( i; y3 M$ b: k
1 A# { A F- a0 U, ^$ J2 f0 S+ y: _% P
) P8 k' m4 s' s+ X2 v) O: F! v' h
1 v4 d' c1 O) c+ e/ N# o4 i& F
)* L ?5 \% k- {- O$ M* I+ _( p4 t5 F
$ W( l6 y+ R! `/ a* y' |
) (setq i (1+ i))9 P+ K/ }. M, u* o3 [4 p' d
# |6 p3 L0 I! ]" _; j8 |
)
& u1 ~1 R$ \! V# v/ t, f
( }$ `; h) V$ W- c/ @8 {
(princ)
- F: X7 P# r5 P5 r* P: e2 e9 V
)

复制代码

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

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

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

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