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

ozb2011 · 发表于 2012-5-29 20:36

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

ozb2011 · 发表于 2012-5-29 20:52

. q! f) [$ I2 l) D" ^6 u
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
( T; p- a- G5 i6 x R8 C
8 d$ J( v( o `4 w
;;2 i! y( `+ |4 ?4 O1 w
$ z1 r% Y+ v5 X
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
3 O: M+ a c* K( v& U+ Z
) c" _! i' r8 }8 Y
(vl-load-com)
+ K6 z" {5 G) Y) n
$ |$ a4 t0 w* C( z
(setq ss (ssget '((0 . "DIMENSION"))). _# k/ W( u* p" y
& o0 B) T/ n" ^; {2 k% g
i 0* Q q+ j) Q% D4 b) L" Y% |
2 T5 D8 }0 A+ }$ E
)
' }& c' z ]. x3 o0 g7 n. D
4 ~0 c' Y9 @8 N9 c( n/ c
(repeat (sslength ss)
+ V6 A4 T; m$ l1 U3 O+ G; j
$ A8 X! [4 R. h: v" F
(setq ent (ssname ss i)% g4 ^) C. W4 j) p0 P
% P$ {, |# X! f
e (entget ent)
1 I7 l! D2 R/ g: [1 u; S4 l% C
$ k- h3 _, D$ _, @0 m1 `
e1 (cdr (assoc 1 e))" f: ]- P/ c7 }3 `9 w* ^
& {9 P3 t3 S1 J: ~# [* o
intpnt (cdr (assoc 11 e))
1 i$ g, u$ U4 f( m& p+ Z9 T$ z$ a
2 K) ?5 C1 }* G0 n# [) b& a
blkname (cdr (assoc 2 e))! R0 H: S% D: h
. R+ P( ^- m& l1 u5 J
blk (vla-item (vla-get-blocks
9 `3 T2 }# m+ I( ]; U$ B4 q1 K
. r$ K$ X. m7 Q, n) B
(vla-get-Activedocument (vlax-get-acad-object)). e: ~ b1 D W. U- i& }
( E* ]% e8 ~- G$ r, Y5 }- B" ]
)+ ^% e+ Z, Q! t, ~
& G# B0 ]! A7 s7 }6 Q9 t
blkname4 I" |% Y( h; u# G7 F( k; b
- y" |$ `. D% _3 v( p5 }$ y4 O
)
$ j9 ]9 ]# z1 j. f' _
# J0 H8 b, X2 `
)) h% ~: O% \% f1 q1 q; |+ \' Z" e. D
, [8 n3 ` m3 M
(vlax-for obj blk
( v+ [4 [2 M6 p2 ^
1 O# p9 z8 ^/ f3 M' o3 |
(if (= (vla-get-objectname obj) "AcDbMText"), I- D- K) G4 ]& e: l7 q0 x( ?* `- i
* |2 o% K& b2 [, B0 s5 s. t
(progn
, S# i; B9 L8 W$ b
/ q- _8 |% L; _& g4 i
(setq txt (vla-get-textstring obj)4 x3 l! ]$ i Q( n4 k H
1 w8 a* B- `2 J0 b7 |% Z& |( i
)
4 `1 T7 x- y+ q; S5 h" I" E# V
: |9 Z% F7 f) A% X# o x: V7 [
(if (or (= "" e1) (wcmatch e1 "*<>*"))
# v. t" \3 G$ _* r/ _7 ^
" l# }4 \1 |: V
(progn5 a! M+ T& a8 P, _* h
/ n7 J: e: `3 s1 D! }) m
(setq e (subst (cons 1 txt) (assoc 1 e) e))0 o i' U/ n" K* A3 L3 g" K
) {( y ]# O3 ?( H/ h
(entmod e)
% x" \; f* f; p6 N: `
: u- }/ o; \" e) o6 V
(entupd ent)
2 h( R1 ~2 B0 I
- y& F9 _7 `4 p1 w
)
( ~' X6 m- {9 }" }
, Z' u9 Z- A( [- ]. ?$ C* j
)" B5 \0 S l2 l- ]# a7 z: J
* h5 i( P4 }5 v: x
)7 V8 N* m2 {' b, U3 R% [: E
d8 k0 M, f' A/ f' h4 |+ R5 U
)* h+ m# V; S' ~* q, E9 n
7 F) }3 \$ S8 M. C( U
) (setq i (1+ i))8 ~" k6 d- T. Z. i6 y- n8 Z/ B+ u
. Z7 w5 _. {9 P9 O, G8 [; S
), p5 e9 A& b1 `) B0 I; a* }" t( \
: V4 J( s* D+ E8 q- Z! }
(princ), S2 o/ X& }6 J- z
/ ~- a! x2 `0 @0 b' y. J
)

复制代码

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

yiminga · 发表于 2012-5-29 22:35

回复 17# ozb2011

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

346244456 · 发表于 2012-5-30 09:22

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

ozb2011 · 发表于 2012-5-30 12:11

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

yiminga · 发表于 2012-5-30 21:50

回复 20# ozb2011

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

ozb2011 · 发表于 2012-5-31 07:58

回复 21# yiminga

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

ozb2011 · 发表于 2012-5-31 08:00

回复 21# yiminga

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

zhoug · 发表于 2012-5-31 10:46

回复 7# yiminga

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

xgr54 · 发表于 2012-6-7 12:55

只要选窗口打印就行了

GAUDI · 发表于 2012-6-8 16:25

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

		自动登录	找回密码
密码			立即注册

[求助] 缩放问题，帮下！！有点急啊！！