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

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

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

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

- p1 _. ~! }3 |- A9 r7 Y* V- N
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
* n& s' U9 j" m) D1 Q6 b" p5 T
% {7 S `7 i* X# s" n4 A& ?% K
;;
* a; P' x/ |* A9 z
/ p1 ]/ n" T2 R6 f" l( c
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)8 X. \6 r4 i, ^' R. q
2 U. k7 W" S% l* f6 Z) W
(vl-load-com)
c+ ~- q% R( G ^
- b* U% ?. [! A/ f! N( M, c
(setq ss (ssget '((0 . "DIMENSION")))) M$ Z7 A/ [# V+ f ~
9 O8 I+ A, V9 K. P
i 00 f! B9 v0 a% N# E) z; @8 h" \
! D$ W1 R$ z! W! r# f
)
2 Y- V2 f' h4 N- E+ \. P4 z& w' @
( v$ B( F5 L! Q: s
(repeat (sslength ss)
$ v5 N# Z5 x+ x4 K( t
0 \# T8 ]! ?% O% D. H
(setq ent (ssname ss i)! q: g" d4 R8 c# D, h
e (entget ent)# B' T! O) o" H* p$ ?% z8 D, i
# V' t2 f; y( z, P, e5 u
e1 (cdr (assoc 1 e))
|/ t) `( N9 t; L* u: a
* E) P5 Y# x% \ T% f
intpnt (cdr (assoc 11 e)). s. Q& |. \ r: f3 l, K+ b
' P4 f$ F+ O+ ~& y/ @, |: N
blkname (cdr (assoc 2 e))
* i) b5 Q, I* z8 L
6 ?7 I" _9 F9 Q7 G
blk (vla-item (vla-get-blocks
0 S2 o* {( R7 V8 Z* P
9 j/ ~% f! E7 f3 [
(vla-get-Activedocument (vlax-get-acad-object))
! {& ]& }# ~* }% R; }: M; I
" P- Z! g0 h! h. P
), h, |6 m* x9 h4 \: a
$ ^ c ~7 ~2 D; T2 Y% J% y d9 G1 V$ \
blkname( i @$ c6 z( P. _
+ J( ^( X8 R/ X) _' Y2 b
)" L7 {9 j, O. G& K/ C, m$ P/ ~6 z& v
( N) J1 m) E% p& m
)
6 p6 W; [2 ?7 Z/ q
) o4 [: b( L$ i4 V. M6 o
(vlax-for obj blk
2 c2 }0 Q) l8 o" p% U% S
0 D! \0 _1 m u# H% J5 G
(if (= (vla-get-objectname obj) "AcDbMText")
( K- s4 C6 U( k! B9 Y
9 k- q0 y5 i7 A) \7 u' g
(progn
- b8 C/ S% ^0 ^) Y. s
8 r+ H o# F# t! f/ }: O3 Z: ~
(setq txt (vla-get-textstring obj)1 j7 C. S+ A" { a& O3 K
" `( u1 k* e* I. \+ t
)
) Z, Y) B. i5 p6 D2 {& a
! a \" [5 k; I- E
(if (or (= "" e1) (wcmatch e1 "*<>*"))2 N, O) s& W2 Q: V& b
8 I) O! j6 f/ {
(progn6 E' }/ O7 c9 @, F
* T, x$ |' _$ a! ]: e. G- L2 e7 N
(setq e (subst (cons 1 txt) (assoc 1 e) e))
2 D! c7 ]3 U1 N* m
9 ?2 H" d9 Z; H
(entmod e)
4 G3 x% Z3 p6 b" E* ~
; }# E q* Q! `. R! x) W
(entupd ent) ^5 y& F$ r' K' w, |" A( R
/ f: _2 @8 y: g- B. ?! H9 |
)/ C3 |4 g8 x: }$ m3 _$ n& L, {
4 _ Z1 d! K; t4 Z
)% E7 a% @) R) c! b
4 W0 n( q# ], ~
)
! h, ~) f2 P! ^
, o% |) x; D6 V M1 R# u: O" E
)
0 T4 i( G F8 z( v3 }
/ a6 F. I9 Q/ z {# {: X
) (setq i (1+ i))9 w9 ], `0 F# g6 e
& f: _6 _7 f3 p' Z, \ Z6 ?
)
y5 ~+ z0 G6 E! h) j% f5 Q" P1 o
7 g* n L0 u5 y. `; U# U
(princ)5 k0 J2 K; Z5 M3 [0 K
0 N! \4 @2 Z( \0 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

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

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

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