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

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

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

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

$ M# R' _* u) y# w# V
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.8 W9 Z8 W& E5 V
, C; \" S* y0 |
;;4 L% j) m1 j7 U
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)4 Q8 V+ b; l1 o+ f4 x _
- q, j( _8 c5 P Q0 V: ^
(vl-load-com); t( o2 T2 q: K9 G. T
8 \7 w6 S, ]4 M# b1 U. f( Z
(setq ss (ssget '((0 . "DIMENSION")))
2 M2 r& E; S& }
" J' [- M2 i" @, T1 G6 U7 f
i 0
6 D! Z4 {& u8 e' {* \& o
- F1 }( l X' k) \$ m9 k9 v
)
/ W( Q3 `1 l- e( K
, P0 v3 B9 F- k& l3 N
(repeat (sslength ss)4 S! k/ c) G4 R6 U3 Q6 Q$ E; U9 j
: |7 k: P& B' J" }. t
(setq ent (ssname ss i); d" S0 X' g+ g" L' t+ D
! s8 V5 y O. G
e (entget ent)" w, p/ [4 u) x- K& p5 N3 [
5 L. j9 O) T( e* p) X, F
e1 (cdr (assoc 1 e))3 V$ t$ H6 C' J% x
5 G% g' s* R8 ]
intpnt (cdr (assoc 11 e))7 L; W# ]. d; A X
9 ~/ ]3 `* Q$ [; i7 r4 P" j3 M
blkname (cdr (assoc 2 e))( n# {# s5 U& f1 o
& K2 V) t$ `# d0 n, H
blk (vla-item (vla-get-blocks
5 y: q- g/ O1 x: b6 @
, ~8 n* L% _1 T+ P- g( O+ X4 P
(vla-get-Activedocument (vlax-get-acad-object))# F" S+ g6 d# Q5 Z
, F3 V6 b: z$ j6 {, w/ C: E
)& I0 i. G" ]$ \0 L+ ?
7 c4 j7 D q0 J- X: x0 L* B C
blkname2 i7 c7 b8 Z; T# X) J
6 |" ]6 x" B) r% d. a6 j
)" }3 v9 W) z( d+ u: s) x
2 U! N) b7 h! h
)
% |: P3 Q4 R3 T, T
# J) j: E! P' J. |6 e5 ^, S4 x
(vlax-for obj blk
8 ~* \- A/ ?/ U
& M+ T( d6 _3 |4 R7 ]4 q
(if (= (vla-get-objectname obj) "AcDbMText")
& a) M0 Z- a6 M2 n. S) j
7 {5 I ^2 `2 W: Y% r: u
(progn) P' t2 y3 r$ A" Z% H
: |6 F* K+ r+ v; L+ _
(setq txt (vla-get-textstring obj)
2 S# E+ |5 j! m& R
4 p \9 ^# n6 z6 @2 ]- j- |/ L, q
)
; s7 @1 n) [3 \4 q& m8 W( o
& _$ }8 o; e6 L/ q3 m E
(if (or (= "" e1) (wcmatch e1 "*<>*"))# n4 P( q7 w( T$ P6 i/ i2 J- `
0 _, q% p6 E, D/ o# q/ \
(progn
/ d( J& j5 a. `) |- t- V5 D
2 W+ n+ ~# } Z/ R- j
(setq e (subst (cons 1 txt) (assoc 1 e) e))$ `* }! P7 T6 W8 u7 }( w( {
8 \" d! n! m; i: `
(entmod e)7 b4 a$ M- D& q5 q+ |, L
1 f" ]/ c$ w$ o0 }, \5 ~5 l7 [1 @% k
(entupd ent)9 g0 e- R3 I9 e: f- s
+ N% P! a4 l1 x2 p" o6 Y& v+ h& S
)
% [4 s$ n" {; O
& p7 N9 y& O7 B
)9 E- P2 ~: R" @
) W% z8 F* D1 Y4 M, w8 O; p
)8 E3 N9 L' y* p4 B& E# c$ ?6 p1 b
& f" r4 ]% S/ ~% a) Q5 g
)
0 U3 k6 f3 g0 w" u- _
% e% g. S& }' K' V
) (setq i (1+ i))
" Y1 _. N; x( ^6 p
* q7 q! O( {4 j
); i0 Q+ K0 ?# C' c5 H
( C- z: K/ J7 ]) \( {: Q9 `+ p/ k g
(princ)" w8 h O. e. v! m
/ y2 H& O; z0 ~4 _7 \* i
)

复制代码

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

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

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

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