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

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

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

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

# d: [) z5 e8 }/ p
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.% c) c0 T8 \6 S+ _4 M
- [% Z* ^2 P* ^$ [5 u
;;
' G/ ^. R: f t/ P3 ^/ [7 K: P
6 q9 X( b" U8 q9 s5 o$ x$ w( u
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
3 S- D8 ]0 y! M2 ]
, {5 t/ v% r5 h, v* s" b
(vl-load-com)2 I* C& l1 z9 S: n& t0 F6 L* R
3 g0 j& b1 M4 V$ N
(setq ss (ssget '((0 . "DIMENSION"))). P# T6 Y/ S* y# H
$ j7 I9 S6 X! c6 D
i 0
/ u8 D9 Y8 T) V
" V7 M. `; w+ U3 r4 g0 A
)
4 }/ N4 Y9 I# v
# i& t- e8 Y) d a$ ~ h
(repeat (sslength ss)1 S3 ]- h6 n, @3 F
: D9 V! f; M. A7 c' d
(setq ent (ssname ss i)) s( K" _. h9 X& ]
, p1 A, P2 h8 w& o
e (entget ent)# }& M2 ~+ ^) u p
6 y6 d! T5 s/ f
e1 (cdr (assoc 1 e)). v' c; P# A+ h$ ?7 t1 Y
+ D: s5 w g R5 T
intpnt (cdr (assoc 11 e)); N X6 |! ?2 X
# D( J$ ]5 F2 `% ]' q: \
blkname (cdr (assoc 2 e))& i( @8 S$ O' E% l
, J& m, c1 @! M7 B3 N3 a# c% W
blk (vla-item (vla-get-blocks# G5 q" h+ M, K# a. t& _$ }
5 `/ z6 b/ A( b8 \
(vla-get-Activedocument (vlax-get-acad-object))
) i' ^" O1 J) a# h3 M: D! j& [
: W2 H+ V d x$ O, f
)/ a0 ^9 C( g3 y2 r1 N# h
2 }1 P S$ [: G5 w2 w
blkname2 ^ g# ~. J z }5 e. l$ l
6 V. B: w, y9 W0 r/ s5 r9 x; i
)0 N) v2 s: ^( l7 j- Q2 y! l
( [9 u) t8 U) a
)
% @' p7 W' d+ {, ~+ n% I# ]
" j# Q4 ^3 U. H9 V0 }/ Z
(vlax-for obj blk n. M. r! g: f) Z
0 f4 _+ O" b4 {
(if (= (vla-get-objectname obj) "AcDbMText")( |9 a- ~; v$ K' j7 E
' W6 F% D. l* W
(progn
' u& a1 {2 H P( d9 J
$ n, ?+ s( ^! |. A
(setq txt (vla-get-textstring obj)) B0 } ~3 N) g+ |
* q8 f- l& @7 J2 G
)! ]& ?+ u1 T- D' d8 y
0 K0 ?* i0 n" E
(if (or (= "" e1) (wcmatch e1 "*<>*"))& t( l* P' p% r9 U/ F8 M
* `# `: }' y( B" ?# {/ O$ A
(progn
# ~3 E+ \& F9 H7 ?* w
9 b) f) A. H) l
(setq e (subst (cons 1 txt) (assoc 1 e) e)): [8 X* h) R% g7 B) H# H& Z! @
; L3 t5 K3 P, \" x# t. c
(entmod e)
1 Z# ~4 a5 J3 i2 {
: a8 q' K( N$ `; P# z
(entupd ent)9 J1 B, ^; Q; L
) @# T; U% c: R2 L$ D. |8 b
)
+ w7 T9 Y# K$ w# j, `
8 }1 ?& n; {# x Q. N
)
9 z6 V2 j1 t- ?( p3 z/ q
: E- G6 D. K+ m- j" ?
)
: \8 J2 ~9 I0 b* S1 f' Q
0 ?% U9 k& U" M
)4 M5 m* m& |& v1 y; i" N8 j
8 f1 d! i7 B) O5 S
) (setq i (1+ i))2 y3 y# ~) l$ x# [
4 v ~( H1 L$ d& {) D# T& D
)
% Y8 i5 G7 ~: S6 Z
- O* {1 t% M" u+ r$ K5 u7 T9 T
(princ)" V1 _. K5 R b1 m7 \7 F8 l! i, y
* w5 ^% j+ `6 Q G/ [
)

复制代码

在网上找了个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

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

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

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