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

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

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

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

+ |2 S6 B' `9 l$ L% U, u$ |1 v1 P# {
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.7 X- q+ B1 ]- H# ^# P
- |' M5 e! V: H, j) s! Y
;;5 B7 \; _ [2 Y! i4 q+ m; C
' k) X, P+ |3 G
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
/ a; L- U( y4 t+ M/ c5 h4 M
' q- ]% A4 p) g8 ]# X3 q! X
(vl-load-com)5 F, B2 X$ J/ P& i% b
) c/ q& }( O6 [- J* T+ L/ g
(setq ss (ssget '((0 . "DIMENSION")))* A: R/ d' {) O$ j" U
8 P0 G* Q1 `& W+ }( A+ G
i 0
9 `* x! v! r4 m) z) t
. U9 C, L) j) V4 f
)( y- A# o T) R+ g
2 h7 T2 ^& u6 X1 h8 @! v0 V
(repeat (sslength ss)
- f3 j* p0 Q2 |$ m; L' r
: e0 ^% ]2 y, X. l. D0 J, w
(setq ent (ssname ss i)
6 O+ ]/ n7 V& _3 {. k
7 y/ C: L: d5 P+ G$ o
e (entget ent)
. M1 m" g9 r" F' s" X4 U; R' @, P+ `
1 ]7 y/ S$ P% z+ F/ J
e1 (cdr (assoc 1 e))
6 E8 d6 D" D9 x
* f' n+ I- f9 _7 N7 y
intpnt (cdr (assoc 11 e))
: {/ G- w# k1 L5 W: E' h/ S9 t9 ]8 Q! O
0 x! b* t, m, y5 I) ?* q5 o- c
blkname (cdr (assoc 2 e))
6 C( l8 Z9 o+ i% h2 V' B
0 Z7 p. Q6 \; b# C/ _
blk (vla-item (vla-get-blocks3 x6 K/ B8 i+ F! l3 z
( J7 V6 D, O- J) ^
(vla-get-Activedocument (vlax-get-acad-object))6 _9 ^1 |7 U0 A7 k( x# z! X$ B
t' w* h& b" s" k
). g! A2 A) O% L& M
1 j6 ~# J! Z% H8 f. [! Z; F
blkname$ b( l+ O% v1 e0 U9 b$ w* ?7 X
% ]$ z# J: v0 Q/ c& h3 T
), ~; j% D& N, [9 m
" X9 e' X# A, |- k
)
% T3 ?( k! r! j5 {- }; N: v
7 ]) X4 h; e1 r* t( f
(vlax-for obj blk
a7 |2 f$ @& Y
& v! p+ N1 e2 d* G- c2 U$ Y) A
(if (= (vla-get-objectname obj) "AcDbMText")
" n5 y# ^' C- q0 `0 i* L
' H" }- u4 W% A8 |
(progn
+ G# B+ d5 C9 \( {2 m) o
% S7 h7 \9 o) e" a9 @/ c% @
(setq txt (vla-get-textstring obj)
+ E5 C8 n2 W1 ]2 ]: L
8 M- p5 K7 \; L: H8 Q. C
)
2 e" B' }3 r6 r7 a
6 q# R2 E+ z! B4 J/ |
(if (or (= "" e1) (wcmatch e1 "*<>*"))+ s6 I7 R8 ~4 _1 ~' Z" x ^
4 }$ B# f6 q3 \' w
(progn/ z4 T0 m. I! X) R% d0 }
" J+ Y$ }* A) K# J9 E
(setq e (subst (cons 1 txt) (assoc 1 e) e))
6 g9 ^5 N" ^# J1 H4 d" S
" W+ n) ]6 F. j3 I. e2 N; b
(entmod e)" P _7 k* D! ?( `
7 r- S& u1 C& v. ]
(entupd ent)( w3 B" @. \3 Y- h4 r- [
. q% `9 f5 j3 H$ P
) x6 ` U) {9 I" n
2 w, W, ` j x/ V# x
)
4 I2 M9 Q6 b5 j) P
, T' Y( ^: a8 |" J/ y* [6 x
)
q! F8 E: O& P1 f3 k1 Y0 n# V
+ G3 `3 }; m/ |8 _3 v2 r7 ]- w
)- Y! W4 y/ Z8 }! a5 Z* p
- [8 M5 O- [+ c) l* K1 e$ ?
) (setq i (1+ i))
9 @# J6 Q8 ^' u2 d8 Y* D$ g
( Q% V0 S1 E2 }% U, Y5 L" X
)2 }5 X3 F2 p" C+ g
( p+ Y+ ~, B/ T/ g' H1 p( i
(princ)0 t4 D0 L/ E" q8 w) z! g
6 x o' j e0 g9 \, S, c
)

复制代码

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

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

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

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