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

ozb2011

回复 15# yiminga
9 G4 W9 }0 u# {8 G6 R应该类似lisp的一个小程序

ozb2011

1. 
   
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   
3. 
   
4. ;;
   
5. 
   5 H  p) r2 w( s# m8 D) f; `
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   
7. 
   8 k4 k5 s! [* O) _
8.    (vl-load-com)
   
9. 
   . d% M! U: L1 W' |" K
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    
11. 
    : d* J% V3 H9 S
12.   i   0
    8 q& r& k6 C, x" }" E2 T6 {
13. 
    
14.    )
    ! g. p: ~1 R% c+ b, `. d, n' g$ i. ~
15. 
    $ A- @7 S. s( [$ m* H
16.    (repeat (sslength ss)
    
17. 
    
18.        (setq ent     (ssname ss i)
    
19. 
    0 y4 N" Y; e5 S6 t4 S7 `
20.      e     (entget ent)
    1 z5 J, M5 ~) d" o6 w) c" h+ [
21. 
    
22.      e1     (cdr (assoc 1 e))
    1 f0 J4 [( I5 |+ F& p3 q
23. 
    2 T+ Q# o2 |) {
24.      intpnt   (cdr (assoc 11 e))
    
25. 
    
26.      blkname (cdr (assoc 2 e))
    3 v2 q% X3 O: j; |# a1 C
27. 
    $ t, y) J: _  k3 {9 {+ X0 ~! M3 z9 `( O( c
28.      blk     (vla-item (vla-get-blocks
    : m7 ~7 r6 G, b+ U
29. 
    
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    
31. 
    
32.              )
    , V6 N+ f3 S9 W2 Z( A
33. 
    
34.              blkname
    
35. 
    
36.        )
    
37. 
    5 B3 j# t, z- u9 y5 Z. v. u  u
38.        )
    6 J# {% J; d# ?% S
39. 
    0 R5 L) u1 c3 t) o8 {+ P
40.        (vlax-for obj blk
    
41. 
    ) l! n9 u, Y3 W/ S6 h7 A, h
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    ; b$ n1 y- X+ `: b% x7 s: B3 b
43. 
    8 H, \# D' w$ h: P8 I
44.   (progn
    
45. 
    
46.      (setq  txt (vla-get-textstring obj)
    : @: G3 g7 O9 p7 [) C" ~
47. 
    9 U& \2 i; u0 Z, r: Q( \. M" z
48.      )
    
49. 
    6 [- h+ c& Q" e$ M: u9 ]
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    7 r) D2 ]+ I7 D9 ~, _% v
51. 
    
52.          (progn
    ( }+ B! Q( {6 f
53. 
    1 Q( ]; R% }1 D: G( g5 h" x' w7 H
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    
55. 
    
56.              (entmod e)
    ! I3 F- E5 x6 T; `* P
57. 
    . w$ d5 n. J/ F7 Y! F( _0 X1 s
58.              (entupd ent)
    
59. 
    
60.          )
    - o: T1 L% k5 y% x1 N
61. 
    - I4 I4 g2 ?8 r, {( X# E
62.      )
    % H" N7 `1 r# c$ o
63. 
    
64.   )
    
65. 
    
66.            )
    $ j9 Z- p6 h0 S5 _
67. 
    
68.        )       (setq i (1+ i))
    
69. 
    
70.    )
    7 n4 W& C4 E, r) J7 y* [9 Z4 p
71. 
    
72.    (princ)
    2 n* J; }: \) V5 O
73. 
    5 ^# d2 e& Q9 X  J8 M
74. )

复制代码

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

yiminga

回复 17# ozb2011
: {. P1 g, E: Z' T

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

346244456

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

ozb2011

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

yiminga

回复 20# ozb2011
+ I4 C5 q; b0 I/ a) b4 o

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

ozb2011

回复 21# yiminga
! R; @/ Y# S1 d+ _
# g1 |2 D* r6 r- |, d2 C代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga
5 f0 A9 N$ y" A; @* [( t
没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug

回复 7# yiminga
  ?9 F9 j+ @8 t  Q( C# u2 u
& T  v+ L' r$ I, [, c
    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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