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

ozb2011

回复 15# yiminga
5 b3 O8 ^# Z5 b" C0 H: m7 S+ @& z2 x应该类似lisp的一个小程序

ozb2011

1. 
   1 R9 O" g+ v8 `1 s) A  j, Q
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   
3. 
   
4. ;;
   
5. 
   
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   % x3 ?% m8 p& I( N8 x" t! n
7. 
   # z2 [# y0 Y! }# Z( l' l
8.    (vl-load-com)
     H# \* t( ^3 l
9. 
     b; @* r/ Z8 _
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    
11. 
    ) y6 R+ g' A8 ~+ p5 O
12.   i   0
    
13. 
    ) U3 P* Z  ?% p. W3 `
14.    )
    ; F& O& Y0 s; N& J# o) K2 c1 B
15. 
    4 Y% B, C2 I3 n7 q- E5 J
16.    (repeat (sslength ss)
    
17. 
    4 X% g- E6 `( p- e, O
18.        (setq ent     (ssname ss i)
    
19. 
    
20.      e     (entget ent)
      V; u+ c5 [' t8 W/ y
21. 
    3 P8 W; E, m: q) L# D1 v& E
22.      e1     (cdr (assoc 1 e))
    
23. 
    
24.      intpnt   (cdr (assoc 11 e))
    
25. 
    6 v/ H) c+ M* M3 {% D9 v: \
26.      blkname (cdr (assoc 2 e))
    # H- J2 e& _* l, {
27. 
    1 K3 C) O" m9 `8 k! C8 a2 m
28.      blk     (vla-item (vla-get-blocks
    
29. 
    9 S  {3 m0 i+ ^
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    / e# _- U+ M3 ?' H" X
31. 
    
32.              )
    8 K8 ^9 ?4 `2 E3 ?: S4 `1 k- J
33. 
    
34.              blkname
    
35. 
    9 R5 [# a6 G7 A- H% x1 b
36.        )
    
37. 
    1 e; z7 S1 T: D
38.        )
    3 b4 Q4 j' z- s3 n
39. 
    1 N  q# {5 R7 t8 ^) M' ?! h
40.        (vlax-for obj blk
    1 H- {+ o: _; C! B( P' u( F3 z( [+ e
41. 
    - c! H; C. m- _/ }) X
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    
43. 
    
44.   (progn
    
45. 
    
46.      (setq  txt (vla-get-textstring obj)
    
47. 
    
48.      )
    $ V/ n- f9 d7 K1 g) N2 `
49. 
      k) B3 V: C0 n7 v, u' x
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    
51. 
    8 U  m" @* o3 J1 H1 X
52.          (progn
    ; q' P& y& ], J0 R# v! K
53. 
    
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    " x$ N5 `. T4 p0 E$ @! T8 u. @
55. 
    
56.              (entmod e)
    
57. 
    5 u2 w: E0 u& Q# V* I6 H4 L
58.              (entupd ent)
    & ^4 `1 n3 K: M  `0 g, l% B
59. 
    2 k, M( C/ X) z+ A
60.          )
    " U* ^  F6 u2 F/ F, U8 N9 d6 l
61. 
    
62.      )
    
63. 
    
64.   )
    $ N" z0 y, v  r: H+ ]  w
65. 
    " {. _8 |0 T$ H1 L
66.            )
    
67. 
    0 E! x8 L/ b# K7 z; j5 G8 }
68.        )       (setq i (1+ i))
    ) ~2 T" H- S2 g( ]4 v2 ^
69. 
    $ D5 p" V/ _# o3 E1 F$ l$ M/ z
70.    )
    0 C# J/ P5 C+ v
71. 
    
72.    (princ)
      _% v: @  n6 E- W
73. 
    
74. )

复制代码

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

yiminga

回复 17# ozb2011
2 x* w- D! p% c3 N' v' Q$ X$ \8 P1 Y

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

346244456

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

ozb2011

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

yiminga

回复 20# ozb2011
7 p7 R2 _8 |% p1 o* W( g" }' g. L! G

, K$ _) C! p. l    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga
3 m/ H4 y% y9 N# {( h4 a5 s
0 \! ^- j: `0 p4 d/ {代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga

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

zhoug

回复 7# yiminga


    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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