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

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

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

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

" {% f# ^7 \$ e. h
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.3 U/ }2 u* c8 }$ B
$ w. J# v6 n: M( @) D
;; d8 n' F" A2 ]! X7 H0 p
) A% x" b8 L" K6 |; G
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
J! B& A7 N+ V& M3 A2 m+ r- T
1 Z' K6 Z. I' S0 N, M
(vl-load-com)
4 D/ o, i) K y5 M" L! f) Y L
& x2 C& {# O* f
(setq ss (ssget '((0 . "DIMENSION")))% N) M' G* Z' W1 U- T. u
) d7 g: |+ G9 T/ H3 T. J( K7 f L
i 0, B' w# G$ ?1 f* ^) \
. A0 \# K. A- y- `3 v6 {' d
)1 P( h, C+ C- `& Q
+ d& ?. D$ A$ ~% { ^
(repeat (sslength ss)4 z6 `/ s! V2 x' D9 l3 T
# s: ]- G- ?2 n% g$ k! c# u+ }. v
(setq ent (ssname ss i)
. L6 @) v6 H0 \) h) W4 ~) q
3 w& p7 M; z: _
e (entget ent)
! T2 L1 i9 z, ?- f+ m
, H4 J8 u3 K% r0 q$ V! W9 K' h
e1 (cdr (assoc 1 e)), G- s8 Y% B$ l, e$ z# z9 U# A4 J8 g
( E* R! u/ t6 q8 V9 k5 ^7 X
intpnt (cdr (assoc 11 e))0 z' L, d+ e3 N5 x" x* m
3 I$ }, {% T# R c0 F$ L2 w6 g6 \% U% p
blkname (cdr (assoc 2 e))
4 q- K8 ^. J. P+ r
- a4 H. y# m4 X1 _1 A7 C; H
blk (vla-item (vla-get-blocks8 W& g3 ^/ ^2 o
) B: i4 S! P9 b2 X7 _! R
(vla-get-Activedocument (vlax-get-acad-object))
. U; y- n+ b+ x2 r) t, l$ X
8 S& D2 l- g" g% Q5 z$ R. ^( m
)1 E& O* ?7 ?" D4 G) S8 l# a _
- z) C# R4 ^% Q; W K+ D E8 S0 V
blkname
0 p8 |5 A8 D. E& y: x; O8 _- n4 _
' W/ W) d' r4 m2 D! O- `
)( |: Q4 V# {; c) G, w: y- e1 a2 @
)
0 T0 e1 X' Z7 d& M9 M
6 t" K0 S+ p9 M1 v8 c9 ~; e. \! ?
(vlax-for obj blk
+ j( W( r) Y O" V% U3 X
) |3 z3 E4 y1 j& t. m5 S
(if (= (vla-get-objectname obj) "AcDbMText")
$ }0 i: y2 o# q; F
( [3 d/ y, N5 S' G' R
(progn
4 ?4 n6 X3 L, i) Y8 {( e, c$ Q7 e# r
# i/ ?5 e4 a8 \& Y
(setq txt (vla-get-textstring obj)
7 \. Y$ I' c& Z# O5 V, ^
! c" L* H/ t/ T2 K% W+ ^
)
/ t. F9 C$ m& u
2 s! M: Z0 G2 x) V
(if (or (= "" e1) (wcmatch e1 "*<>*"))
, W; [* x, j) u
( |' I1 v0 t2 h5 B
(progn" H3 I, R" C* y: Y/ y; \5 f
. {" f# t% X' d! N9 k' L6 Y- ]* ?
(setq e (subst (cons 1 txt) (assoc 1 e) e))- C1 ^# y. I! ^2 e/ j* R
% a+ I4 \1 [# @0 J+ K
(entmod e)
6 H# y2 k! k7 y+ u l$ Y1 i
( b) ~- G/ j" }4 A( \
(entupd ent)
7 |5 R/ J( @. R' D8 a% }3 t& ]
) x; y' i7 }, }( H: O! {
)
: D3 Z1 {5 V9 U5 t7 N
, A: a4 Z, K8 G& c! ?+ s; _
)" Q) d1 w; ~# h# k: b& V3 W# x
) W" z% S+ F% p7 }
)) p. K1 N- x" Y
/ b, x/ ?/ @6 C+ b1 _1 F3 R M
)
5 |' }, |3 Z# u$ c: z l/ ~
* l& R! ~5 O' {/ h W/ F7 Z
) (setq i (1+ i))3 Q: C; E0 A( `! c: a, q& y
% G1 H) H6 A' O3 z7 Z7 l. w; N
)$ m5 m* T9 T- E+ c* O# B2 C
2 N) p' R0 t0 p; W1 k8 X4 b
(princ)
: i2 X9 j6 }0 k) J% r9 _2 I+ k" M
, ^: { p) W9 c) k7 W
)

复制代码

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

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

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

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