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

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

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

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

5 p! r6 b: J$ e% {1 I0 W! D
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.* {, p! U- S) f- [! o- I0 i
. I; U4 s. u+ l* q/ d) _
;;
$ w1 b0 n$ F# Q) t
' _9 T/ o1 L/ C. K
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
' N4 S/ X% F; ]7 h. b) @" ]3 B
* |1 J' X! E5 T# v* d
(vl-load-com): y3 Y# s# F; [/ T+ b8 F
5 Q, m! T+ D& v% C# i7 {
(setq ss (ssget '((0 . "DIMENSION")))4 N3 ~ Y; Z, F7 l, ?, R7 |
0 i$ n/ ^! h& L/ Q$ [4 B
i 08 v+ q8 O+ E+ n5 r* n9 W9 y- Z
, v! {, x( G" l( Z; T4 [# @! z7 I+ ?$ |
)1 {% p" w3 H: W) S6 h8 S0 o0 |
1 E$ O2 n: G2 Z" Y- ]) K) B8 W+ \
(repeat (sslength ss)* g1 N( m% u1 ^. C5 h
# m* V, ~5 c0 P, O5 D
(setq ent (ssname ss i)* x3 T Z% F: B/ ] h" i V/ h; q
6 i0 k8 j" J2 c+ t
e (entget ent)% i& Q- m3 Z( `1 g2 a% \' |
; ~7 j5 G+ x+ b) e y$ T# e
e1 (cdr (assoc 1 e))
* ?- d1 P; ~) E" d2 I
* @' R* g" E2 e _# y
intpnt (cdr (assoc 11 e))
# M! K8 j1 d1 C# B" @
9 `! f9 }5 Y1 `4 O
blkname (cdr (assoc 2 e))8 \" z- L: c* U, B# [- Q
% H) i& a. ~! |) G+ I
blk (vla-item (vla-get-blocks5 T. M ~: R; A8 }, }8 J. D
4 l9 T; J: H L0 B" d2 M
(vla-get-Activedocument (vlax-get-acad-object))
! G/ o |' J" W6 p
1 P0 m2 a, I, E$ t: P
)
( m# g' j* h$ h0 v% y4 j2 b3 q) b/ g+ w
/ G8 R+ J% D7 | e1 S/ L' L
blkname
4 p( V+ g; r; H7 p$ j
6 n' D, o8 H' h9 R# j
); D2 Q2 D4 K# K' U
6 p" ?$ ~2 u4 e, L/ q
)
! n8 Z: b) [! C2 g' r( J
8 x" w! {0 E5 [
(vlax-for obj blk
) Q+ B' a( \4 Q5 {. f n, D, w
+ V# Q+ O7 Z2 v
(if (= (vla-get-objectname obj) "AcDbMText")) {2 s( f% Y3 N( i" U
I b2 W8 @ @5 v) x+ ?. |5 c
(progn' ^# p+ x1 z5 O% E2 |
8 u. w, `: k/ z; V
(setq txt (vla-get-textstring obj)- w1 l8 @+ Q6 \
. e. h7 K% N6 a f' ^7 _
)4 I1 O" _' w. y7 J7 b! b: b
$ [' K: [: `: A- H4 Q* f' `
(if (or (= "" e1) (wcmatch e1 "*<>*"))
8 Q7 [0 v/ \6 f3 \9 _
* I% b- F9 r' p5 f& K
(progn
7 z' u$ }2 i- b. X+ P8 z) T, s- Y
- G8 a; t6 Y1 u7 G) F& W) U
(setq e (subst (cons 1 txt) (assoc 1 e) e)); _" O$ [, W; c" ?
5 J# v# U) b) ^4 Y: B" u8 g
(entmod e)$ P' Q: h' k% O8 A) Y/ U
) P; I2 m. A0 N4 f* ?+ A8 Y& J
(entupd ent)
) q* v& \' l: ?
5 C# i/ F# o O0 S" G
)# C* y, t P! t1 F+ E
* r, r5 H, F% d/ k) ^0 h) O) R
)
. o/ B( {& y" m2 q8 c
+ {% @+ U' ~& ]# q
)! K0 l' f* P/ w" K0 d9 c8 U
/ h5 B8 y3 q, T0 u5 G
)* b2 O5 b: m) r+ ?
* @2 d# V8 P; Z/ G. I
) (setq i (1+ i))
& ^. s- U: `: X E4 _
. |2 D1 z: t- k9 |7 n6 Y
)5 q! |, k; V4 X6 |9 J
. N* p# G2 b1 U6 K
(princ)
: {" i8 H/ \. D+ I
! D' j# ?5 U# @! f$ J( N( {, ^
)

复制代码

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

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

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

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