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

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

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

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

7 Y2 ^$ d N! R: p0 e7 o
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.9 _$ T4 j6 w% K/ Z7 w2 N
+ b8 { @* z N0 N0 P2 \
;;. Z5 H/ x, m, I8 |: J
. \" p# }9 M( C
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)4 ~/ a* O3 B2 w" h4 S
! J( Q# V+ x* v
(vl-load-com)
% i* e- I) j1 W( r9 V$ V+ @2 _1 E
( R* z; p3 M: y
(setq ss (ssget '((0 . "DIMENSION")))4 S% t- i; a; w/ G: N
" L' F' q9 ?0 [0 ?$ I
i 0
. y/ I2 C# o5 N) ~9 m% `/ ^% H
6 S$ G3 c# i# w5 g0 K8 w9 k
)9 m( ^* o0 J6 T. T4 l7 H4 `
; O/ L7 W, m3 E: O7 W+ {1 ?
(repeat (sslength ss)7 J% A( h! ^; S# h7 M
" T) _% {( l9 a
(setq ent (ssname ss i)
! c/ e7 d o( H& k% Y. m# P
! L' {& `! Q# L1 x5 B3 T
e (entget ent)+ t0 E- r- I2 C T) B
" t5 Y2 y! b3 }. v9 r$ a
e1 (cdr (assoc 1 e)). X5 q$ W3 p# d- {' i1 K2 H$ H
7 z+ K. k5 x3 k6 p
intpnt (cdr (assoc 11 e))1 k/ x4 Q d7 n& g, t
K6 y9 x5 b( [( d
blkname (cdr (assoc 2 e))
, N% G# `2 m% Q+ h. ~
! I: @3 n7 W8 Z; A
blk (vla-item (vla-get-blocks
7 s- f2 Q" r* {2 V7 F0 R* o8 x
. W0 q( \5 |4 ~7 S0 x. D5 H1 w9 Z' ]
(vla-get-Activedocument (vlax-get-acad-object))
E# d4 Y, D" X8 I1 ^7 \
3 f* O2 w' O% v# m; e
)% C# h0 A3 Z* j
3 e, |" Z* P5 M! |0 s- P; e4 s4 ?/ c
blkname
2 U0 y8 q6 r2 t& y R
* U4 X; X* k, L7 A6 `
)
( ~+ X# M% w1 X
# V7 X% d+ j7 q3 C2 t! \
)9 O# T0 S! `8 a
' U {/ u4 ?7 B) y$ R H% `
(vlax-for obj blk _; j0 Q" b& T& V7 \& _
! h" ~5 b `6 a0 F" R# `
(if (= (vla-get-objectname obj) "AcDbMText")
1 O1 W: T& {; }$ R# u
# @3 f! p, J4 {7 R+ V3 M' ]
(progn! [) K3 K, S$ W4 E2 R" h5 j7 s9 s
; w& E4 J/ k! U- [9 B. y/ a9 K
(setq txt (vla-get-textstring obj)
- Q: z! e4 R# d" R1 }4 h) P
2 m! t6 L: u0 R/ n) I% n
)
. b! I! h4 B9 M) R" K0 |
% R L! ?* f$ S
(if (or (= "" e1) (wcmatch e1 "*<>*"))7 Z4 c- w9 u) ?9 Q* }/ Q9 J8 z5 ^
- f% P7 ` C2 T* b
(progn7 b, B u( K8 _- S' u
3 E1 z* }% W; T6 p* @
(setq e (subst (cons 1 txt) (assoc 1 e) e))/ c' F/ d. I& H5 x3 q E
# s% @* n1 _; Y- W
(entmod e)' y6 a& k6 i, W* T. }% c. i
4 X0 H$ }6 E+ V! I9 M
(entupd ent)% D0 ] w' z" {2 y( A
! C% Q# ]+ f) b7 l% |( N9 n
)
6 l# z' \: o0 b: Y$ R1 }7 U
U/ s/ p& [$ y# M' M8 Z( y7 i: n) U
)
4 \( I5 {% U- v
8 H& `( X* ^. z/ o" n0 o
)$ e4 ?% l; T9 s8 `! C& ]
2 _& @* ^9 h4 j1 r( P
)
" g% ]* s ~) y: ~! J a& S
3 E3 }5 c* r+ u
) (setq i (1+ i))
8 u! B. r2 M7 z6 [0 d3 e
! I% W$ X0 w7 z
)
0 H( H6 L7 i' V9 ?7 B4 V
2 O# v2 T: H. w, F p$ f# p
(princ); P6 L8 _* i8 v, n7 [
; Y2 y/ t" p$ N: 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

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

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

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