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

ozb2011

回复 15# yiminga
9 Q9 I' E. Z7 {% B, |应该类似lisp的一个小程序

ozb2011

1. 
   
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   % Z6 o  I2 N) Y. I+ Z; X) D
3. 
   
4. ;;
   3 i# }, g$ Y4 ^7 b
5. 
   ; O1 J: y/ x3 `! ?* b- s( t
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   + E$ `) v8 S) ^" ^) K
7. 
   8 A# s* K2 u9 x; |! u: j* D
8.    (vl-load-com)
   2 U& ]+ @1 l+ B' @0 C% R
9. 
   
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    ! J( ?" h1 x6 ?. L7 n$ c
11. 
    
12.   i   0
    8 v% L) X8 ~: W- @
13. 
    6 Q7 W. ]! A! m- ]" e2 K- n
14.    )
    ; t" J  f7 ^% T3 _
15. 
    1 y* }6 f. q4 }
16.    (repeat (sslength ss)
    & q9 A3 u- [/ f
17. 
    7 ]$ S2 `1 F- P" I" W; d* z( A9 i) f0 A
18.        (setq ent     (ssname ss i)
    + z0 F4 w2 u) `6 o' L8 n
19. 
    
20.      e     (entget ent)
    ; M; h/ \8 p5 @. N( o& a
21. 
    
22.      e1     (cdr (assoc 1 e))
    
23. 
    : g1 j, H( u$ ]: e
24.      intpnt   (cdr (assoc 11 e))
    1 g- c& Y1 V, }5 T1 r
25. 
    # X4 R$ I% h, x  N- e; L/ T3 {& V( v
26.      blkname (cdr (assoc 2 e))
    
27. 
    ) V0 K# x( @0 S
28.      blk     (vla-item (vla-get-blocks
    % |# r9 G% C, a4 i9 y8 w. Q. t. q3 \3 D
29. 
    
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    
31. 
    
32.              )
    6 }- a) M- W1 T) C
33. 
    
34.              blkname
    
35. 
    
36.        )
    
37. 
    
38.        )
    
39. 
    
40.        (vlax-for obj blk
    
41. 
    
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    , V8 t* {, h1 p, v6 j
43. 
    
44.   (progn
    4 [1 |1 n9 H7 r) K+ V. z2 p( U
45. 
    
46.      (setq  txt (vla-get-textstring obj)
    
47. 
    
48.      )
    ; i- R( j$ F, [0 p' \/ d5 @
49. 
    * ?2 \2 p, T, U
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    
51. 
    
52.          (progn
    2 D% a" ]8 ^+ X% q
53. 
    5 V  Q  y( [7 k% U
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    ; N- @9 |9 q2 t( \& h
55. 
    % h. }/ S3 |2 p* h' C7 Y; q! Q  v$ N
56.              (entmod e)
    
57. 
    
58.              (entupd ent)
    
59. 
    2 }. A6 u0 a1 |6 N& V0 b
60.          )
    
61. 
    9 h/ j# G3 e5 W$ i# D- x
62.      )
    : v# Q( D. P+ O0 T
63. 
    % O8 ^  ?/ }1 j0 |( L0 C' I8 Y: C
64.   )
    
65. 
    
66.            )
    
67. 
    
68.        )       (setq i (1+ i))
    
69. 
    4 ?, W5 ]" M* ], [
70.    )
    " r, ?7 I. J$ W* k+ c
71. 
    
72.    (princ)
    
73. 
    
74. )

复制代码

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

yiminga

回复 17# ozb2011


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

346244456

告诉你个最笨的方法，尽管不规范，但可以解决你当前问题。
/ P$ E7 w% G* ~! ?3 c4 E把你要打印的图做成块（B），再进行缩放标注就不会变了，你就可以按你想要的比例缩放打图了......

ozb2011

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

yiminga

回复 20# ozb2011
1 X' t8 y* u% [0 R9 R

( J/ a+ @) S3 w- z4 Z    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga
2 v* |. r( ~% `
) @9 L" N4 T1 w! M0 G& |代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga
$ T" |4 d0 |) u  r$ }
没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug

回复 7# yiminga


  h" R3 M0 E; x: c    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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