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

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

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

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

: }; M$ X2 b, M# E! }
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
% K* f3 {$ W+ R6 Q4 R
1 Z8 v: i& B) }9 @( G9 k) x: j
;;
4 x: a9 O) D' }6 _
$ w5 |& d3 f9 ~. F5 G
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)( R0 `2 J& Y) Z5 Y
: A o% ~( z1 x0 \7 H w: \' U, b% I
(vl-load-com)4 A& j9 W* u0 U5 }0 m; |+ g7 O
# n- ?% Z- ?( J7 k+ d. [' J
(setq ss (ssget '((0 . "DIMENSION")))# Z" s% V: n- y1 }3 `( [
3 z+ v g/ W' m$ A9 \9 _
i 0
' C: |5 o3 {# {/ W* l# B+ T7 i
0 G( z+ L9 `* S8 l$ E2 y' h5 {
)
0 b) p9 R& ^! y. S) g, o
5 H3 t4 }6 n3 y& R! A1 U) |% z
(repeat (sslength ss)) P0 K3 ], ^3 s/ s
" f2 G0 q' C9 D1 ]# c) n
(setq ent (ssname ss i)
& ~8 `, X& l( U. _! q
\; I8 @9 Z) I! N$ A B; ~
e (entget ent)# x Q6 [: d2 Z! j9 s
' u& g, J/ }4 q* a, ~# q
e1 (cdr (assoc 1 e))
+ @6 R: W' `1 v. u; H. F% g
4 s6 w6 [& O. h3 m
intpnt (cdr (assoc 11 e))1 `! v1 p+ r6 ?
% K- c. D* p0 O/ D1 Z* h+ E
blkname (cdr (assoc 2 e))9 a5 W7 w( q$ i! M
( _2 {- h) c7 K, w& h$ n
blk (vla-item (vla-get-blocks
8 }6 Q/ d% T" y+ J ]7 i
4 [" Y% U) G' k8 I) w+ _: K
(vla-get-Activedocument (vlax-get-acad-object))
: U% h/ Z' y: q: ^5 Y+ f2 x
9 ^% d/ X+ T9 x
)! y" b) q1 ~+ O8 F
4 t" c. x/ O9 z
blkname# Z7 b' d% W0 S7 Q5 O
# v, @) l3 l" Q) ]& @# ~
)
2 r9 T# e7 {- G X0 X. k) H& Z. t
" `. o5 o7 |5 b4 X& ~2 y
)
# O. r5 D6 y6 S4 L! _! H# V1 N
2 j- H; x; v! d1 s8 j4 }- U
(vlax-for obj blk
: Y; P2 C, i5 J) T' f4 J
8 z% P- o* i: J u1 P/ o2 V
(if (= (vla-get-objectname obj) "AcDbMText")
# _* U9 _0 x3 `& `7 o
, @8 i: T/ Y9 g1 h
(progn
( h6 y& O- J4 l! {0 Z
$ u* M- C f7 s0 F+ B8 G
(setq txt (vla-get-textstring obj)0 B% Q/ E- W! S+ V) r
3 d+ |" Q- Z3 W6 D
)
' n6 j* f: {3 G4 d: l4 I ^7 s
3 r( `/ |: C4 T5 G2 E! z1 F
(if (or (= "" e1) (wcmatch e1 "*<>*"))
6 a+ i4 F) Z* R
1 d4 H3 B& m7 }- n: _, E+ F. k$ ]: S% n
(progn' l3 A$ [' \) x1 i2 c
8 U/ T" O5 i9 d( e
(setq e (subst (cons 1 txt) (assoc 1 e) e))5 X0 U8 r- U) x
+ O! a9 @3 y" Q1 H6 f! s g
(entmod e)
% }) |2 C5 ?% n0 ?
6 n. T+ T4 I* |, Q; j
(entupd ent); \' D7 \( x% s7 u
4 q6 B- v3 u% b0 O7 l3 N) n; M# O
)
; E5 ^7 B& _, Q2 {/ F& k) \
# }! g: I4 A+ H
)+ X/ ^9 z* y, E8 V9 u, m: D
. a) c$ L1 k" D0 ~$ r$ g' P
)
4 t1 e3 M4 I8 t
9 ~* Y5 ]! |# P. h
)
% r2 [7 ]' \5 U3 o
( r0 y. Y$ r1 H7 I6 {: S
) (setq i (1+ i))
$ z* A; n( i, p$ G. S0 g
# U- ^. I5 ~# r' A% t
)
|7 C8 C! J0 ^3 Z9 C
. g* i- }1 V9 q0 r& d
(princ): G+ a4 K% W% m3 K5 P! A
# H! [2 c1 m- c; J [- c& S4 M
)

复制代码

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

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

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

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