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

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

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

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

$ _" X! u7 i7 h& w- @( D9 I
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
1 T1 N% e% } r6 k4 T
- I. d) F6 p/ x0 ^( i" o
;;
$ P& j! P) ^6 P/ p8 P4 H
- Z- c2 j6 S$ Z5 l2 c3 u
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)) h0 F% C( c4 ^ K% L* s
# w( T+ _% a! s# `" e- _( u W- ?) W
(vl-load-com)% H& u* v. T- B. c0 h
% e7 T+ |) b5 |3 Z& ?
(setq ss (ssget '((0 . "DIMENSION")))1 ?8 W8 p8 P" r7 Q) S
, j% X, o8 Q, w$ k7 T
i 04 |8 `" |$ C# I: e6 b
7 q6 s) _; _, x Q# b
)
. J" M5 g. C+ b6 d7 x( Q/ y* R
* `+ H$ p+ R5 u4 X+ T
(repeat (sslength ss)
+ P- g* L# A# V: G7 n
' A% _5 H* y3 O _6 W$ i( F
(setq ent (ssname ss i)
6 {3 h6 q9 f- a0 I$ m4 @
! P4 _: I; E# [% c9 }2 h
e (entget ent)
. z3 G+ P A; J, K+ _& K) Y( B
/ Z' \ G0 ?5 e% ~' ^
e1 (cdr (assoc 1 e))
) j" D; ]* H. C# Q& \. ^: W
7 x& @, ~) b; _3 }" t, K) Q- M+ V' m
intpnt (cdr (assoc 11 e))
" h4 B1 [/ a7 Q
. L; V+ s* j. \: x) C1 ?1 [8 U! F4 F
blkname (cdr (assoc 2 e)), g! H/ ~. g- d' B4 m( L
5 I2 N3 l: Z- E s9 t6 ?
blk (vla-item (vla-get-blocks, m" F- y; H/ L( |5 {& U% L: E
' @7 E2 q5 l( H: K# Q
(vla-get-Activedocument (vlax-get-acad-object))
/ w$ M' D& G8 N. {
! J6 e$ T& G6 Q
)
+ p" G8 N0 s3 D f8 _5 H
& `! L) Z- m( n+ M
blkname
5 w" r8 P, _$ M" Z0 a# q$ E0 n
$ g& p2 X' ^) G$ J5 H# a0 u ^
)
* e# e* N$ r, `1 P
b8 O! N1 ~# j, D: i
)5 n: Z* b! ]6 {4 U( E1 X9 j( M
/ |( \$ _3 C) S) D7 S# B; k1 K) s; s
(vlax-for obj blk
# O3 V* P% _: k8 \" R7 `5 Z- e
9 ]& I" t/ W0 ^7 t, B
(if (= (vla-get-objectname obj) "AcDbMText"); f" J: B9 U) T/ c( C
1 f, Y& q- u& n4 X
(progn
9 E8 X* f) K* H
+ h! f- y, | ^# i
(setq txt (vla-get-textstring obj)/ N4 R: X/ _# c6 b' s8 Z! G& R" R, `
% G0 W4 T6 K4 j, J, V
)7 u, C" j( o0 b
3 W2 d P9 `; Q0 i; c
(if (or (= "" e1) (wcmatch e1 "*<>*"))* ?1 p$ P2 f. U. W" r
; J( D/ d3 g# a, ?
(progn# f7 E+ `' T6 l% Y6 I
2 _4 T# n" @4 M; ^* G6 `& g' V1 ~8 @( O
(setq e (subst (cons 1 txt) (assoc 1 e) e))
4 c7 i1 o; f. p! X8 \ P+ m ]
N4 ?( R( K+ k! O o
(entmod e), x! I) j9 @/ a8 @2 l4 e6 ^. }
8 a; \3 S8 d/ A8 E1 o4 o
(entupd ent)
; g5 F0 h4 h8 A5 T& Y' A
5 ` D1 T% X% V3 U4 a
)
. Y/ H/ i$ v1 L. H, ?
6 E0 Y7 | q1 A0 S& S) s t
)6 L/ J8 A3 {9 E, D" g# y, {9 }( x
9 Q0 D4 `/ G4 M# E2 E
)
, ^# u5 O# D& t7 Q
$ p9 S* R# K* `+ H
)* X1 n5 p Y0 A: U/ d
2 `3 K" \+ W4 m6 N: d
) (setq i (1+ i))
$ O6 u j* {6 B( f. D, F/ @0 _3 U" ?
. X1 W \6 o5 }; |" R4 b3 F
)
: G d% l1 k- |, _- d- V& q
: a+ w$ I! }% @& c; {
(princ)
8 U0 b0 Q& U; Z5 ] o$ P5 d& U: \
! f) H& }: L7 c
)

复制代码

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

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

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

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