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

ozb2011

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

ozb2011

1. 
   
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   . x8 q- a+ s6 Q
3. 
   
4. ;;
   ! K% K' z( m3 `; n
5. 
   * V  y- G. j7 Q. x3 \2 {
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   6 X' L. x6 y- W
7. 
   % v; ], W& I8 C( S3 X( ^6 P" r
8.    (vl-load-com)
   
9. 
   
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    6 d6 e) n$ y; S
11. 
    
12.   i   0
    ' ~3 z( u. t6 u. M5 q2 }8 b( C
13. 
    / `+ o+ B- b/ r# Q8 u" J/ I
14.    )
    
15. 
    
16.    (repeat (sslength ss)
    / q, @0 J6 r5 R! o2 D
17. 
    " J5 d3 x( \8 `1 K. }: N% e0 H
18.        (setq ent     (ssname ss i)
    
19. 
    . w0 W7 K! G) u) Y& i
20.      e     (entget ent)
    
21. 
    
22.      e1     (cdr (assoc 1 e))
    
23. 
    
24.      intpnt   (cdr (assoc 11 e))
    
25. 
    ! y+ f/ K. `* o) X) L7 M
26.      blkname (cdr (assoc 2 e))
    " R3 S! D9 f4 k+ \+ k
27. 
    7 Q7 l# i& j) `! V
28.      blk     (vla-item (vla-get-blocks
    2 R, {2 ^' W" @" X+ r
29. 
    ! L4 P! _, P% t+ A4 L8 r7 _
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    
31. 
    
32.              )
    2 L: j" V2 I: ]  n" l
33. 
    
34.              blkname
    
35. 
    , h5 p! ]2 E6 t
36.        )
    
37. 
    
38.        )
    . q5 h0 @# \% h
39. 
    . M+ g+ R* [: k: h+ {# ~6 [# c
40.        (vlax-for obj blk
    
41. 
    ' d9 e$ \- q; T, Z
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    
43. 
    4 T3 g% s, ~4 K( k" G
44.   (progn
    : p$ C& d$ E0 S& X9 J. c
45. 
    # t2 M- _3 ~3 g5 |0 g' T5 ]% X
46.      (setq  txt (vla-get-textstring obj)
    , t/ t7 _& Q/ C
47. 
    
48.      )
    
49. 
    4 h" Y# p! g( a9 x- M" x4 J
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    
51. 
    
52.          (progn
      y* w6 d! ?' C' M, u' c
53. 
    
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    
55. 
    8 H. U* a* v! z- J$ X1 i
56.              (entmod e)
    ' A5 h/ K: ~. D3 \; }
57. 
    1 H7 ]7 J: s9 l; F0 S) z
58.              (entupd ent)
    . k, k8 S$ z  B$ X# N. ?: ~
59. 
    
60.          )
    
61. 
    + l' I2 G3 K% `& j/ G% R
62.      )
    
63. 
    & q# f" e0 ?- C3 k5 z7 I
64.   )
    
65. 
    9 _* @1 b2 W. h, q6 A; B# K
66.            )
    0 |+ c7 d1 k0 `
67. 
    
68.        )       (setq i (1+ i))
    % e, C  |3 ~* z! S
69. 
    
70.    )
    
71. 
    6 P. x' C6 t" k3 s5 S9 H
72.    (princ)
    - J" K7 F3 ~* x
73. 
    2 c* U- ~9 @; _; A& R9 _
74. )

复制代码

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

yiminga

回复 17# ozb2011
& e8 Y2 r# d5 n5 z

1 t' O: P0 t7 [+ l" g( L: y- p    大哥，西。。我是新手，不会做这程序耶！！做难不难的啊？难就不用教了，不难的话。。。。西。。。。

346244456

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

ozb2011

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

yiminga

回复 20# ozb2011

- q0 t/ p$ S" ^3 l
    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga
0 ~. h: w; h7 p' ~9 i- C/ Y
代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga

没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug

回复 7# yiminga


' T/ d; W: }5 Z* o% x    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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