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

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

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

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

" O1 j" A) r1 j
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11., q' S9 L" v& n8 y) n
8 V, c8 k- _9 t$ ?# }. p- E2 B" A
;;# H" Y1 K4 k# H$ {, q* I
# ~% y; n7 N& V n9 C3 _
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)0 c1 C+ V( d/ `- U$ G
7 @9 w& w8 c+ c1 u
(vl-load-com)4 v" B& U3 [$ O5 N6 Z
$ E) q4 O# J+ u
(setq ss (ssget '((0 . "DIMENSION")))/ _& n: [6 ^1 i" s; n$ C
, u* C" ?( { }+ b- ^
i 00 {' k0 Y3 V [: d% f7 H4 L
. M" d& m0 Y4 R. v5 s5 i
)/ j& f; v. C2 \% P# N7 X i
# M# n3 g+ `" F4 \1 B8 J
(repeat (sslength ss)/ o Q* C2 r$ Y" [! N7 K. D* @
6 S% X# s" @: r( [1 U
(setq ent (ssname ss i)5 ~; W3 ^& L% P* D$ v$ X7 o+ d
# J. l! @( D, ^
e (entget ent)
# O7 b# t& M( w/ a) \" @4 W+ J
, V/ b. I, y) @
e1 (cdr (assoc 1 e))
) G% i3 U2 R3 e! J; N4 A$ v4 c% Y
' T- a4 W8 j+ a+ b: \
intpnt (cdr (assoc 11 e))
6 g& }- F9 O' N7 O# `% y
1 x8 O. E: L7 Q' u
blkname (cdr (assoc 2 e))
. C3 R0 r8 P! `' G2 g1 U+ k2 N; f! c
~$ ^% l* v1 U( H% j
blk (vla-item (vla-get-blocks
' o" l& X. c" d9 K# o) w4 {
4 [. z/ I5 A0 g, d+ l/ h# @4 ]7 r
(vla-get-Activedocument (vlax-get-acad-object)) K# o! M. F# r2 n
& c1 d' g( L! H5 X& I7 u
)
5 L: ~, @: O1 o* U
% M2 \+ a7 M4 W$ f9 K
blkname; J2 o+ |! W8 g, X
+ Z P. t$ E2 j& k: E0 D
)
( L5 t# h. u6 x; ?
& y2 _! t3 F: h. E4 t* k
)5 _+ \8 X. p. Z) Q9 L) I6 c/ ]0 F
( F4 d. G+ P4 e
(vlax-for obj blk7 p1 B- m$ j/ @$ j; b* Z0 F
& h. h! R, r6 m0 X/ j: r
(if (= (vla-get-objectname obj) "AcDbMText")
0 v' J) P4 m6 M
) X* N# S" Q4 \% W3 |8 o
(progn
* ~4 K% W/ D, A7 i, e5 g9 G5 G
. @: O) `, V- ]5 s# A& J( D4 e# z; _
(setq txt (vla-get-textstring obj)) ?. i) _0 Z# C" y- q8 V0 J
6 x) x0 V2 |* {$ F# h( w
)) d L( Y3 K5 ~% p4 Y* P
O& a _' t. _2 H- r# D& b* U) H
(if (or (= "" e1) (wcmatch e1 "*<>*"))8 e# N* h) ^+ a4 Y% R
3 y1 L* B1 X8 ?' G d$ a# G
(progn. X% b4 ^7 h7 M2 N
% ]) ~3 b/ z& `
(setq e (subst (cons 1 txt) (assoc 1 e) e))
! Y8 ]# g$ n: c
9 Q9 L) O' k" U: g
(entmod e)# A( C5 C$ u0 D; I, r" h$ `# q
; x) K8 L( j2 ]8 C( ]/ I1 I$ H
(entupd ent)7 V8 y: P8 A9 o. K* {
0 q' Z2 |( h6 p# e2 f
)
% F6 v! W, v0 c
0 H& @ C- _: Q0 F6 m1 q
)
# W# V8 C% H" v Y5 Y$ t; q( L
h. X% r' d# u( `
)2 r% J" O4 U4 @' K3 D% q) P1 a
8 a& i+ O+ [5 c/ I
)
9 _1 M% u8 \( u/ J: v4 _5 E
# x- c* W+ D. L/ X4 o& r, j
) (setq i (1+ i))
. l: z& D- d1 k( w
3 o$ l! h' L7 ~% @ h7 _! Q2 R( K
)
+ W# p! V6 ^' x8 u
(princ)
9 N! S4 |' B2 Z% G
) l. m3 z7 ~% J0 Z2 m5 e
)

复制代码

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

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

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

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