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

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

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

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

! P5 W5 f3 _9 k0 V0 p% Y8 C
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.9 C/ s0 u2 a2 p/ d/ g) g
; X8 n p! \! N! N) i- U+ ^
;;
6 F* N! b6 Q" g- e5 N) T6 ?5 ~
( [" ^. l$ A9 _" L, Z$ Q$ f& q
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)( M m6 w/ I# r5 P8 F
7 C8 B+ s1 c$ O$ a6 y7 x
(vl-load-com)
( L; q9 q9 Y- j1 E; S4 P
$ ~1 j' T- V- F7 x/ ^
(setq ss (ssget '((0 . "DIMENSION")))
; L9 g' \/ w4 H2 a: K
2 o+ o+ ~& f# a) i6 C. E* h
i 0% k- c0 L! O j# K* u. M6 N1 X
) p: v$ o$ [3 O* P/ _; _+ H% n
)- k, }- \ x G e" `, S
* F! [6 g3 U$ I
(repeat (sslength ss)
. o3 L6 S4 c( {, r+ h t
' Z) T3 U' N7 S$ {
(setq ent (ssname ss i)
% m- y5 E; ~! [2 A
: n" _- N' p1 q7 M
e (entget ent)5 x' O) ?* P, i0 a& W$ y; M5 {
/ U7 v" y+ u( p$ C; i) T; }5 F
e1 (cdr (assoc 1 e))' J$ a4 X- |/ R p6 @" d
5 J e) K2 r1 c
intpnt (cdr (assoc 11 e))
0 _; i) w" R* F
2 W$ o' j# I) A$ n
blkname (cdr (assoc 2 e)) b0 z) {, J, k4 o8 V2 k
5 r# V; V9 D& R
blk (vla-item (vla-get-blocks$ Y$ N$ n {0 Q9 R* p6 }; N, }
: T0 h3 Y( I- a. y0 {$ X6 {9 n _
(vla-get-Activedocument (vlax-get-acad-object))% f2 Y b# g) e" @
]+ A* U, o9 C! r! }
). u$ D# H& l8 L! L" Y; X# b! T
2 [( ^0 G: s: V- P$ o/ Z( c
blkname! Z: C$ v _% b7 j+ w
9 c: I+ V: U4 r/ M
)
' ]6 [8 s I- _2 R" G+ o* c8 G
0 W% y! Y* ?% V3 v1 q% V, g
)4 D8 I2 E$ e1 N7 j
$ ]- q/ K. Z( U4 c
(vlax-for obj blk0 j( v1 ~$ v8 z, E! W2 |( Y
( {$ p3 g; |: D7 W+ c
(if (= (vla-get-objectname obj) "AcDbMText")' Q& g& u7 s" N4 P7 a# V) v Q
, d- c4 N1 g4 B; ?1 M7 A1 K
(progn# H& ?, c6 T; V O! b3 M2 H
" B4 A* h& Q2 w$ H4 X( ^) G1 l
(setq txt (vla-get-textstring obj)
6 Y3 ]! l2 t( E% ]6 d
$ @; J4 r0 ~/ T8 d
)/ p0 T4 p+ R; P) X H3 S
0 }( w" F4 H# {/ S. {4 q. y
(if (or (= "" e1) (wcmatch e1 "*<>*"))) S3 C3 F7 y* ^8 u8 k' w
$ h) o9 ~) q8 f, |; C: f: u
(progn0 D2 v4 {! z: J! L
3 m6 e! J# R( ?
(setq e (subst (cons 1 txt) (assoc 1 e) e))8 P2 x0 ~8 o* x3 b
6 ~9 t, O- B6 T. d
(entmod e)' f' H! a9 j4 K6 W2 a# d
0 g; D& A' I; F
(entupd ent), g7 `+ R& [: R0 D% H
: h4 }- |" }; W7 E
)( c7 s8 e7 d+ O1 j) p
- L# o5 H4 H$ e4 }( _
)* M2 J6 C: E, R5 V3 A
: i7 Z# V8 A3 |' Q( c6 R6 ^
)2 Z$ P6 R/ n( I. C
9 u+ D' U5 I) J* j( M$ p+ E' [
)( _% E5 K# b2 ~+ n7 a. S
1 v [- c% b9 n2 s# o5 a
) (setq i (1+ i))/ u! H1 F6 R, a* f7 u+ m) K
/ G+ ] b" m2 s( `
)
, ]$ _7 x/ {% {: [4 [5 d3 T
# x4 t4 d/ Q: q' I# P
(princ)! j5 l# u) i& A: Y5 v
& Z- C, d0 v; v; Q5 R, w9 ]2 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

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

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

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