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

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

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

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

/ |5 W$ Y+ q; x
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.0 z4 s6 @8 N7 V* S
5 t% [9 b, e3 i
;;- C" ?) M4 |( L
- X% e& G j$ i4 Q0 j1 h
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)- P3 c0 L9 q3 t1 v0 K9 \ i
3 c" c8 E2 D% t$ b
(vl-load-com)
! r5 i) Q: K+ q8 I- n7 J
& t1 d6 P9 m+ ]( i- A4 o
(setq ss (ssget '((0 . "DIMENSION")))
0 ]) ~+ |# r# P: S
1 c/ ?* a: ?. K
i 0% y4 j9 R( V" x# J, C+ J& a) L
7 x+ N2 D7 o. O3 C) d
)* ~. d; R7 B# B% Y
$ V& C* Y: C' c9 ?' W
(repeat (sslength ss)
% n5 c5 ?" i9 _6 r4 v% U
% v" L/ {: x5 L, n
(setq ent (ssname ss i)6 e& ~! B6 e' L4 v
* e3 L/ b; Q. K n
e (entget ent)! G3 j) q7 e- o' w# M3 Y: f
. G' l( i# L; V! C
e1 (cdr (assoc 1 e))) n% _3 S8 i" G3 _/ [) Z
* p" t0 U& k: S) B8 U
intpnt (cdr (assoc 11 e))! k T4 {/ A( h2 w
; }% T0 m; e& L2 ]
blkname (cdr (assoc 2 e))
( Y _& ?* K: M' e9 s
! I' V7 B1 N q" x) z
blk (vla-item (vla-get-blocks; M; _0 Q$ m1 e1 p. N. s
2 x# A/ x# I4 W8 E6 ]5 A8 \6 q+ A
(vla-get-Activedocument (vlax-get-acad-object))
2 s9 A2 g9 n, L6 C1 t- S8 C
6 O/ K; U0 d& g/ C. R/ k$ g
)! Q0 b/ g/ ?' j" E6 C- {9 a9 |+ Y
3 Z+ b) ^' @/ g5 ^; X
blkname
- b) T4 U, h( b# ~
, {5 ]% ~" y, w6 F3 R! t$ I
)
. g ~& p9 L8 K7 s( C" @8 ~8 v
5 W" N4 N- J: Q" o h
)
- G* I% E1 R. T" h9 \, C
) P; A" i& v7 B3 n
(vlax-for obj blk
6 q$ x% S# H5 G: T& N
0 n* |8 u" V0 p9 X
(if (= (vla-get-objectname obj) "AcDbMText")
) _0 M: }+ L, H/ m( H; M% ^0 E
4 g. }9 k& ^" _+ h+ b8 }
(progn
( H" K9 \- l5 @. l7 `5 @1 v
1 @, M4 \- j; A
(setq txt (vla-get-textstring obj)
: e" \0 S; Z! H9 p. M7 n6 g
5 k; j1 p: \ H9 Y% u r9 @
)
. `8 c+ w3 ~% j+ s% S7 R
* _- P. S2 q6 ~5 l
(if (or (= "" e1) (wcmatch e1 "*<>*"))
y+ ~4 w) |/ h: ~
0 c# V' D% P' P( |. l6 z
(progn
+ ^# _: |4 q, u6 M) E
(setq e (subst (cons 1 txt) (assoc 1 e) e))
& B7 t( o0 W) Y
( H& A( n. |; r
(entmod e)
8 {5 `3 e. F2 [1 {/ z. q
5 E$ n# _- y$ H$ w/ e
(entupd ent)$ E* z @6 D' `1 r `
8 W9 q" c- E; i _* P2 N
)
! @0 {' R1 S! k0 p' c/ I) B
3 N# ^- v: U2 p
)
% S) d) S) s" y! `
0 q* ]/ F( r/ A- z- A4 ?
)
C) J+ c y5 G) E
2 d" L$ F3 `3 o. ^0 P" q, C
)
8 ` I% N. j8 o
! V* A4 _/ b$ S6 W; L+ |
) (setq i (1+ i))
8 L" t" M$ w" R( T' v9 m
: q% G; D7 L5 w$ B
)
1 o# s& W" |: L8 m7 s- V- Q
0 G1 l5 f: X1 }, |
(princ)4 [6 L# w9 p% N" o% D# x1 S2 }
0 _# A- P& x6 D: D# Q9 e2 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

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

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

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