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

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

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

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

8 H; R0 r" @$ M( Q& O: w" I$ i* w
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
4 x# m8 [& t5 |1 t1 }/ _
, S! _: N6 j; Y- o
;;
: @% h* Q8 b$ U* Z; ?9 [- a
) l- ^/ x4 Z" C9 a4 K& U1 v9 c
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
- u# k. W/ i+ b& d
( S2 A+ V* w' S1 ^ u
(vl-load-com)
& Z( F# J4 f: V
$ O. n% J/ c6 F; l% T
(setq ss (ssget '((0 . "DIMENSION")))
3 w0 d% Q( K) f+ g/ N, y$ O
5 W3 ~# O( e8 k- }3 p
i 0
; P: P8 G6 O& E4 z$ R
( I) g; o( d" C3 |
)
2 ^( f3 ?! U/ |% b4 `: b6 j& W
0 H& e& B& x2 r( f" W
(repeat (sslength ss)1 N F- N4 Y; n1 H% f' ]; k
( x+ ]( z6 [0 L
(setq ent (ssname ss i)) n u$ T* Y% n& n' t
; o# d& M7 `$ ^
e (entget ent)
# L; ]( C! V8 U8 S/ a' _
. i9 f, Q' n6 A6 c. H
e1 (cdr (assoc 1 e))+ M% k, D) T S4 ]1 U1 j$ E
9 {2 E/ Z0 s' J. I8 U/ K/ O
intpnt (cdr (assoc 11 e))& z, u% }+ e- J0 n
( e3 k* M3 j# i; b8 b7 ~; O7 U
blkname (cdr (assoc 2 e))% }0 I. h# t( {0 @* U( m5 B
* }" b& l, |- q: C C
blk (vla-item (vla-get-blocks
j. ~, v. S9 t. v, U
/ u& u, y! y! ^9 e9 A
(vla-get-Activedocument (vlax-get-acad-object))
' Z* ]; P5 K& H) b; b& U" D3 D
+ v& q) P, L3 J4 |4 I, S3 V* X- i
). v$ g7 Y* m# t* R! P) [
' u( P9 F% j" X% o, s
blkname! J0 p! P1 a* p% P
9 ]! L3 }& a" V' L
)& z: F$ _1 e6 E. m
; z/ B+ P1 e$ S, [
)
0 t" B+ U! u* b
# n$ v+ K1 Z% y6 M
(vlax-for obj blk
9 V& G' f- |4 ^: k" w3 h; `2 w
1 b* Q7 P' V7 N5 w7 t5 L0 p
(if (= (vla-get-objectname obj) "AcDbMText")
' x$ |0 t* [ L I$ N6 r6 n0 e0 t
$ U( \& O9 i# r+ m5 t N
(progn
, }* N$ Y* Q/ D* Z+ ~5 O z
% i+ C: @3 H2 Z
(setq txt (vla-get-textstring obj)0 q) i. x, }' l; ~6 {* D% K
# ^; r# z- |% e" l$ M5 X4 ~
)- i0 e0 W7 P4 L' }' I8 `6 Z" H* S
0 }0 C6 H- {0 Y2 O
(if (or (= "" e1) (wcmatch e1 "*<>*"))
; g" u9 V/ t6 v( H
7 r, B/ n3 b- v2 K3 `9 L: w6 P
(progn3 h8 |5 q O7 ?
! m2 o, H9 [' g* X/ r
(setq e (subst (cons 1 txt) (assoc 1 e) e))
' I& A) o2 Y4 M ^
/ S- P+ b5 D& ]5 [9 G7 H
(entmod e)
) Y9 t/ t8 Q7 B' }$ f5 G
3 j: c. R2 t+ x' c" |" y
(entupd ent)5 B3 w0 I/ n1 ?
: `! ^ ]5 l, u/ R( I5 n/ s- V
)" O1 [. f$ K9 h6 i7 v
+ `; |; V( v& Y; o
)
) ?/ O1 m, e2 o% t! R5 d
4 ~8 v; \; R* Y8 T V0 v
)
! I) x" v- V! Z5 I/ u2 K' E
; ^4 g5 q, a7 u( X. N8 Z2 i
); L. a* Q7 A, ] d7 a
* C3 e$ ~3 z; g7 a0 h" w
) (setq i (1+ i))
9 c2 h6 Z& t9 D$ Z9 U% m4 k4 ]# j. u
( {! i+ z8 A- T6 P" {
)5 s- I3 N, f5 d( L* D
, r8 z. y( L0 ]8 i
(princ)
0 V& D5 x( k! {" q1 l, B
- ?6 C' e1 a+ P# Y* b* d
)

复制代码

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

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

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

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