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

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

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

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

5 I0 W- {& _& X( N, X
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
& q/ u- T) r5 m# `8 x* O
;;, }# I3 m% n( Z( K, u+ h
. ?8 \' o" l! f4 G. _9 Z2 H
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
~+ r! F4 }$ o0 n2 S
/ V `7 Z9 a; g- u5 u
(vl-load-com)- @/ S$ k' f% Y! ^7 t% j( ~
1 g3 _' q& C. ]1 y
(setq ss (ssget '((0 . "DIMENSION")))
) n1 N1 o4 ~* U5 A) |" O
+ L1 T) U; ?! A1 H
i 0! W( c- n+ k2 A x( m: y6 L/ n
6 W1 Q. u3 a4 g; [
)
3 x+ x4 l7 m: d$ q
9 _4 c) Q7 b5 k" D) z
(repeat (sslength ss)
4 g3 P1 ~/ U+ Y; X6 F
- e" b/ f! b5 E
(setq ent (ssname ss i)0 o& A7 ~) x. m3 C& H7 }! U
x- }$ y/ N3 `: o: `* T+ z/ r. h' P
e (entget ent)
1 s* i6 \/ o' h" _( o0 N
% |% U# d# W9 p) m' p
e1 (cdr (assoc 1 e))5 Y. O7 ^. i5 n" D
U) i2 |) b; G% n9 G$ W) K
intpnt (cdr (assoc 11 e))
! k7 m. F; h* E) K1 P. H
3 [2 j5 u% L8 v/ h) B
blkname (cdr (assoc 2 e))3 ?( g& `( o- F* ]
7 Z% ]4 e8 r3 V
blk (vla-item (vla-get-blocks
- F' C5 d4 T! d' v
! R: }$ x( v1 v$ T; p7 t
(vla-get-Activedocument (vlax-get-acad-object))7 y. Q& M! L! q- R+ r/ D q
9 K/ U0 m( @ b4 {' {: y( T- ]
)
0 D8 I. W9 k$ p- @2 P/ u! m* h- o
blkname
. g8 y1 l% T8 m s
& @& J; `& W/ u4 I2 w/ {& G8 ]
)2 p3 m/ o$ K) `6 @ ?) [' U
( s- r5 B: G1 F
)
$ ~. w" \9 t1 y& o( r* h1 u W1 y
& G$ R/ G6 e: Z( q3 @
(vlax-for obj blk
# T1 j' u9 l6 A4 l s4 o7 Y4 X& \
1 V, r8 k$ }* w' q3 H% j
(if (= (vla-get-objectname obj) "AcDbMText")* _, C M' J8 O; ]
6 C O; h4 x& [% m" C
(progn
( z# N7 Z9 O* W
8 b# E) }8 P2 G4 G6 ~$ d( R1 E& K2 F
(setq txt (vla-get-textstring obj)
7 I* H5 a: y' G# Z7 A1 W
+ s. z: a- G$ B U; I
)' b& H. m" q G% E3 s" e, C
6 o( C7 L! E% T; U
(if (or (= "" e1) (wcmatch e1 "*<>*"))
9 e+ R7 w2 b8 Q) [$ f
" I, s$ P0 z( S; P+ F7 I' l& h
(progn% \- S, r* K/ Q/ t( w
8 l4 h3 o A1 d# B
(setq e (subst (cons 1 txt) (assoc 1 e) e))" q/ L! F% @# ^9 g% C! T
( J9 h. e/ K; \4 @* ~
(entmod e)2 y; u( J3 p, U7 A
J. q4 K: d- C6 c# w. S
(entupd ent)2 p( }3 I8 }& @: s- T8 D
8 k& R, l# h8 G: c0 z* I4 _
)
. R7 Y+ h$ G7 j% ?" ]. W3 `; n9 y
8 G- S5 R* W Q7 \( V) T2 I, _% v
)
2 N# Q" h' p; A0 \) F. D
9 b+ k6 y- w9 p+ g; m
)
+ B0 y3 ~, L- a, G* S' [
! C- ~5 t% u( G
)* ?* p# a3 j6 u( z2 i) `
8 t+ M; C0 R9 P+ Q/ ~
) (setq i (1+ i))- b+ B& s3 F% p! D
" X* y: B' v5 Q# j8 p
)
7 P) C5 M' O1 u6 ?
F4 l- y, }2 g) M' @
(princ)
& o- Q+ r6 O% t6 T. a6 {
% q4 |+ t! } d
)

复制代码

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

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

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

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