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

ozb2011

回复 15# yiminga
8 q- G; ~# F& F应该类似lisp的一个小程序

ozb2011

1. 
   
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   
3. 
   9 g2 j- ~* F9 `* ~- L
4. ;;
   ' ~; g( b  r0 n) _, n
5. 
   
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   
7. 
   
8.    (vl-load-com)
   
9. 
   ) ~, E' u. z& O' E/ l
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    ' C/ }, o" B/ c% W1 M! Q
11. 
    
12.   i   0
    , c% y5 ?: W4 @& ^! v
13. 
    / G- k' e" c& Z
14.    )
    
15. 
    $ U9 b) I4 d0 Z
16.    (repeat (sslength ss)
      J0 w2 ~8 a& m9 D
17. 
    
18.        (setq ent     (ssname ss i)
    # G' M8 I8 p( ]1 i4 Q6 ]" q
19. 
    
20.      e     (entget ent)
    
21. 
    2 P" F* S0 T$ C# b' b
22.      e1     (cdr (assoc 1 e))
    
23. 
    
24.      intpnt   (cdr (assoc 11 e))
    * ]+ A+ E5 y3 m8 y2 V
25. 
    
26.      blkname (cdr (assoc 2 e))
    
27. 
    
28.      blk     (vla-item (vla-get-blocks
    3 j$ C1 k* Q8 A1 C6 }
29. 
    
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    ; `3 D, Q0 [$ s0 }6 d; T
31. 
    
32.              )
    
33. 
    5 N, F* I+ K7 v- B% {
34.              blkname
    ; u7 n% b1 v% b: W5 b; g
35. 
    
36.        )
    " L+ R- X% ^1 P, k7 i1 W+ S6 e1 X
37. 
    ! j: ]/ L$ Z  u, k2 P
38.        )
    
39. 
    
40.        (vlax-for obj blk
    
41. 
    
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    
43. 
    
44.   (progn
    & d+ i5 y& j9 A; J# y9 g( S% [
45. 
    
46.      (setq  txt (vla-get-textstring obj)
    ' \8 c+ r7 r" g
47. 
    / z* V7 p. X7 a; L2 R4 f2 W
48.      )
      z8 @/ R" y* F( U0 V( I
49. 
    1 w$ n: L7 X' F$ r3 I
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    . Y* b" W$ P# `( A  D
51. 
    
52.          (progn
    " ^% [4 l+ I6 X% I- S
53. 
    
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    
55. 
    
56.              (entmod e)
    
57. 
    
58.              (entupd ent)
    : C( S6 E) c, @3 U$ V/ h
59. 
    
60.          )
    * K6 R- M* q% t. v9 C; v3 v
61. 
    
62.      )
    
63. 
    
64.   )
    ( A- A" e+ u- h
65. 
    
66.            )
    
67. 
    ! w" i8 Y4 C) |8 E  v
68.        )       (setq i (1+ i))
    % T! t# F5 w# K# J. C1 r3 G* \4 N' y
69. 
    , Q! d8 s# n, x
70.    )
      J# ?! Z# U9 v' C/ W, K3 h
71. 
    
72.    (princ)
    1 F, N. D; l4 z# g- k5 r
73. 
    3 w/ x& @  X5 ]6 }, C
74. )

复制代码

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

yiminga

回复 17# ozb2011
# r0 d& y1 q4 K( n
) E6 u6 U: _. g' k8 |- D% o
    大哥，西。。我是新手，不会做这程序耶！！做难不难的啊？难就不用教了，不难的话。。。。西。。。。

346244456

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

ozb2011

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

yiminga

回复 20# ozb2011
0 O1 g8 E9 A. c+ X3 N

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

ozb2011

回复 21# yiminga

3 A/ B3 y- O7 s4 I0 e% U8 {代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga
$ O9 I2 w" p+ n; }
' B" T! X/ V9 ~: `4 h" `$ p没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug

回复 7# yiminga

( k# c  p% X7 }  M/ ~" |# H
! P* d6 _! X) z7 ^    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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