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

ozb2011

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

ozb2011

1. 
   
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   3 C" z+ _3 }$ f+ @
3. 
   7 n$ h- S- T: h$ f, F' g
4. ;;
   
5. 
   
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   1 R6 {2 G, Q7 e+ w1 B
7. 
   
8.    (vl-load-com)
   
9. 
   
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    
11. 
    0 G% A7 G" `0 \. }* \2 F
12.   i   0
    3 k4 m. ~, g( E/ S, o
13. 
    
14.    )
    ) c# p6 a( r* z5 P- L8 l! s8 G# g# y/ d
15. 
    * s5 G% E; }8 i% ^" t9 ?
16.    (repeat (sslength ss)
    
17. 
    # m; z# @6 s+ k$ G: h6 |7 i
18.        (setq ent     (ssname ss i)
    9 P# t2 U, o4 ]) B# H
19. 
    6 b2 M) s8 e% b; U
20.      e     (entget ent)
    
21. 
    ; S( z' m) `3 J  N3 W* \
22.      e1     (cdr (assoc 1 e))
    / f2 w/ P4 w6 J
23. 
    * ~' n! e7 `  W0 @( \+ C
24.      intpnt   (cdr (assoc 11 e))
    
25. 
    8 O. ~6 }4 Y2 o/ [- C9 C
26.      blkname (cdr (assoc 2 e))
    
27. 
    % _7 i+ Z- K* v+ j# l) X
28.      blk     (vla-item (vla-get-blocks
    ( r  ^7 t- T. n6 N
29. 
    2 e2 G9 w: f$ ^; U4 L, U3 t& c& }
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    ' T3 ]9 B5 x& V* G% g* v: m
31. 
    
32.              )
    
33. 
    + W* ]6 s9 S' @7 H2 u2 R; m
34.              blkname
    
35. 
    
36.        )
    
37. 
    
38.        )
    
39. 
    
40.        (vlax-for obj blk
    ( ?" G. P; |& G6 K
41. 
    , I0 n! I8 Y5 q; M6 y5 U' E
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    5 c0 B3 f1 e& p
43. 
    ( p, }" A. U  [* ]
44.   (progn
    7 J) Z) j  k, t8 i
45. 
    
46.      (setq  txt (vla-get-textstring obj)
    
47. 
    # L9 ?2 W% H- E. L3 [
48.      )
    5 {) t# x+ m+ _) a' B4 B7 x0 @
49. 
    
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    
51. 
    
52.          (progn
    
53. 
    
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    
55. 
      J: ?2 N; Q6 q+ S+ z# z! m! P& I
56.              (entmod e)
    8 ?: `7 i+ A1 ]) O; K- Z1 P$ _1 U
57. 
    
58.              (entupd ent)
    
59. 
      T; a- E! n4 ^6 e, L& V/ Y0 b& ]3 C
60.          )
    
61. 
    
62.      )
    , n' j# ^" k. w( O
63. 
    9 u( Q9 x0 [) [7 V6 J7 @$ q
64.   )
    
65. 
    , z. T& r6 h' R; D- y5 F7 J
66.            )
    
67. 
    % W, J& \3 y4 U0 z( m" y
68.        )       (setq i (1+ i))
    
69. 
    7 R# X' g- U% z
70.    )
    
71. 
      |% U/ v% Q! a3 i( f
72.    (princ)
    
73. 
      r, C2 D  W$ ]7 z8 \0 o7 N
74. )

复制代码

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

yiminga

回复 17# ozb2011
3 ]  \& U7 }' f1 r

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

346244456

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

ozb2011

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

yiminga

回复 20# ozb2011

7 ]; T8 R/ T2 e1 X6 y+ }+ q
0 f# a% C4 A1 n2 a) y: V2 Z    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga

1 M" k' l: Y8 }5 c代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga

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

zhoug

回复 7# yiminga


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

xgr54

只要选窗口打印就行了

GAUDI

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