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

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

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

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

5 b6 I# b; o" U! d4 I
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
1 w/ @4 G7 O) U# w
4 g0 C8 f$ z. X% h
;;; h6 q2 i3 [% U: G6 Y; ]% P/ M
( V) x* R( o# V7 Z& Z
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)8 h6 ]7 _$ X% e' @6 [
& \( L- o2 Z& ~$ ]/ |' `9 W
(vl-load-com)+ G/ s$ w6 Y: \3 x' Z
! n4 j* W2 @9 [5 \" u. ?
(setq ss (ssget '((0 . "DIMENSION")))7 k" d. | z0 U
" q! \; W" K1 u) f& G$ u
i 0( J! m: R m- u' f3 y
& x i# R$ g3 F/ u6 Q) ]. |6 c
)
# ~4 R# f2 f( v: b
l1 x. J4 i( z3 U& z- [
(repeat (sslength ss) \; H; D8 `1 L8 ]* {9 c
. ]: r( W0 g: ?' j2 J
(setq ent (ssname ss i)6 v9 D5 I7 |" P' h. T5 w
2 N) N q1 R' A/ `( n4 J
e (entget ent)% e# _3 w# f2 u2 ]
0 Z" W% ~8 z h+ a8 g' S3 T- p
e1 (cdr (assoc 1 e))$ S. `* H0 L3 b) ]& D
7 J R8 ]% G; T# h5 M! e3 |
intpnt (cdr (assoc 11 e))- G# B! g2 i7 }& ^9 J
2 c) s/ p: i5 E7 l1 h! ~. c
blkname (cdr (assoc 2 e))
/ W( S# s+ d4 K
# Q" N$ P0 y0 M1 m2 P
blk (vla-item (vla-get-blocks
4 e3 Q1 O4 S* O* M/ w& H
+ T" D9 Z' s' I3 u
(vla-get-Activedocument (vlax-get-acad-object))
8 I/ k) G$ @- u0 h- B
7 s6 f! B. r+ L. C4 C i% }
)
+ h" B/ {3 Q2 q6 q) y
) O' w$ w. y3 T( c( e7 S" B7 H
blkname
& u7 H) v3 J9 J
f! i( S6 `( G, F
)
& v0 Q% I. O8 t1 m1 q8 T% A& q
5 c. @: A0 `- I7 n* z& D) Z
)
! [# s/ ]" |8 o; e& ~
/ U! G1 a! b7 a' E
(vlax-for obj blk
' B7 X# Y) _+ Y2 x n. I& B3 n8 H3 N
/ Z' P7 G* P' u
(if (= (vla-get-objectname obj) "AcDbMText")
2 B, ~/ G# S* i" C5 c; l! l2 d. j
. X6 {0 ?$ n4 ^) a
(progn
, b# s9 ~8 d/ P$ x' B! `3 {
, q U P1 n9 V" l( U
(setq txt (vla-get-textstring obj)
3 }( @- ^0 C9 t
, V8 i) p0 o3 |! P% x
)
* e# U7 H* r: J+ Z
1 ?, D1 y6 A( k. ^1 E, T; W
(if (or (= "" e1) (wcmatch e1 "*<>*"))
7 }& |! Y( X1 O; y4 j% ^
! ?" X2 E+ V* d0 ?: n ]% C; G
(progn
h" u8 ^! M' k$ L9 T, u0 N& \
! B/ e& ]$ z2 ~5 P2 C5 h
(setq e (subst (cons 1 txt) (assoc 1 e) e))
; f: t5 a% z; N! h/ [8 ]$ a; L9 h0 ~
- R' N0 ~2 Q& F+ ^" r; m
(entmod e)
, S& h5 S1 o8 c! r$ w% Y) H
" l4 w" F5 [. V6 p1 Q
(entupd ent)
R& q; d/ `+ l0 c% ?2 H" k$ Q9 O
/ ~2 R: j: W M; ^( o
)
( b {3 L1 W5 y* G7 |
1 m" Z; g8 {7 F3 Y* g# d" o
)
3 V5 o1 ~2 ~1 e% D' t7 }
9 P- @9 n/ y& ]0 u) ?
)
% @- T9 `* s! r0 w2 j8 N* _* d
. P8 A1 t" M( E$ N: e' @0 y* x
)
0 s/ m+ S: R2 g/ Y' |
, Q% y; f* h8 ?) `$ Q
) (setq i (1+ i))
$ {* }! Z" S& n
5 N- x* i* Q# _2 [
)
' i7 D1 ~4 ~" I! c: \0 C% T* P
) Q0 v+ D, I% ^' C
(princ)
. q9 g3 b3 Q! L$ j8 M& c
+ G! h) `: b$ ?# h
)

复制代码

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

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

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

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