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

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

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

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

, A( g8 h1 {1 r( h. c0 ~
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
% T* U4 A Z$ q( y6 I5 P+ g
7 @0 E& A' i+ A' x' x- @" u
;;
( L" ?* E1 P7 X# I% z5 B" e
; E D. n; \. q% M" j7 s/ [
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)0 @. f# ^8 [0 S8 `) A- `
x4 D7 J$ @" m5 F8 ?# v
(vl-load-com)) n+ o1 u; I( ?+ c; d8 S& p8 r
& ]9 l9 y; O- ?3 j
(setq ss (ssget '((0 . "DIMENSION")))
) z* g$ n3 p* t* ] P* X
* C, ~( X$ A* v1 F
i 0- b |4 {: \1 |2 |% M' k& |% D, E
6 I! g3 G( q7 ~
)
- [" p) ^. l; E. K; ]5 E
4 x" G" e8 C1 r" B7 w0 Q6 r. A2 Q
(repeat (sslength ss)2 V6 Z" }. a$ W# |# B' {
8 G' K: S8 U5 ?: q
(setq ent (ssname ss i)
! s/ o4 w: Q; A$ X
. `9 Z/ o; L, p9 D
e (entget ent)
7 g/ @1 ~9 l5 ~7 R5 e
7 k: [! \% ]# Z% |! O
e1 (cdr (assoc 1 e))
! V9 H' M# m$ E
9 q$ ]" v K8 W; U+ W
intpnt (cdr (assoc 11 e)); H0 I. I! O9 O% |
- N& D1 o) E0 S; o
blkname (cdr (assoc 2 e))
- y# k; S0 k$ @! O7 m
- p8 V6 }9 P" f8 v7 f1 H
blk (vla-item (vla-get-blocks/ \! z- d+ Z% ^7 Q: x4 p; o
9 a; x2 T0 O v) d
(vla-get-Activedocument (vlax-get-acad-object))
$ A. F0 n: @7 m% Q+ U& u
8 g. |/ i- G1 J% ?
)
0 W6 n( z" v$ u: [/ l) z5 Y
$ Z" A' K6 v) @' }3 ~) i3 T
blkname
- s2 G# t5 N& d8 y: P/ Q
! v& o9 A% ^- j9 ^
)
( k J; v S @% c
9 ~7 x. i. L" N1 K" A
)
' j7 [$ G- [) h5 H
9 {* Y( x' j& O) v- [& A4 M
(vlax-for obj blk
: \& d$ \2 e$ `* o
4 F- D* O1 b V% V
(if (= (vla-get-objectname obj) "AcDbMText")
2 V4 _# e9 ^- X2 J( l9 D
2 {; z( F0 s" w
(progn
) ^/ w* k6 a& \+ O; ~) w. }
* p: b+ j; U6 D; |
(setq txt (vla-get-textstring obj)
: `+ B& _+ m1 v j! G
2 b& O0 ]2 s3 {
)
' I& R; _9 _! D/ G
! V- Y, M$ E1 F4 r0 S; Y
(if (or (= "" e1) (wcmatch e1 "*<>*"))5 O4 k6 W: s, f9 d* W7 ~, e/ ?5 h
. D# @4 z. l- Q8 n- z1 h
(progn( g, x1 n1 @- f+ H: ~
; o9 l6 q# x0 q2 e: d. b8 n5 n5 n
(setq e (subst (cons 1 txt) (assoc 1 e) e))0 `: h$ e' P1 w4 f( l7 v
8 T% M" y! O7 N
(entmod e)
0 q- l: C' ~1 b( u) a7 W1 E% }
6 |# L/ a" R8 D
(entupd ent)% I; U1 [2 b+ B9 U, n5 |* [
" K% c% P7 b V9 l! p) u
)
, s9 ]' J$ B; t" D. N7 h. Z
; Z3 |# {2 a4 z( w" s( I% ]# ~
)4 X; {2 X5 J1 F
, N! Q% _4 X+ q
)
6 x9 c) h3 o2 q% G) g
. o) T0 S2 k8 F, N5 T- o$ a
)
: Z8 G# V2 Y) ~4 a) o' p# A4 f* b
8 t2 Y- A' T8 H
) (setq i (1+ i))* B% N3 o$ U' f" S; l4 W) n. ~: W
8 c% ^1 {- A+ B; r% u' D% @7 e+ c
)
6 n7 r+ Z8 y. S& `8 Q
(princ)! Q+ H& a% l1 \* [! S) U! n
# I, v+ h0 {7 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

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

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

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