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

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

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

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

# W6 |* y: u4 [' R
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
. ~. j7 x/ m3 C: o
' k w. E0 {7 n2 {
;;. `6 X' [; [/ Z2 t" @
( O# k) X9 O. d% n. j/ H
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)9 B. [( v& p# Z# ^6 o
8 v9 F# R* A$ k* s
(vl-load-com)
, L" ?$ F; C. `# N
1 Q& ~8 Z$ P/ B3 }3 _+ A; {
(setq ss (ssget '((0 . "DIMENSION")))
# ~7 e- u( p7 r
( ?" X3 W! s/ h
i 0/ z, q- y Z& p* f+ c% F
' P4 f% V7 U. [1 v5 J1 z! F
)9 i0 N2 G; L* \; }: R5 A8 T
3 j% O0 q; ^, d; R% D( R: e/ _
(repeat (sslength ss)
4 N. Z* G" T: S7 @5 I+ ?1 p
, u- H6 k/ L q; B: ~
(setq ent (ssname ss i)# D( g! e" r# H8 Y: C' U
' L' ^/ ]( b; B6 n
e (entget ent). a- S$ @7 g9 z7 a% a' |
4 W1 k# y" N/ R- V
e1 (cdr (assoc 1 e))
4 | _- \" E! ~$ u; o
/ w1 {5 y7 z2 k' X- X6 C+ {# \: Z4 t
intpnt (cdr (assoc 11 e)). x- V. x7 r: f! @* `
$ K" q3 ?) i' Y( p* ]" k
blkname (cdr (assoc 2 e)), L1 ~! g& k" i* f: ^, C5 i
- V) X2 W9 T/ t* x: w2 h' z
blk (vla-item (vla-get-blocks4 L: b) Z7 q9 M
4 ]" j* l# L3 _4 {
(vla-get-Activedocument (vlax-get-acad-object))2 B2 q/ ?, ]0 y
; ^+ E: ?6 M. t& }8 K. H
)8 }7 y( h( R) H) B3 e
~- X) p0 P+ { C) A+ B6 s
blkname( B, F, _3 I& o% m. t
: J: k/ c' B7 m/ L7 g
)" o; @2 g9 f$ A1 ]
* ~2 n+ c: @0 ^' z& f
)
1 ?$ R9 C# E( E/ P3 q/ H
- u- ^. H, B) y& v8 N ~4 c
(vlax-for obj blk6 M8 h; K1 [% h* c! g; v! p. N, u
/ K, D! r1 x! `3 E4 n1 u" S
(if (= (vla-get-objectname obj) "AcDbMText")
( Q3 R# ~, a" j# [% M2 p- m* x. J7 h
) S. M6 ~) |- x# B
(progn
% X. u2 j3 }9 M5 P+ M
) z& L2 d, ~- H' _, f) o
(setq txt (vla-get-textstring obj)
: n. }$ V* F3 w* I7 N+ P& ?0 H3 ~+ y; p
# a* Y" g) |5 C* J: i) t
)
0 l; j' M3 M4 i* p5 o3 a
4 s$ H" S3 B' S: A+ ` |
(if (or (= "" e1) (wcmatch e1 "*<>*"))$ ]" S1 c& s& h- z1 V& @" j
! m+ R( o: T7 K9 S( E
(progn
" D K6 n" Y- q5 z7 i" i; u4 w
! M' W% a- w! X; _
(setq e (subst (cons 1 txt) (assoc 1 e) e)): j F. i' k; |
9 F6 v" M N# M/ k0 B/ V4 Z" u
(entmod e)
1 @0 J; e8 ]8 H: B% T: j% H% H' r# @
& s1 X, V s! P
(entupd ent)
. P% w6 a5 y- o( i$ _6 z( q7 d
' |0 Q! h: q* L* [' L, u
)+ l& v1 Y r6 @' f
5 Y8 j) B5 O$ {
)
* G0 H" g9 y+ W6 @# X% x/ Z
& P. p6 [ t3 Q1 E. |6 Q6 C+ R
)
8 H# J9 a/ k/ ~2 b
, z% e- w% R# k/ @& O- X' e* e" k
)
# }. ?! n; J( S2 R
" G; \; ]( d8 C3 ?
) (setq i (1+ i))+ ?; w L$ o* i+ I* n
( {1 M& C2 D3 t4 a+ K. C
)0 x- g, ~ b9 v8 t1 C4 m
# c, }/ B/ B/ A
(princ)
* E) ^8 ^ b: j: E- b
* E( x: `2 l9 |
)

复制代码

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

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

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

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