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

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

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

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

N- l o9 o- G1 U) y: W
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
( M6 E- }4 Q2 Z( U d) m8 J
0 x; A4 H1 k; e1 p2 `
;;
. ^6 Y/ ^+ M( v3 h$ C
8 }% n( s; ^4 s4 O4 z
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)$ U. J' S- Z3 i: k; }8 y( v" f: _
% O$ L2 J/ V w
(vl-load-com)
. v; x7 |& Y6 }) K1 X3 M0 j
2 n# i( A2 P9 H+ ]- b! c3 }: h
(setq ss (ssget '((0 . "DIMENSION")))9 q9 c( C# u' B) R' [" m) P1 ?
( l$ X+ c5 Z6 ]1 o" z# v3 ~
i 0
4 ], d6 }4 U T" P9 z& h& d
# U+ K' q' x) X7 \$ `$ H. {6 y. W
)
8 t6 X" u+ q* u1 N' U) V
4 f! n8 M9 Y" b; s# c
(repeat (sslength ss)- S$ w9 @% \9 u0 t
(setq ent (ssname ss i)7 ^- ~. ^+ }9 B* A8 ~; b& m
: X3 z/ X. C6 ]6 s# y$ i1 D
e (entget ent)
0 C ?! F+ p' i/ W0 v0 W
9 l) C$ t" \$ t
e1 (cdr (assoc 1 e))
) G" h% T. [/ C: L% M; E- E) R
; I+ U* G/ I7 G6 ~
intpnt (cdr (assoc 11 e))
3 a& t4 ~) W* z7 ~! N
; [* t$ ^( F2 c* N" [
blkname (cdr (assoc 2 e))
- [6 [2 y( h8 t4 u8 Y
* U3 v/ y; s+ }. V7 v
blk (vla-item (vla-get-blocks# W; a1 D, O: n* s# E; g
2 X, K0 \' }& W4 o, L! p( a) Z
(vla-get-Activedocument (vlax-get-acad-object))
. M [. A* x9 |4 Q; w
9 h3 ~' h8 F9 D# b1 H7 q
)
' E5 U8 W3 O c3 H1 s
( n: \3 j/ B9 R- ?
blkname
3 v0 \* d( ^, h) c
) E8 [6 l6 |( G+ h! o" W+ w, I
)
% o: @/ {' I' S4 i
0 D9 [, O8 r/ _
)" m" l; @' v$ d2 o# N
- g& a6 a0 r0 w& W/ m" v9 \1 m
(vlax-for obj blk
! z5 s$ c2 q2 U& C* a- Z. ?
' D$ W2 Q+ o! Y
(if (= (vla-get-objectname obj) "AcDbMText")
1 A$ I: ?: d# Z1 _* ^: m
8 b3 x! S' s3 y2 x
(progn
# @% v: |/ U$ L! e. {. ~
# `/ D+ J* G/ r2 {9 j6 r
(setq txt (vla-get-textstring obj)- t3 I5 M! S* V7 k( ~
4 o1 \& x* s- F3 @# P& [: p! F# m
), Y! w% W. N3 w* N7 h. T
N, O; g1 F6 S' g1 r
(if (or (= "" e1) (wcmatch e1 "*<>*")): @# `. M1 c$ T/ ^6 E% D0 i
S- _$ H* Y! R* B- @" y
(progn; G* v" M1 _1 e: ^) G
6 G# S, y0 j& G7 U; P+ O; G) r
(setq e (subst (cons 1 txt) (assoc 1 e) e))- T3 w) {7 i- l h( e' ^
5 _# t q! M: I' M7 x* n; x3 t
(entmod e)& D3 `( O- U3 z. [1 c
4 r7 s& \+ m/ r5 Y0 P% Q, ]$ i
(entupd ent)
c8 ~" b" W- t N
" y) D! i3 r: h3 L* Y' N& b
)5 {. r, I' H9 l8 p9 W+ l* Y
/ N; j& }( E2 S+ `
)
5 \6 D9 _& v! V9 ^
$ v" [0 k6 _* B) f+ u
)+ @3 a: q- w1 L. L( v
: |+ [% Z( D, E
)! f$ V1 [& L7 ~6 Z
" J0 v% ~, h% y2 J& l0 W; J/ X
) (setq i (1+ i)). T% \7 g: W. n. k
; B' K: Y& x1 j0 D/ K3 H( H) d
)
: t; q7 g; W0 T& [6 j8 f
: l8 G$ P: g1 V) \
(princ)) n E0 e" g+ K5 X- w+ ^2 v d( F
* J# T( O! [, Z6 B" K8 F/ P! l
)

复制代码

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

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

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

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