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

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

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

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

: [! [. _( z5 p5 c+ _
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
9 f- I) h: F; X
@& a7 H$ X9 G
;;
) ]+ g. W0 L# D8 m
3 `& d3 o: F4 x- ]& A! {9 h
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)$ {/ z: {4 }' I9 b% x( y
* T+ ~) E. e) z! b0 G+ F
(vl-load-com)0 E0 \+ ]6 @! W: X2 n. y
' v1 a9 b8 i4 h& [ Z
(setq ss (ssget '((0 . "DIMENSION")))
8 S) ^6 U% `& Y
9 F: L' Y( `! N$ o0 g
i 0
2 Y' {# K- m3 m7 y
, {3 C" a! B& M0 X% ~ L
)
. ^) ~3 u, a0 ?+ {" l
# [" L) g0 S M# k6 g5 i
(repeat (sslength ss)
. d9 B& y3 }: |8 O* B7 R/ D8 W
" N5 R3 T" q7 z8 o
(setq ent (ssname ss i)
% Z6 R0 r& ?" P
- L, g3 E7 a4 d3 M5 p; ?
e (entget ent)% P3 X- ^9 Q9 N h+ s6 z
" m) r9 X8 I% S0 S) T
e1 (cdr (assoc 1 e))
+ K0 R! L! d# C6 R; G
; M' K' Q6 s5 o% t8 W C E; T
intpnt (cdr (assoc 11 e))
0 i$ v/ u3 }5 h8 m) h
& ~: p) M+ y6 l! [
blkname (cdr (assoc 2 e))) A, J" v6 b- C$ u
5 l6 _# Q6 H) P' y. B, U
blk (vla-item (vla-get-blocks
. F- K% `( u; x8 T7 {# {. Z5 }
0 H0 r$ c' l2 q1 U+ c& Q2 Q
(vla-get-Activedocument (vlax-get-acad-object))# Y5 e6 P) D% X& d- h9 P
2 \% v- N8 X/ t! ~# O% q
)( D' \% U1 U1 l. K8 W4 G
% |6 E' \9 n) ?% x; b/ l
blkname
7 C3 O! `6 J1 E8 i1 k4 p
. K* z+ ]2 e5 W6 Y+ Q
)1 ]5 M) K ` Z4 v/ }. q
8 K& s, _, |$ m/ J: {* K, h$ ]
)
9 x3 e; D' A( `
; k% a0 s" X: ~3 a; h
(vlax-for obj blk' R9 ]& Z- \1 i1 R( {1 A
, u3 K7 @) G+ d( I
(if (= (vla-get-objectname obj) "AcDbMText")1 c" O! I* a; U" s4 ]
- a- P) }6 W/ U/ f- w, i
(progn
# G7 p* B' ^4 W- i+ s
' A9 ]7 N8 h: I+ f% U$ R7 \3 o
(setq txt (vla-get-textstring obj)
+ f+ g; I6 y: r& N
; y) x6 y* I) a2 @
)
9 c1 b4 _6 p( j! U& l! E' a* o
. y# s r: E e5 d$ a$ N' l$ N
(if (or (= "" e1) (wcmatch e1 "*<>*"))
) G. |- ~( k/ }
$ A$ M' d. K/ {" y! ]0 x ^" I
(progn
8 P7 p; c/ X# r$ b, ?# U
1 f+ i8 l% B% [- ?. e
(setq e (subst (cons 1 txt) (assoc 1 e) e))! L% k o) o9 l
9 _4 P( Q0 S* s
(entmod e)% g# m6 n& e. T8 F Q/ @7 N
: ^% B6 Y, J1 I$ L4 B
(entupd ent)
1 B7 H5 f( D8 O. g
& l* t6 G* F* t: h" D
)4 ]* [7 [& a. Z) m, y* f
" h/ V6 B3 n4 v$ [5 D5 r- j/ }
)
0 Y+ a# m& p: F; W8 _& m" x
* _3 d2 _' a s4 G8 I! \; d
)9 g/ D7 ?) ^. Z8 ^* V7 K) c
; u" K( V* v- Y/ v
)* a; ]1 N' \; D& o. t- K
1 I: J; s* y& ]+ v( y+ M6 E
) (setq i (1+ i))
! ]' P8 b4 l1 J7 x/ Y
" ^% u+ j; ?$ [' v2 m1 n3 m
)0 K i ?: r* x, X+ V" i4 `
# S% }, b e1 ]: U8 K. ^/ S# ]
(princ), ?" d3 |/ H0 Q& K
6 ~: ~4 Z9 {: I0 p0 N; A# z
)

复制代码

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

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

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

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