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

ozb2011

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

ozb2011

1. 
   
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   
3. 
   
4. ;;
   - M7 n+ t* P8 P! ~) Z0 A
5. 
   3 Y  a' x5 X4 }% m$ u% @. }
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   ; V0 |0 b% \: ^* @1 ?  V' S1 @4 ]: J
7. 
   4 J, C- R* E: Z0 c  v
8.    (vl-load-com)
   $ [/ Z5 x) k6 O5 v! n
9. 
   
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    
11. 
    
12.   i   0
    ' H& t, R/ H* J, h3 H1 G
13. 
      }0 @$ X8 s1 Y7 d! d2 F+ u
14.    )
    
15. 
    7 L0 j$ G; M9 I1 ]  f
16.    (repeat (sslength ss)
    4 \  h# D$ I# v3 h8 h; V; ]$ ~4 Q
17. 
    
18.        (setq ent     (ssname ss i)
    " R+ {; [6 ]: `1 c
19. 
    ( }. q+ ]. M  o( ^& L
20.      e     (entget ent)
    
21. 
    / _# Q. m; ~( x1 _( Z
22.      e1     (cdr (assoc 1 e))
    
23. 
    ; [* ?. p4 V2 Z5 c- T
24.      intpnt   (cdr (assoc 11 e))
    1 ?/ [( l6 J! ~9 h+ f
25. 
    
26.      blkname (cdr (assoc 2 e))
    
27. 
    ) ^( Q( B  O# V4 T0 ~9 m7 L
28.      blk     (vla-item (vla-get-blocks
    5 j; q; [# z, S) G4 I
29. 
    + O+ d( z# ~2 U3 t5 m
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    " \8 X- P4 ]/ h
31. 
    
32.              )
    : I# P2 E$ \2 J7 n: }( c& H
33. 
      v" ?' |: K( g
34.              blkname
    
35. 
    2 o! Q7 I# f; ^$ c2 e  l
36.        )
    
37. 
    1 p- j3 M& O4 _' i% f7 W
38.        )
    
39. 
    
40.        (vlax-for obj blk
    4 O" C  O' V7 I1 z! x
41. 
    $ z# ~* A6 y. d' Q; J7 C0 _
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    ( f, e- ?  Y. |1 }) Y- O
43. 
    # r, O: O' O) b
44.   (progn
    * z( N  `+ a9 C( N& Y6 k. g
45. 
    4 A  F0 Q, g6 y1 W3 t
46.      (setq  txt (vla-get-textstring obj)
    $ I2 J. P0 |1 t- Z* }. G
47. 
    
48.      )
    / R9 n7 J# u4 S/ s+ ~' U  h
49. 
    . q$ _" H, g' Y8 J
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    
51. 
      w+ R1 |# [& H
52.          (progn
    
53. 
    
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    $ k  z5 S. F4 z
55. 
    
56.              (entmod e)
    % S( K2 ], a* a. I5 H! O
57. 
    ; D: }- L  o& E  x3 y5 M
58.              (entupd ent)
    ; G5 \+ r- F8 m5 q0 J/ o% b; }
59. 
    5 I$ d: {* F3 m- I
60.          )
    + q9 o2 n% E2 a& a  N; V
61. 
    . u+ V! y1 q' a+ _+ N5 G( G
62.      )
    0 ?3 P; }8 ^( s" a( B5 R
63. 
    % e' {8 i" K7 F3 e
64.   )
    # ?% B* f* C4 V% K
65. 
    4 Q5 Z( I& o4 [6 {2 p( A8 E
66.            )
    
67. 
    
68.        )       (setq i (1+ i))
    ; }. N. J& {5 m+ N
69. 
    6 P/ N# d& j; a5 ~- j  y
70.    )
    
71. 
    
72.    (princ)
    : u; i! P# s/ f2 o) x
73. 
    . }+ Q% s1 h9 U' f/ b; [' w* }* u" N" I
74. )

复制代码

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

yiminga

回复 17# ozb2011


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

346244456

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

ozb2011

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

yiminga

回复 20# ozb2011
7 L7 n0 x' H- n

: n% E9 C- \6 ^; x    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga

代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga

: f  T$ R2 }4 t- N" u没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug

回复 7# yiminga

9 N" {) C: k7 X$ D
9 |) j; a3 o6 |5 o$ _! N    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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