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

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

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

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

* h& f/ H2 L' T/ _
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.8 g& @3 s% Q" ]+ D* W
/ h( ~- E% o/ D- R6 G" H1 X! k2 U
;;
' A2 I Q/ `" I6 f' F$ v/ t: H
' |! m/ [6 w8 K8 J
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
! R- ^0 w, O, r/ D9 N7 o! m
" i4 [1 o' A9 D6 }1 { |
(vl-load-com)1 D. o7 I( x4 `3 I
7 ]1 {( d4 G5 B3 T
(setq ss (ssget '((0 . "DIMENSION")))& ?1 z2 J6 W+ ` I
6 D' k* E' Y+ D2 |& a4 F3 F
i 0
% ]/ F7 \. K( X* L6 G
8 I" J) ~0 v& |1 ?
)5 k" Y3 B( ~$ d
) K: i. d2 Y# A
(repeat (sslength ss)
, B) L( f% K2 q% o
/ ?4 k* P0 |: G8 V# X8 @& @3 _
(setq ent (ssname ss i)
: c7 K3 Y/ Q5 p
2 ~8 E* r, X# H
e (entget ent)
( c& i+ j) h$ u! m4 y' p8 n' y
( `6 m" M5 g: R- B/ Q, ^
e1 (cdr (assoc 1 e))
: H% }5 ]% X/ r& W& i( w7 O
/ N5 X6 D/ V5 ]+ w- g' V' t2 f4 s, u
intpnt (cdr (assoc 11 e))
! o- [! T9 v0 @
8 V2 H; A0 a; {' J$ X
blkname (cdr (assoc 2 e))
9 v/ F2 F; _ E' i" z1 _
8 {0 j8 l! u4 B' ?2 s
blk (vla-item (vla-get-blocks- n$ L( t, e$ T. T. y+ n
# R& g( D2 Q' Z, C
(vla-get-Activedocument (vlax-get-acad-object))! U+ i6 P Q/ Z4 ]+ l
1 [: e" b% Q4 U$ X" Z4 f
)
5 ^) q" \) S; ?1 ~* z$ |6 s# E
6 G$ Z2 U5 Y/ I# m& d/ [* a5 |* h
blkname1 c d5 m% \: j7 d: ~- N1 L3 p! j
- c1 |- p. O8 h( `3 D- z
)/ A3 |' k) N* R
$ C5 Q6 j) x; E- z+ J8 J9 P8 b
)
0 H4 f& C* s! n3 W, ]1 `
5 \6 s1 Y/ Z2 L7 Z- s1 ?
(vlax-for obj blk
8 y5 B. A* R, l; @ F% r
$ M. a' V( ~; e V( `# P' Y
(if (= (vla-get-objectname obj) "AcDbMText")
9 ^$ }) i, j+ M1 I- o7 h& z- N
9 p0 ]# I7 K2 l* f! i9 k# e6 w5 _
(progn8 o" S6 ]0 [2 K
: H8 n! B i s; W% G) m$ ~( G, u
(setq txt (vla-get-textstring obj)4 K( p! \+ w' b6 ~* R
. l: M7 ?# C9 [9 P6 |* o
)
3 O* Q/ I6 c) R% X
& s; F* Q6 t5 H; I; Z% i( w) ~# M
(if (or (= "" e1) (wcmatch e1 "*<>*")). }, q# D+ k: V, f$ E8 d b, K
- V* c! }1 |2 j5 j- J, v' [
(progn4 l* k8 m; U& C( V) i4 \
" {) w8 U {% J D- V$ \
(setq e (subst (cons 1 txt) (assoc 1 e) e))- U9 {" q) N1 ]5 l0 }& R% }& t
% V, K! m* v& u' |* j- N( p
(entmod e)
3 ?9 O/ I( }% C+ n3 @# [
, Y5 v; N9 d7 }
(entupd ent)
. z% d4 r% W' S x
v6 `$ N3 I" ^
)7 n# b+ R; f% N3 q
5 H. f j. O% [) C$ _, ?
)
5 _0 I i3 A+ }6 j; I
* Y5 x1 ~: R+ B1 V
)
2 P/ ^+ U4 W3 |9 R. x; g6 {* P7 p
, }9 ^0 T: a( N, P( u) w
)! u/ M7 w8 D8 F2 b0 t b
7 q: H/ b/ m4 C/ O; q
) (setq i (1+ i)), | @9 p2 h) [" t
9 R3 L8 r5 q4 k& N. s6 A; M, A
). c: C! @( e8 l9 d
, A1 e* [) b5 H4 N2 c
(princ), C i5 B) F: R7 \# w% y
+ w, a3 }% }- P) E4 `
)

复制代码

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

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

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

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