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

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

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

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

8 X# h6 S) ~7 z6 W" Z4 L
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
( x9 w; i: v% G/ ]8 s' c
6 f0 h) S& z3 D; s
;;
9 r5 S3 Q- I2 K& H
7 M. F# m; l. Y: y$ Z
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
; \6 N9 W) Z/ v! H5 I6 B1 K
% T9 Q/ U2 A2 H7 S: i
(vl-load-com), p5 z( Z3 o* n2 ^- E: N
3 N& N |; A& A0 B# H3 J) w
(setq ss (ssget '((0 . "DIMENSION")))1 `% l/ j/ m# j5 C0 P
: [! v4 d% w2 D8 [) G, S
i 0) Q* u) i# l$ b0 ]8 S0 `
) `+ a- G; z% k
)
6 f6 t' @" | K1 S# R& B% @
2 P9 q7 h. T. U8 u& ^' j4 v1 m9 F
(repeat (sslength ss)2 l9 m% w0 v* y* z% d
/ g/ v/ i1 [" U2 I
(setq ent (ssname ss i)
0 `- d3 t5 Z: N* ?1 n
; h" Z; ?% @) a9 }
e (entget ent)6 |" `, q2 C* X [+ T; |5 ?
' n* ] v* i5 z- W! f& l* b, a
e1 (cdr (assoc 1 e))7 X; C& E: |# q7 M; b% b
; g5 h: H9 j/ r+ Q3 x
intpnt (cdr (assoc 11 e))/ E6 d$ D6 Y* [. U
: y$ ]6 D. d( N( x7 [
blkname (cdr (assoc 2 e))
4 \" ~, x5 ]. u( L# t! g
; C/ P6 D" s: Z8 h* f# }
blk (vla-item (vla-get-blocks
. O5 v, T# p+ B0 y
0 A: J: x: d/ Z1 {; N2 M# z" |# S
(vla-get-Activedocument (vlax-get-acad-object))/ b% Z, z; a# N2 U& Q
" t o8 l0 @+ N5 J% l
): _5 `( L0 z. n" _3 ?0 C4 C- U
/ l9 e1 ]: s1 b1 P0 j$ Z
blkname; C. |+ n+ N8 F$ W
( |1 i1 B. P/ D3 q
)- o- B2 D: k: Z
' M3 Q" @* E/ Z6 C
)
! \( Y. M# z, }- i6 }3 S
X. ]0 M w0 P/ Y4 e8 ~% M
(vlax-for obj blk
1 z* D q6 r* i% D# q
5 X8 Z% o& z- `
(if (= (vla-get-objectname obj) "AcDbMText"). t, e: F0 Q3 o
% s8 p j" T' ]' z0 n
(progn' }' r6 e/ z' I$ R2 ^& H2 ^" m
+ l. f3 k2 q w7 F% W/ e( Q0 R
(setq txt (vla-get-textstring obj)( _$ Y9 r# t1 f$ f+ B
. |0 y q z7 c
)
. f3 u# |6 O F
; t+ p G" y- o& {& D: Q. j% d! A
(if (or (= "" e1) (wcmatch e1 "*<>*"))
( b% g* }0 [' d: `
- E+ ]" e4 H1 Z1 V" T
(progn9 K. W# C9 T1 m4 s7 k
( G% p% k, k3 v9 v
(setq e (subst (cons 1 txt) (assoc 1 e) e))1 w& D' G( O' i% C/ x* ^
3 l. |: K F3 F$ T7 V3 p
(entmod e)
( m. I- Y# M! r3 {& S) r1 B! M
$ M* y0 q) g0 ~: V0 L+ x! Z/ Q
(entupd ent)) O( S+ L% M3 k2 G/ U S
) i! h* I5 q; E; q' K! U
)
% ?) q& k7 l% n& Z j
" V1 g3 J! _& F" u2 d& [
)0 G( y: ~% B' \! E+ Z. q" W: `8 I
$ `$ W3 |: ?7 B
), E1 l9 H& N7 B( ^6 b' s9 ~. {. x7 v
% H: { G7 k) N2 g; J+ h8 @" C3 V
)
2 q5 Q6 A' N9 B+ D# @1 q: @( l4 J2 B
6 k, ^+ Z3 l2 [' `) v
) (setq i (1+ i))8 o: E+ r9 G* i9 R. j/ J1 ^
5 K# ?8 c& U4 N9 @- t
)
5 f5 X* v8 _4 y2 _5 a0 N+ H
" X7 E% {, Z I0 W1 @5 z# d
(princ)
1 L( R; w& G% ]3 Y
4 V. ]1 K* o$ p y3 _, n) Q. Y$ a4 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

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

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

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