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

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

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

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

4 O8 l8 m7 P5 C- ^
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.3 X/ U6 |4 a: E; y4 i/ n) D
6 v& B1 l; Q/ g! M+ H3 t
;;
* h4 s7 K" d t+ c
2 U; @9 G: C0 l
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)6 C3 S$ F* Q# [7 E
( f( n" Q& I" b' h
(vl-load-com)) T: t+ P$ w$ ]9 o3 [9 d- |4 i; x
( _& [* a; b6 v' F
(setq ss (ssget '((0 . "DIMENSION")))
! \5 }, J, @3 G, ]( {/ {0 T
& B( H" B. G5 N5 ?5 d
i 0
9 t6 \6 r) a: i: z- I5 I k: n
( S* {( ^+ Y4 M' t6 ~
)
# I2 L6 D" Q4 \; N- T
2 f# B# X. C" h- V" o
(repeat (sslength ss)6 ]0 t/ y$ g1 f; {: n
1 t/ A+ E: B" E
(setq ent (ssname ss i)
; [ d) v: S) ^% S6 C
/ F' c7 m) r- I' z d ~7 J
e (entget ent)
8 v4 ^! P; H+ q3 P+ `) i
, m$ e9 }$ E4 i% q O
e1 (cdr (assoc 1 e))3 n+ e4 F$ t3 g9 ~
* {6 h$ ]9 A* ?4 K' N- w
intpnt (cdr (assoc 11 e))
& m1 y) @; n9 n& `% d. I# h
2 i/ r3 t9 F; M' N- g" O
blkname (cdr (assoc 2 e))1 q' W( J0 j4 `9 @% I+ @7 ?
/ C0 G3 H2 M! j! ~3 \+ A
blk (vla-item (vla-get-blocks' n- y i, u! B U
1 g& A' Z5 c: D
(vla-get-Activedocument (vlax-get-acad-object))5 |8 W' @, e. I
; V. s9 C+ H# D( Z( ^2 d
)5 P. Z( X1 H5 v: j8 v- B r
6 i' S! ]( {$ s& \) ^: }% y W
blkname
: h9 y1 S- l! T
- {# y% d# }& |: j
) M7 ~* y( u1 I% ^
_+ V; [9 F+ J- H
). {/ |8 u6 X' y1 Y T/ b+ A$ e
, d2 _! q: Q! ~2 z! M7 f
(vlax-for obj blk% O3 E$ |3 `4 _; f; j9 c6 ?. Q& |
& m1 m! `+ m6 P- a3 S. B
(if (= (vla-get-objectname obj) "AcDbMText")( h5 r$ b3 [0 U/ E; F$ ?& e$ i
3 N* o$ R7 A: B0 L+ O1 U, m
(progn
; B- o3 \7 }( g) \/ w+ ?
- C0 }" R }0 e$ A7 e) u7 B! Y
(setq txt (vla-get-textstring obj)& G+ q& F; u9 n# {$ P
, E8 v1 b4 R& |4 y4 m( _
)" J; \ A4 }3 P7 N) v; ]1 j
' @* p% p0 h/ p6 i* W! H
(if (or (= "" e1) (wcmatch e1 "*<>*"))$ s' h8 ?9 f0 _/ l* s! g0 Q
" _6 X2 Z- e' P5 j
(progn
) z% l( l. ~5 l8 L1 o! I0 Y3 b
0 d8 G6 B1 P- M$ P: `5 G t
(setq e (subst (cons 1 txt) (assoc 1 e) e))
! K3 z1 Z1 P* H( a
) j5 K$ { \0 i1 _2 W# J- f
(entmod e)
0 j7 R1 a* Z- A# ^
+ j& U3 v8 J5 z, A5 L" w
(entupd ent)) s1 |5 \; b M
$ a/ M+ A; t. s: T9 {
)
2 F5 }2 z7 k) F; w% s
5 y* E! E% T. o6 x9 j; |
)+ `. _: R$ m F9 ^! _1 j& e; v* N
6 j/ Z* }: ^: h3 y& {" V5 |
)
* Z7 U3 l, @, G5 V, I0 ]5 g
* \) H: j* M) W3 _- Q6 Z
)
5 R; }. Z/ q; M' G2 q6 m, _- x
0 B; S* ]' U* l; d
) (setq i (1+ i))
& B& M! F" N4 m5 q Q
$ j! `- s& P- t; P, c
)& [8 v0 w% r! [" C/ n
0 V5 B, c! L7 ^1 f
(princ) R/ y7 p. {7 F
. c# N8 w1 G" g7 Y5 f$ s! {
)

复制代码

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

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

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

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