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

ozb2011

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

ozb2011

1. 
   ' r+ H3 h2 K* v! u
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   
3. 
   ( |; l( ^4 O! d% r
4. ;;
   
5. 
   
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   
7. 
   ' `8 g" ?5 b0 T" A
8.    (vl-load-com)
   
9. 
   
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    
11. 
    1 S2 K! d* W4 F7 `
12.   i   0
    : U0 t! s7 F* Z
13. 
    
14.    )
    
15. 
    6 Y! ~' y6 K  J+ x8 X/ f
16.    (repeat (sslength ss)
    
17. 
    
18.        (setq ent     (ssname ss i)
    
19. 
    
20.      e     (entget ent)
    7 E/ }. A8 _- v- \6 Z5 ~% u3 D
21. 
    
22.      e1     (cdr (assoc 1 e))
    2 f# L( i4 O5 Z0 F6 h- {$ R
23. 
    
24.      intpnt   (cdr (assoc 11 e))
    
25. 
    4 s9 O" H: X: |, g/ g  j
26.      blkname (cdr (assoc 2 e))
    
27. 
    $ s2 G0 L0 V  O) A3 X0 ^3 A$ W" Z
28.      blk     (vla-item (vla-get-blocks
    
29. 
    + G$ y; E$ g0 s7 y$ l
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    
31. 
    
32.              )
    # N4 E  _& \4 @) c& q+ }
33. 
    6 j5 v# W; U( d
34.              blkname
    
35. 
    # k9 {6 d6 t* Q$ C) g6 l1 S
36.        )
    
37. 
    
38.        )
    
39. 
    
40.        (vlax-for obj blk
    : O7 l4 v6 C( }
41. 
    ( b6 u7 ~7 B1 y4 L( I* @8 A
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    - {9 [' L: k7 A
43. 
    # z- ]8 ^0 A' x
44.   (progn
    " O) l" n) r' n/ p
45. 
    3 q: r2 w; v% h9 D0 _$ _/ m
46.      (setq  txt (vla-get-textstring obj)
    
47. 
    , h& {- n' }+ A
48.      )
    
49. 
    ( F# C9 A. j/ }# |, B
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    
51. 
    
52.          (progn
    
53. 
    
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    ! ?  S3 d: z+ F2 c
55. 
    * R, E" L2 ?& s. b" _, G; M
56.              (entmod e)
    
57. 
    6 F% q5 H3 I: m& \6 A  X' o
58.              (entupd ent)
    
59. 
    1 Y- ?( ?. _1 F( ~9 J
60.          )
    
61. 
    
62.      )
    3 j( B8 ~# c/ N& U2 U) p
63. 
    7 Q' }3 h5 d- h
64.   )
    
65. 
    . N2 X7 [8 q# [/ [# [* m+ r# e
66.            )
    + i( X# R* N. j- P  O" h9 a1 |( u
67. 
    
68.        )       (setq i (1+ i))
    # b1 \* M6 _! K! D; N
69. 
    ( F7 x3 `& o6 R
70.    )
    # d8 H! Y  R- V* B* U8 i5 J* F
71. 
    6 ]8 k) Z# B2 U$ a* z
72.    (princ)
    ( z  a2 k8 A5 V' j5 G$ h' w- e1 s+ a: }
73. 
    
74. )

复制代码

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

yiminga

回复 17# ozb2011
' u/ K# l) l, Z! z' E2 S+ Y8 W" G

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

346244456

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

ozb2011

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

yiminga

回复 20# ozb2011
8 r% \$ F2 c- i1 T8 P" O- i, a+ q
  u3 R3 Y1 S; ~- V; n) `
6 i9 P  Z4 m+ H/ v+ o% `    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga
  x# {# t7 H4 W( l- V7 f" _
6 B- }1 r* n* f9 D代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga
$ W( U4 S* g: A
8 M" z  a# @/ w, `2 y. p% K0 x没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug

回复 7# yiminga
1 Z) o% Y9 E- J, g* M: _% N4 G4 D
* l; i/ s# c8 v+ r
3 d8 t- m9 D/ f" T    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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