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

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

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

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

3 `1 P b3 h4 b+ i& J# h
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
" }7 { X6 m6 c; F( ]( x+ B; O
% I" _! j6 T A1 [1 v
;;
4 N" k( g9 v+ _
$ H8 Z }- I/ Q i, T
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
# B+ j2 V1 Q# l% z2 [
7 Y% k9 e# ^' i& y* A7 \4 B2 J9 O
(vl-load-com) ]: F( c; d+ T+ c: o; h
) l8 i7 G, U& e) e
(setq ss (ssget '((0 . "DIMENSION"))) w* s! _" `6 O8 b9 V& D% \0 I0 A
! x! W3 E+ k3 A3 Y
i 0+ J* q. f0 r8 Y
( c/ R( b0 j( |) ]6 w! q+ g& {/ `$ f3 F w
)
# c$ N/ K5 i# Z8 K! W4 A& R
$ M2 z+ r; i5 t, l4 r
(repeat (sslength ss)
& j) _: z2 T" y4 l- B
/ O5 S" T/ N: a8 [& @. V5 u* S8 r
(setq ent (ssname ss i)
4 z& O& [: F+ e n6 a6 f+ y
' k( ^6 ^+ z8 n* k0 N( G5 O7 I
e (entget ent)
6 N* |. V i, j
- C$ ^; w" f! f6 H0 b2 K
e1 (cdr (assoc 1 e))
; t" ]( p3 J5 q
; U& H7 N5 b1 W8 a; z% y3 ~ K
intpnt (cdr (assoc 11 e))
( F$ O( Y V' u ^( Y7 E+ J- V
8 E# [' D5 A( E
blkname (cdr (assoc 2 e))
$ t! f- \$ j: r7 K, ?3 u
z/ X7 Z' F- p7 ]9 |& x+ o" \
blk (vla-item (vla-get-blocks
/ |- A# x' m. ^7 F( R1 T
4 S: O% K% Q7 Y9 l0 m: ?, q
(vla-get-Activedocument (vlax-get-acad-object))
3 Y3 d, e+ [2 u3 z. ~% S8 \. A. I; V
8 C6 c, b# n$ {
)
5 b% K; G9 L( E; U0 R5 j/ [
& q; k, q; T6 e
blkname- W; I# i' K0 w# O
6 R% Y- } q/ U
)& Z. Z8 T0 r! C$ ^. b- |
" r- x" r/ [% Y
)
/ X# _4 B1 {( | I7 `- |) U2 w, I
$ j6 |8 s( C3 H( v: }) A, M3 H. ]' U
(vlax-for obj blk! m r$ } F$ V& ]5 d' D
2 ^; [6 r" a6 j- s, u5 \
(if (= (vla-get-objectname obj) "AcDbMText")
6 `3 E: P5 f. {- V- c$ L" h1 f9 p
d: x# k, S" h( r4 s& n7 l
(progn6 P* c$ w; D5 R V3 G( @
2 Y/ K" y/ X5 R
(setq txt (vla-get-textstring obj)
* k9 ^2 f& C2 F1 R
; L( F! C+ K' m% W+ [8 R9 C
), g5 z1 z2 n+ C- b! {) R, e( j9 K( k4 Z
. b; K( h2 I+ y0 g/ @1 D
(if (or (= "" e1) (wcmatch e1 "*<>*"))5 C# z$ _8 e9 \; P7 T, ]
: l0 R; P3 d% Q6 c% g1 G: ^1 \3 d9 L' m
(progn2 _9 U$ Q9 U" Y# O6 F
3 r. y/ u# x6 c. a% a1 ^
(setq e (subst (cons 1 txt) (assoc 1 e) e))) {3 V2 ` u& B+ a- w) z
& }! I7 B" \2 R# |% \
(entmod e)
" G) W( j# s# G4 A8 B
; \8 a4 t' o7 b
(entupd ent)
2 {& G. v I3 T
& H8 ?# d3 }, B4 i8 v
)
! l5 m5 m$ h& @5 O( J' i' w
# a' D f+ [" e% w2 C* x+ K+ {
)
# U! L6 Z0 E' F
0 v- ^; p, w( ]% E5 C. L( Z& Y( W; n
)* N2 [* m4 k4 ?& @: \5 a
; l& C f8 L& l" k# i- S
)" o0 Y5 A2 _0 i( y" |3 E7 h U- v0 g+ O
3 Y. y y2 h9 e3 X( ~6 a* `
) (setq i (1+ i))8 f- {; ~, M+ P- ]6 w. Y
4 Q1 e- [1 T' }/ }$ `, u
)
, K4 j' Z/ ~. i
) J( e* Q& W* Y' F3 k) \) n' |
(princ)3 j. W* v5 b' Z) _: h7 C5 q3 l
2 Z1 L9 o9 l8 o" U
)

复制代码

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

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

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

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