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

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

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

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

4 Y3 @6 b4 n. D8 j
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.; Q' m" \2 ?$ Y) \# E
+ o- {' M) f$ S7 q" u
;;
6 L% R3 I$ }0 _4 o2 E4 g G0 T
1 i+ T8 u" G- R( b# M
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
8 o- n h# C2 G! L! ]
2 C( {; \$ m' p! i$ C. P9 s1 \2 G
(vl-load-com); h q' q1 V0 e5 q" W7 c8 i
! K, E% o4 u0 {& x5 u
(setq ss (ssget '((0 . "DIMENSION")))
9 H5 ^% `: C; n
2 y; ]1 a5 I' j" H5 h6 e8 ?
i 03 ]/ {3 u2 K7 B6 n
$ v5 J* N* Y% @# P7 {
)7 O8 C) Q' P$ |1 H3 i6 k; e
! J. V$ |) D$ J/ Q) X* m
(repeat (sslength ss)
* C4 v) V8 P8 \$ i& R
$ ~& {& ^! n! F- E
(setq ent (ssname ss i)7 _! ^5 L+ w: f3 V6 s) O7 M
9 w1 M3 N) I) m) m
e (entget ent)2 `/ Z) z" S& i2 s0 @7 `$ L: J
0 k* q+ Z, `* p- \% `
e1 (cdr (assoc 1 e))% {! z; X* J8 `- Q6 }6 Q, t# n c9 E1 X
: R6 q9 O& W5 x% y
intpnt (cdr (assoc 11 e))3 [7 @. f: M$ l) E
$ D- E2 o5 \+ Y3 k, ^
blkname (cdr (assoc 2 e))
' R/ d5 m; w+ S9 ^$ w. {* L9 t, @6 m
: E! r& L* k, j, |' H6 ?, ~
blk (vla-item (vla-get-blocks
1 K, g/ @3 f3 x7 h9 n: g
# M. ^' b, i) Y
(vla-get-Activedocument (vlax-get-acad-object))
8 P3 n3 F& r) S
, H9 z+ X/ Z; `1 U, ^
) |* H3 F+ n7 |8 K* n g: X0 p- L
A9 {) n Y. A. h
blkname! m6 O* P' K3 a9 `4 I0 S7 l8 t
: A; y$ U5 K9 Y3 f7 N/ `! o
)
9 }% H$ m+ l' L8 l, a# C- W" {1 U3 i
6 o: W8 [9 P& c# y7 [' B3 o) R
)
" F: c& o9 _# z' z. u, F
' J& y$ n: c3 b! M: u' d: d' ]
(vlax-for obj blk, @" t& N" |) _4 E
/ x H$ i! }7 B; i4 q" e, r
(if (= (vla-get-objectname obj) "AcDbMText")
+ z- Y6 g# i4 L3 ^, Y. d
7 u/ _4 K8 H/ G8 \7 {% S
(progn2 D ^, Z1 H \5 j" h
, E* S' g) P: `6 o% y: @6 }4 [
(setq txt (vla-get-textstring obj). ~+ P8 v- Q& T, L- a4 x$ G
1 c; i7 s- ^4 d/ w9 q) L# d
)
# X; b4 U, t. W1 Y
$ {$ `( o) J' E
(if (or (= "" e1) (wcmatch e1 "*<>*"))
- @. i s. G T- D
" N# T1 V. J, c1 R' a) l
(progn. M( A7 n9 e' h m- c2 e
. j$ T |- k# C
(setq e (subst (cons 1 txt) (assoc 1 e) e))! Q: a- T; c$ B2 d" I
$ n; [5 S1 k7 S3 t
(entmod e)6 s6 T6 S X& `9 ^+ l
) d* n$ b, m! ]8 F0 O
(entupd ent)2 E6 x6 _. b- F9 x
. b$ U: H2 u) u$ l# p- J
)
. r- z8 p0 a) s
- p6 g, B4 y" f5 `" j* x
)) L% I+ Z) a9 ]7 z
_+ [ Y5 i4 q d; |* E& z6 j6 H
)! [3 m* l3 |6 O" v# `6 ?9 G8 y) S: \/ |
" ? n/ z) [+ M
)9 _" k: }3 u: [: V
; k2 c7 x5 ?) i D4 M0 {- Q4 l# _
) (setq i (1+ i))) G) L+ ^3 t Z; V0 ~. Q
2 T: l3 t! ^+ V u& _: U) q
)" F" w. R' s4 l7 N
9 \; c2 N$ m- P/ \( J* Q5 U* t
(princ)" p: `/ r4 v) x
$ Z8 v, @1 A: n0 J1 u5 J6 v0 N- Q
)

复制代码

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

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

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

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