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

ozb2011

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

ozb2011

1. 
   9 b+ Y( }0 e6 q4 ]
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   
3. 
   / Q2 Z/ w9 R. U+ x- l- |- p
4. ;;
   
5. 
   
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   / Z# {, X) A. N4 H2 {# u; |
7. 
   , O0 W6 \: x6 l4 o! G  C
8.    (vl-load-com)
   
9. 
   0 ?5 {% a1 \8 h3 @  ?& ?& j
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    ; v4 g' ?+ m* e0 a; F" V) O
11. 
    ) w2 L2 x) g  c/ I0 |
12.   i   0
    & d" V0 ~6 H3 u
13. 
    : S" x* p" f$ H& X: C* A( q7 V
14.    )
    
15. 
    
16.    (repeat (sslength ss)
    ) h% y7 U. v+ p9 D
17. 
    
18.        (setq ent     (ssname ss i)
    / w7 z; T5 T/ `& _
19. 
    : Q: E% }8 Y' q: @6 H0 w; O+ u* V
20.      e     (entget ent)
    
21. 
    6 G2 x7 I4 h1 ^) @; R
22.      e1     (cdr (assoc 1 e))
    ' Q. @8 I) r$ K' G
23. 
    
24.      intpnt   (cdr (assoc 11 e))
    
25. 
    ; \, G+ |" Z& K% a9 u3 ^% ^
26.      blkname (cdr (assoc 2 e))
    
27. 
    
28.      blk     (vla-item (vla-get-blocks
    " d. N3 P3 b6 x$ n& \3 n7 L
29. 
    0 I4 X3 K& M% w4 @9 U3 X
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    
31. 
    8 j' E. w9 N: v; }6 E
32.              )
    
33. 
    8 C9 n, o* B+ s4 O4 _
34.              blkname
    
35. 
    " ]- X0 C4 a- x( y% X
36.        )
    
37. 
    + {# a( I8 h3 w% I
38.        )
    
39. 
    & x8 |. i4 J1 J4 b$ N3 |
40.        (vlax-for obj blk
    
41. 
    
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    
43. 
    
44.   (progn
    # G/ x; A' f; m# _! l
45. 
    5 z+ s& K/ w- q. W! Q6 o1 J
46.      (setq  txt (vla-get-textstring obj)
    % G! X- [# G3 G9 c
47. 
    1 x( B; V6 d( G% x2 r# W
48.      )
    
49. 
    
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    
51. 
    
52.          (progn
    5 H8 u: t8 u3 E' s3 m* q7 J4 g2 u
53. 
    
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    
55. 
    
56.              (entmod e)
    
57. 
    
58.              (entupd ent)
    9 x( `" X, x- S2 L/ ?5 h- y
59. 
    7 d% b1 e! O- E2 {" T+ `$ Q9 z# G& H
60.          )
    
61. 
    
62.      )
    $ a" t3 x7 d6 W% n2 Y4 H7 f+ Y$ _
63. 
    + b+ `. j$ K; {' X$ s2 M; `( D9 l3 c
64.   )
    1 Q8 Y/ A" C& f' s6 o1 u  S
65. 
    ) E9 s% |* W6 e: D# D
66.            )
    
67. 
    / C4 V. P3 g  N. T/ K  j
68.        )       (setq i (1+ i))
    2 l+ \" l0 q: U& p) j& Z
69. 
    4 Y$ a- y: @' w" Y3 z
70.    )
    ( l, n  d0 v1 u7 w0 ?
71. 
    ( x) }: p- L) a3 d; u
72.    (princ)
    ' b% V9 p* ]& [' V0 [% S, ]
73. 
    
74. )

复制代码

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

yiminga

回复 17# ozb2011
% v8 G; I0 k- @: r8 y' f" S

# Y8 t; @* R- |" q    大哥，西。。我是新手，不会做这程序耶！！做难不难的啊？难就不用教了，不难的话。。。。西。。。。

346244456

告诉你个最笨的方法，尽管不规范，但可以解决你当前问题。
; H# i' u7 k4 b$ x6 w, j( f把你要打印的图做成块（B），再进行缩放标注就不会变了，你就可以按你想要的比例缩放打图了......

ozb2011

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

yiminga

回复 20# ozb2011

, L' \) {+ C+ `4 g  g9 m; K3 M5 m
    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga
0 P5 I% k3 ~) r) L9 T; f7 ?
8 o8 O9 a+ [) V; n/ L代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga

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

zhoug

回复 7# yiminga


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

xgr54

只要选窗口打印就行了

GAUDI

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