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

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

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

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

0 }8 j1 R. g- _5 G2 T
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.- R% g, Y4 y/ [
6 j) H C, Z; T
;;
) }6 o9 H: `: E! m$ F; b$ ?* z: o
) o4 v# m0 W/ A1 z. x7 Y
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
: {- ^) U9 k* ?
& q' d- _7 ]9 N; P( h) o
(vl-load-com), i) r4 W3 d& C9 M7 W( }
3 N s! V) o1 \& T5 Z- |
(setq ss (ssget '((0 . "DIMENSION")))
" D- U7 ~' K. q5 ^+ R, M% ?
" ^: D) l) u l# C
i 0
$ Q: S. W1 c% @; I- X
5 F" Y% `* q+ e0 s+ P& U6 i
)3 K8 K$ D1 B, j7 `
5 {2 M6 W0 j: H
(repeat (sslength ss)2 c! |' }8 ]5 s' q
8 d/ [: G5 p2 I' \. K( f( k
(setq ent (ssname ss i)
% o- i1 Y1 A* x% @& v
4 f7 V# @$ q: B1 T3 c! M: \$ J- X
e (entget ent)4 |" L( M' M A" T+ E* y! a, K
4 X( N9 i0 J( D+ \7 a& _
e1 (cdr (assoc 1 e))
! @3 q/ y, {* ?( e
4 F, O1 N8 b2 H5 P) h# A/ P- p
intpnt (cdr (assoc 11 e))
; |4 G$ C A* A: }- z& {
! h" N* }& N) z0 E3 t) Z3 x
blkname (cdr (assoc 2 e))* e9 P, t- ?6 j9 r# \3 S: G t& U& t8 N
6 W2 R- ~! E1 V
blk (vla-item (vla-get-blocks
4 k3 _4 N, i0 C
+ R% E$ W9 b. e4 A0 O
(vla-get-Activedocument (vlax-get-acad-object)); Q( a A5 X/ _ x4 _
7 o6 ^( G2 A3 P# ?# h0 {( r h
)
1 U% M7 G9 i- d& a0 _: D$ F
8 s: g; O8 @/ T# N" W
blkname d% z d) J2 M2 |
9 w$ e4 c/ z: Y9 v) X
)- n' A3 ?7 Z' ]4 M7 g
+ E; p6 j7 t* H
)9 B- x8 l' D* {1 z/ t, `$ W \
: W/ p. x5 t6 E7 r: n! M9 [! O- c
(vlax-for obj blk9 p, h# V; m9 d k& X T
1 B/ P) J+ g; i7 l' z& w0 ]" d
(if (= (vla-get-objectname obj) "AcDbMText")
2 G8 j1 p4 B+ k# w$ p: [2 z
5 x O0 r' r9 m! H4 ^. y: x
(progn
5 C4 B3 w) g) f" @$ u6 Y2 T% S
* o% R- e: p' \! q: F4 G
(setq txt (vla-get-textstring obj)
& N0 |+ B0 y l+ H9 ^5 z7 i
/ U- b) E9 f) e0 z. v
)$ B4 S- W' J2 T; C
' q3 A* o, q2 w$ f8 j
(if (or (= "" e1) (wcmatch e1 "*<>*"))
' j' i5 d1 u7 h
8 }& V) @9 a- ~$ i5 a% Q: `
(progn; O" o" Z2 F6 \9 h: T
# ^+ M! D$ I! I' Y
(setq e (subst (cons 1 txt) (assoc 1 e) e))
2 X7 o9 D) D6 D! U0 N
" Q# `0 Z2 a. ?: P2 |( x' W" H5 I
(entmod e)
) h5 k; l/ U* L4 K5 f! [
5 t/ ~* V4 @6 w; ]
(entupd ent)# b9 S, m5 x* s* m& ]3 z T9 l H
# C, a2 \; g+ F) f' f0 _' a
) w/ U/ J" f6 ]- I
% P) c+ q W k
)
6 Q! n6 I' S6 K% b5 r" T
& Y" O- a7 a" M' y$ F( J; e
)
+ V3 C% S/ n' ~
6 o4 N3 S9 J8 a) M0 C+ H
)
, A( Z- P7 } [& V( R5 P
- k8 Q8 A# X" T: Y* { i
) (setq i (1+ i))
$ F w+ Z- Z' C3 I+ H6 N) v
9 h: V L+ a: Y2 @! o( X% ?
)2 c& V. n9 h! u% x% L7 N
' O* ^2 Y9 h' F) i' ]
(princ)
+ d e' E/ f5 g. J5 P% X. q
" C6 c& \/ k# B6 R' @8 G
)

复制代码

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

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

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

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