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

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

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

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

" O v6 _7 J2 d$ }9 ~/ W h/ |) @4 s
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.0 _0 N4 K$ [3 p6 F+ }
' z M/ s) j) H3 w9 Q4 B5 x
;;
" i0 y- e% h1 P# h/ |2 q
' Y# A; Y% u8 x+ ?
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)# q6 Q' R9 I0 a J
T/ ~ V8 p6 z: k& i
(vl-load-com)2 w; z+ o0 E4 u& Y) I
- N) a) O5 e; y
(setq ss (ssget '((0 . "DIMENSION")))
( @+ ~& R& N5 p8 T* Q5 G' N
8 ]2 ]) r" E% Y
i 0
/ X' C# k2 q# W3 F: I
$ Y/ I, V9 d) p+ S- X
)
" n: y3 ~; [8 y! I0 S: R
0 f V6 V* w5 q) x( |
(repeat (sslength ss) y4 p+ N: k( v2 r
& D" y8 \7 P1 E. i
(setq ent (ssname ss i)
% A9 @ V z( ^! y) Q7 L
( M3 _& `# t* C+ Z5 ^5 u7 X* ^) N3 |
e (entget ent)
' E, a J/ {$ \) g. F5 V
: W) ^/ J) e+ _: @2 T1 c
e1 (cdr (assoc 1 e))
9 Z9 i; h2 i0 {0 O8 p% q }6 E( {
5 y; I- m q$ U# s) A7 E
intpnt (cdr (assoc 11 e))
2 W- |+ t+ E. ?9 t" }
- y7 ], C9 V( Y! B
blkname (cdr (assoc 2 e))
6 l/ g+ S9 C7 a4 M: Q7 ~
3 I |* P! D2 F& c* k
blk (vla-item (vla-get-blocks
# d6 e3 m1 l$ H( ~0 P" b1 k
) I u8 k7 p6 g; A; J9 ~7 n0 u
(vla-get-Activedocument (vlax-get-acad-object))
/ H1 E& C$ ~ O2 D3 g
+ C7 [% x# K0 V" ~6 c" @9 w3 y* W
)2 y( f* P* H9 r3 n& w+ w5 G/ I
2 f& s9 |% n# {; I
blkname7 L4 y" c. {+ ]
' T Z# i- p6 C0 f
); ?$ W3 @* c' a% T
8 a1 i$ ^7 Y0 g/ W2 o! b. z
)
; e3 T& {0 m' V" p. D$ o8 d
* B# M- Z+ `- z) B) I* u- R5 C
(vlax-for obj blk
5 Y/ a1 z. u% w/ y
6 _. g, e/ C3 S+ {( V* e3 j9 M
(if (= (vla-get-objectname obj) "AcDbMText")
# B) G" D% ~# x
; N1 A1 P+ I* X
(progn
" x. y5 c- q0 `7 r" o
% L8 n& m! a9 G) t/ g' o' } | r
(setq txt (vla-get-textstring obj)# a( u2 T* `9 K- N5 S
$ a6 j( q4 O+ N7 d
)
8 E$ o' {& ?7 g6 |
Q( O9 P5 a: L4 M
(if (or (= "" e1) (wcmatch e1 "*<>*"))
d2 c% ]- c3 I& N9 V9 n/ Q
% {% x9 x. r' s0 }) l- d( T, |5 d
(progn0 H: l/ y3 n5 W6 g" j. R/ E4 Q- R
' {! I8 h7 t( Q
(setq e (subst (cons 1 txt) (assoc 1 e) e))
1 _2 s+ ]8 O. N" D# ]3 ?8 \3 j
& g7 V F& [% K$ ?7 F) g
(entmod e)# M p) g& z% J; `! y2 o
: N; F: F4 S- s
(entupd ent)
+ ~! y! W' ?3 K. b2 j
* m5 S* t! @' K4 i. h
)
2 |- b/ F- |6 c6 Q4 }
4 s; ^* s8 P6 C# w- Y" H
)
! P2 A# U8 V) t# c) |$ J
1 g V; K5 O& l5 b) v% Q4 v5 C
)' B1 j0 W8 D% T' p. V. T% ?8 g
- h% a I+ J* R4 c8 \2 [8 v
)
/ c* @! _( b0 D# v1 b* l
! U& I/ J+ x( y5 ^. k
) (setq i (1+ i))# l, @. k' q: G3 e
+ O% [0 V6 e- N4 |8 [$ W
)1 x# m8 `) e: t5 w9 ~, ?
(princ)5 f( h' w8 V; M. H! Q, d4 p" q
. ]$ M, d; \1 k* n1 ]7 `# i( g2 |
)

复制代码

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

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

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

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