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

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

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

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

9 X/ j% k! ^% `. t, w
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
8 _0 w* h' S; \3 J8 P3 I
% w y+ T* ?' c4 q0 G# `7 _/ |
;;4 q/ V B4 H7 J( K) D; | E
( L: \4 Z/ Q( j, [# @' T
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
; {( ?1 V4 J9 D6 I3 P# z! W9 X. ^
7 @- n* a& o- x: ]+ f( l$ f
(vl-load-com)% b* N9 p1 q. p9 y* Q
, e, L! g9 I2 Y/ z
(setq ss (ssget '((0 . "DIMENSION")))
M' V, X. }& X$ g- a+ U9 `0 }$ }
4 b0 k: b$ W2 g! D- @
i 0; P! D. Z4 L7 ~
, s: b7 b# K2 t2 T8 Q s& T2 j P* {
)
/ C: @$ _3 H7 O- `# z! Z% e8 z
5 G1 @& e* C3 M! ^
(repeat (sslength ss)
- J8 L, Q! V, e2 f
( z7 G( _, W. o* M
(setq ent (ssname ss i)4 c& z9 l' k! r: i9 y3 L
4 S7 A. K- l+ {; x
e (entget ent)) |3 h$ [) `+ V9 M" M: x
5 w2 ^9 G! D3 D% x$ h2 d
e1 (cdr (assoc 1 e))
+ O0 Z; {6 I. C' C$ R
4 Z8 s% O" \- S; C
intpnt (cdr (assoc 11 e))
) G7 \. L O9 x
7 H- b* K! L9 p/ @
blkname (cdr (assoc 2 e))
3 C; n% f! f# D& T( ~
; R2 _" l5 N9 }6 l" v% o
blk (vla-item (vla-get-blocks' C5 |8 u1 G! C1 T9 e, y
" s3 w8 B( l# L; m; j$ y
(vla-get-Activedocument (vlax-get-acad-object))
4 \* m7 n2 P# |1 I) f) ]
$ o9 y# g4 x1 Z7 f
)
7 o+ d1 u1 a4 W
. N) P3 M+ W2 X# S
blkname
$ ~" C0 q: q7 Q: ^# x* Z
: p; A4 J% T; @1 X# t1 t) d$ ?; ?4 T
)
! @" w" o6 R9 A+ P3 ~& B( Z9 `( j
9 O( S+ X& N v
)
0 Y- s0 N) U y; z3 m6 q
z8 D1 a% C# F
(vlax-for obj blk
\7 p4 K% }# s2 V
" V# z7 B6 |. E
(if (= (vla-get-objectname obj) "AcDbMText")9 I7 y+ e" J& @4 o9 C% k* N
" r" j' v" {# z/ D: B
(progn
1 g' @, X9 k2 T) S3 R% p& F& r
. J1 @+ H/ x: i! r7 E
(setq txt (vla-get-textstring obj)
4 c9 b3 ?+ q- m9 S9 W
$ P9 k8 T( V _* C# k4 ]
)
% f+ q/ R4 R8 W4 @# {* m1 r3 F
* E. I' e% {9 F/ Z) r7 Q7 z
(if (or (= "" e1) (wcmatch e1 "*<>*"))
, h) B( a3 h6 M9 R3 l- c- [3 m- X
. [& r' Q& u3 x" p; ?
(progn0 S2 q2 p- W( \$ W
" w/ f: O' @& h4 P+ W) M$ J- ~
(setq e (subst (cons 1 txt) (assoc 1 e) e))- ~4 q3 E% p6 y8 `5 f
' W8 K$ q2 {" z' k
(entmod e)
5 w& Y8 z- _& P0 @
/ b. {9 r4 T/ v' q: J7 j* U
(entupd ent)
8 ]7 D# Z; v4 v9 w
)
' \% H o7 [, [& S/ V3 ~$ P
* I9 H0 {1 C/ h$ ^
)& @7 `0 I1 H0 j! v" w4 u
; e. k4 V3 [$ a* E5 Q( k; z
), d/ ] r. V6 I/ _& E( E6 r
/ C/ V* F) {( C$ D( s" `
). Q+ W8 V/ o& q
9 T1 Q4 I! [8 F* O, H
) (setq i (1+ i))
7 W8 S( L2 B3 Y( C6 o- G8 A i
* S/ P, Z5 R: A
)
" Z6 |' m4 P' \, W
7 |! q$ h8 C: i" m) I
(princ)
. s+ j/ Z3 x8 l5 x8 Q
( |( N5 U: L4 Y. 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

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

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

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