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

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

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

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

, e+ a) S2 U! P( e! [/ P3 d5 D! d
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
2 s+ a' n6 W# a7 z* ^
P! k# H+ d4 Q1 l2 P1 M
;;) s' U; {3 T s9 j/ J
" y' Q8 u: N; {6 D: [
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
( u4 y- B9 N5 c8 O; |
1 s3 {0 Q- y# J5 v# D" f; }
(vl-load-com)
, y; Q7 E" F/ K/ S e% {
1 D8 H& V8 }7 R% m: a" y
(setq ss (ssget '((0 . "DIMENSION")))
9 G9 s! s0 q' w2 O6 w2 V
" V) }7 }% Q+ C, g4 A6 e
i 0
4 ~2 B7 [! E/ \& m" b R: w
; a9 q: k' [5 ?: \/ w/ M% G* F
)
% N- g8 I1 i5 E' G6 T, {: a
6 J @5 A6 r' d0 t% t0 E( l# l7 t
(repeat (sslength ss)6 M( d, l, F: T! O O$ v
, F! u* i- d3 C& x1 ~' [
(setq ent (ssname ss i)" Q$ z% o; c3 ~8 B, z
8 \% t: i4 e) R! X8 p
e (entget ent)
, D2 V6 D( p8 @2 |$ O. F/ h% X
2 [# r! D' ?2 r) i- s' d
e1 (cdr (assoc 1 e))
% c, a; V( u- d% o2 e1 ~
. X: ^& a. v. V5 | E" v; @7 P
intpnt (cdr (assoc 11 e))
1 \/ F% i. p q8 e+ x
" i% U; E b& l
blkname (cdr (assoc 2 e))& A- Z( ^: f1 Z
7 h6 u0 k2 ?2 h5 X7 _- s
blk (vla-item (vla-get-blocks" `8 J) w# `5 n @8 X2 ^
7 w2 B# H. H7 \) D* x7 c4 I" h
(vla-get-Activedocument (vlax-get-acad-object))
8 G9 Y: e9 Z, V. c
4 c/ A4 h# O. {- r
): Q9 B+ N8 G4 v2 A
2 U5 J) C- f4 ~) \8 Q
blkname6 f3 p4 k8 L# h
; i, ]- N/ R+ d: d5 G# I" j& X
)
( _7 v7 ^/ \! c( p5 d, n9 X% L
" B- C; _" O# A1 G' @1 u+ J
)
+ R. I/ B+ T3 R7 H7 y
" I6 F; i( Z# V4 r0 V
(vlax-for obj blk
$ Z4 d& G" c1 Z# y! s. ?: k3 ~) ]
$ c$ b& s/ u m; g7 k ~/ G( i
(if (= (vla-get-objectname obj) "AcDbMText")
& `, B; b Y( N) k
. s/ M# A' e/ M" b5 v: C
(progn
; p* W3 q! R% I
- K( q# O0 ~4 d7 r
(setq txt (vla-get-textstring obj)8 k9 r* Y" X! Z& j
, t+ I; C( Q6 h
)
4 }) u! u. \% \6 ~- K" L" S
. Q/ E! ?& w9 j# h
(if (or (= "" e1) (wcmatch e1 "*<>*"))
( u8 C" D/ d1 @3 G" W# W" e. t
8 E' z4 p# g. i9 j, i1 m; J
(progn" [$ L. t5 W$ }# y, W5 y" ?
) X u+ I, R2 R8 Y2 [6 @; w
(setq e (subst (cons 1 txt) (assoc 1 e) e))
; t3 w6 l+ ?1 t* L! t
6 I6 [5 Y% h. d/ h& X
(entmod e)
H5 }$ l8 l% [; f! D
1 P, S* n! ]& D6 R
(entupd ent)
5 g$ w5 C9 s. u9 Y
" F) U& g) t) J! W. ^. Y
)8 T' d5 K7 I$ `! O
" v2 J8 h' F/ ~' i/ o9 _: U4 B6 a
)- g3 ]7 U' y4 ~, u! v/ V; {$ F0 s
& S( o, c+ s& E
) Q6 l' ?+ ^2 e2 _9 N
3 U+ e; k& E ]6 f- y% m
)8 z2 T8 Z+ r; N/ r
+ F( S6 A+ ^+ J
) (setq i (1+ i))7 u* `1 `9 O( o# I! Q
& H& h9 l0 i1 J5 X" m H- L) A
) z# c W1 V- z! G
1 I. s' t6 T/ l4 Y: t7 ~
(princ)5 W# J9 {5 M4 |
) |- b' _) M, X6 p
)

复制代码

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

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

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

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