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

ozb2011

回复 15# yiminga
2 e: U) [6 V/ V) y应该类似lisp的一个小程序

ozb2011

1. 
   2 J2 H2 F& Y3 W3 O/ [4 c
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   1 U+ Z6 y+ W! i) [/ P' s  V# s+ ?3 w
3. 
   * W) W) ?% c% a% `( }( H( z% ]
4. ;;
   
5. 
   
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   # i6 l: S  I& t& j% H/ X- n7 I
7. 
   
8.    (vl-load-com)
   # B3 G- B, I% v$ M7 V, g% B& \) i% [) V
9. 
   
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    
11. 
    " w- d3 F# A! E7 J
12.   i   0
    
13. 
    
14.    )
    
15. 
    % C0 X! c# Q+ b" f
16.    (repeat (sslength ss)
    # s7 _/ A: a: V4 o! i) V/ v
17. 
    
18.        (setq ent     (ssname ss i)
    
19. 
    
20.      e     (entget ent)
    " R+ U4 z. ^* `$ A! |, O/ o; c
21. 
    
22.      e1     (cdr (assoc 1 e))
    4 F  G5 z( y( p. N
23. 
    
24.      intpnt   (cdr (assoc 11 e))
    
25. 
    ( U4 l4 s" J1 _5 |
26.      blkname (cdr (assoc 2 e))
    & K: ~% Z# s) ]+ f/ Q" f
27. 
    3 |- n0 G6 M& J! J7 J* s
28.      blk     (vla-item (vla-get-blocks
    3 V* s) Q5 s, }6 x; U: k
29. 
    " }' t9 O( ]  [. m4 f& Q% e, c
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    ) J* m  M/ r: X' q" p& ?- ~
31. 
    4 ]- |/ K; Q( I) [  G& }
32.              )
    
33. 
    " }8 F  P: u  M. ~% W- E9 s
34.              blkname
    
35. 
    
36.        )
    
37. 
    
38.        )
    
39. 
    $ {' U* l9 P$ y8 e4 W- X
40.        (vlax-for obj blk
    . I9 a6 @8 r) _
41. 
    
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    
43. 
    - O. h( r% z) \$ V  a( {; _
44.   (progn
    9 A& }3 X1 V; F) _
45. 
    " d$ `' E1 Q  o* F: H+ D; X6 L
46.      (setq  txt (vla-get-textstring obj)
    
47. 
    9 L7 d9 Y. P& B" W6 w" f" e3 N
48.      )
    * W+ a0 D' p7 x- j5 s$ g
49. 
    ) V6 c0 }. D8 H# _- F
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    
51. 
    2 O# F! o5 f+ L! q: t' ^
52.          (progn
    , M& b' Y# C0 K( M: t7 Q
53. 
    , I: h- }$ @  B; q$ W  d  I! c& ?
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    
55. 
    $ g& V2 q! _8 w( R/ ^2 a! O
56.              (entmod e)
    & G& }& D! L$ h  N0 q! z2 K( _* }1 _
57. 
    
58.              (entupd ent)
    , v. [# V6 u9 U0 k, g. }  X7 l
59. 
    
60.          )
    
61. 
    - m( O& c2 j% c8 p+ q
62.      )
    
63. 
    1 r# [: W5 {/ E/ ~3 D& o
64.   )
    & f( w6 E* j1 p
65. 
    
66.            )
    
67. 
    ; j! M8 u, B3 z8 g# _4 n
68.        )       (setq i (1+ i))
    & Z5 W) k4 v4 {1 D5 i: _$ z
69. 
    0 T' J4 f( F- F0 O4 J" B, L
70.    )
    
71. 
    
72.    (princ)
    3 d$ R, h; |, Z7 t0 S# f
73. 
    6 C  l' T5 q5 W, z8 o* Y- B
74. )

复制代码

在网上找了个lisp代码，用上面代码做一个lisp文件，加载后能实现锁定标注文字的功能

yiminga

回复 17# ozb2011


    大哥，西。。我是新手，不会做这程序耶！！做难不难的啊？难就不用教了，不难的话。。。。西。。。。

346244456

告诉你个最笨的方法，尽管不规范，但可以解决你当前问题。
把你要打印的图做成块（B），再进行缩放标注就不会变了，你就可以按你想要的比例缩放打图了......

ozb2011

复制代码到记事本中，把记事本的后缀名.txt改成.lsp，在cad中输入AP命令，找到你建的lsp文件并加载，加载后输入dmvl命令，然后选择你要锁定的标注

yiminga

回复 20# ozb2011
/ j. a+ y  C) Z: {7 a

9 r7 J* t0 P7 h& [( O1 a    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga
- w1 F( {% L! v" y
  K9 U  T, ?6 _代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga

$ h: @) w/ k+ s/ _- m没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug

回复 7# yiminga


; d, L- z9 q6 [0 U0 i: ?5 x) C9 w    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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