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

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

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

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

@" r. n4 y+ n9 E
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
# M9 ~+ V3 u* U; D6 q
/ i, S. _9 \" J3 V
;;
/ |8 w5 D& c$ `9 O
3 c: o5 e1 W( H2 _" p6 d5 g
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)# w* s& R& o) L# J1 c$ z' M$ K
7 Z* |! A7 ]9 |' d' g" d
(vl-load-com)
2 L; C* O6 B$ p) [
1 g& @% n: {! @, M
(setq ss (ssget '((0 . "DIMENSION")))
( o5 q8 a- L+ o$ ^
' E- k% a, r8 Z5 B4 ]5 w
i 0
1 N3 B7 z8 ]# ]! v4 M
8 u9 m9 Q# A+ z0 m
)
' V( ^! O! C& p) r
. ~3 K4 |: {% @" A
(repeat (sslength ss)
$ |& H0 F6 I# t- R3 X+ V2 ^
+ b3 c/ d' S7 z5 O* s2 A
(setq ent (ssname ss i)* D. a5 z& t9 ~2 b# d8 Q
& }" ~: }" M" ^0 G3 L% {
e (entget ent)" K7 @( I+ X3 z7 K, |
2 f. E. r/ [6 t
e1 (cdr (assoc 1 e))
( f8 E3 W, ?, d3 p$ v" g# R
$ G d4 J/ c% t. Q* f, [7 _
intpnt (cdr (assoc 11 e))
5 s1 j P; u) H ^
# G' K* C& ? s
blkname (cdr (assoc 2 e))% M" i9 M" P8 h5 U0 u* f3 s
$ E0 T: j4 y# @0 j% O- P# c7 F
blk (vla-item (vla-get-blocks& D2 |4 j& B3 @ B9 E, b
2 |# ^# @# j# }# g* R m; l2 I
(vla-get-Activedocument (vlax-get-acad-object))9 }6 S6 @) w3 l# a( A/ _
, q( v% f' Q# }' c8 e1 N
)
* z6 k9 d7 P% l# I6 o& b! A, s
2 S6 J# b, Q; X4 |; k7 F) j0 X4 a
blkname
3 T% z9 k0 W2 k. v; ^ d Q1 A O
, Z" V* _) Y$ D' {" u; v& U# ~
)
, T+ T& r. s9 P( V
% O3 v5 W' ?/ \! Z
)& W8 t* I. f& C% }/ g, D& p
4 R5 j! N; e' O- u$ Y2 k; M5 l! G
(vlax-for obj blk
E0 M" y7 g# n/ h$ K$ S+ S; ]
& s) m/ b9 Y9 G- S( Z& B1 m7 p
(if (= (vla-get-objectname obj) "AcDbMText")
/ d& a7 `7 W4 Q; E7 S$ C. k7 Z1 Y
: H7 ?- B/ G6 C( U e
(progn
* |5 A4 x O6 m
5 m. k( G4 \: S/ G! [2 d: j
(setq txt (vla-get-textstring obj)
$ y" l# g2 B: Y% B
+ S& M( n- h) ]( G8 \
)0 t3 B* A& Q) J; D) O
% W. p% a+ B4 A& {; b; E1 M, o
(if (or (= "" e1) (wcmatch e1 "*<>*"))
# u: }4 g p+ e8 u) q4 `2 ?$ H v
7 O5 r" B* H# I0 F$ R! }
(progn; T% H, H: X ]5 h& [
: m+ i& d* q/ m: c) {/ Q
(setq e (subst (cons 1 txt) (assoc 1 e) e))
) S0 T0 m4 S& \3 _9 Q, \, \/ r" b9 K
) f& O$ n# V4 l; n; F; }
(entmod e)% w0 r! j) s/ f: ^! O
, F4 ^: ?" V# M# e1 U0 w( f+ U
(entupd ent)
2 o" o0 X0 f2 ~' c) |1 ]4 Y; b) g
' _2 \9 y) t7 V0 }& ~3 E: F% C
)
( l. T1 F# V5 T( P+ H6 Y
6 j1 X: B- K) t6 h: e+ C
)
& E9 ~4 i: @4 p! R
: l% E1 _. B. }& w
)' d8 \$ Y# y- H, r* D
. h: [8 P( _! l* t4 n7 T8 |
)
) u/ r! |/ H6 j: u9 ?) C: z
7 v, o3 b) ~6 O8 B- L! l
) (setq i (1+ i))9 d/ [8 J8 w f' \
) g! M1 E4 o# `
)% Z/ S p1 B9 \' `$ e0 y
5 w/ F" [' e, {7 c
(princ)& x4 T$ S4 }. \. B4 P
* l9 Q) j }3 M, }! h8 |. E% n2 k
)

复制代码

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

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

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

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