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

ozb2011

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

ozb2011

1. 
   
2. ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
   
3. 
   
4. ;;
   
5. 
   
6. (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
   
7. 
   ) _0 c3 z% t" V* y- u3 z' g
8.    (vl-load-com)
   + P' o/ n; }0 S0 ]- l% ?  Q6 ^
9. 
   
10.    (setq  ss (ssget '((0 . "DIMENSION")))
    / H) ~* ^7 X9 n2 F9 z' Z3 y
11. 
    ; Q+ [8 s2 Z! L! }
12.   i   0
    " F, G6 G% r$ D& z1 X9 W8 A
13. 
    
14.    )
    ) S+ H* b9 \0 f: H
15. 
    * ?( `" u! }) R) r# G: s
16.    (repeat (sslength ss)
    
17. 
    
18.        (setq ent     (ssname ss i)
    # i. Z: k% ]3 p! n
19. 
    . d3 @3 T5 @9 v
20.      e     (entget ent)
    1 U, Y  l, _- H. `
21. 
    
22.      e1     (cdr (assoc 1 e))
    
23. 
    
24.      intpnt   (cdr (assoc 11 e))
    1 B' m$ o0 o5 U
25. 
    
26.      blkname (cdr (assoc 2 e))
    
27. 
    & O0 x- @6 v3 }0 u1 Y+ `# e7 ?  B
28.      blk     (vla-item (vla-get-blocks
    
29. 
    6 w1 Q! L' Y; F) Y6 j
30.                  (vla-get-Activedocument (vlax-get-acad-object))
    + O1 H& d/ P1 ~7 v& Q# v1 s
31. 
    4 K) T. \# T+ i- R8 l
32.              )
    
33. 
    
34.              blkname
    1 S& N, ^- r9 l1 X4 y; a
35. 
    
36.        )
    0 }1 o  v+ Y- s* X  I) i6 h6 i% X
37. 
    3 u1 _  R) @  i9 K8 |
38.        )
    + L) F$ L# [- ~" y3 [
39. 
    
40.        (vlax-for obj blk
    + m: K: u0 y* s7 P. q6 W, u
41. 
    
42.            (if (= (vla-get-objectname obj) "AcDbMText")
    
43. 
    
44.   (progn
    ! y/ Q2 C1 k7 ?" z# T, q
45. 
    
46.      (setq  txt (vla-get-textstring obj)
    8 a# k) R$ g0 h: ~3 ^8 k. G* D" J; Z, C
47. 
    ) N" ]/ f" Z. d0 J) x3 x/ P; |# F
48.      )
    ) K' D; z+ g% v' v
49. 
    : r- @2 {; P$ ~# {
50.      (if (or (= "" e1) (wcmatch e1 "*<>*"))
    + j/ \* b' m: ?+ {( ~& s
51. 
    
52.          (progn
    
53. 
    
54.              (setq e (subst (cons 1 txt) (assoc 1 e) e))
    
55. 
    
56.              (entmod e)
    9 N8 `0 z7 Q1 m/ V) z
57. 
    ' R* W. }* U$ i+ d
58.              (entupd ent)
    
59. 
    
60.          )
    
61. 
    
62.      )
    / p/ _( Q, [- A% J9 H5 s
63. 
    6 r9 d: [9 E6 y$ j1 I, |
64.   )
    ) R4 z8 P1 X- J8 ?4 K8 f
65. 
    8 S$ I6 U& z0 w& A- d0 [
66.            )
    7 L( n5 Q5 W' B. A
67. 
    # \6 V! T2 n0 A
68.        )       (setq i (1+ i))
    * e9 U1 h: f. X& h* [
69. 
    8 |" q; b/ \/ C: ^+ }8 Y
70.    )
    9 l  A9 A# X' N+ Q/ o% |9 H$ }
71. 
    6 q8 v9 C/ Z( v* d2 L
72.    (princ)
    
73. 
    / f! `+ F. \$ y1 Q6 ~% @  l' z
74. )

复制代码

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

yiminga

回复 17# ozb2011
" H7 f& d6 u1 ^& j3 |5 f3 K" N

4 |) S+ S3 h9 q" Q2 o    大哥，西。。我是新手，不会做这程序耶！！做难不难的啊？难就不用教了，不难的话。。。。西。。。。

346244456

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

ozb2011

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

yiminga

回复 20# ozb2011

. S0 l- R0 v. D$ |9 o2 t
# U. \& T/ n( F* S' c# T7 Q1 ~1 ?    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011

回复 21# yiminga

0 }! C1 {( s, W代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011

回复 21# yiminga

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

zhoug

回复 7# yiminga

3 G7 L* j2 ~1 C2 l; H  x
% y1 j% C$ n$ b: f    标注样式的比例也要缩放的。

xgr54

只要选窗口打印就行了

GAUDI

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