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

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

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

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

& D0 _' }+ o8 e- H2 e7 P
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.$ S( c2 S2 Z$ A. ^- Y
9 K# e0 ]9 G0 H- L W" ^/ x2 k
;;
' M6 A4 h8 j1 R. E( W5 I0 _
7 J- ]# W6 @( L/ P
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt), a: a/ T4 [0 M9 x- D, s
; ?( L, \% G2 E2 _) q1 ~
(vl-load-com)
* r9 D/ X, V: ^8 f
* [- w, S" K. y4 F
(setq ss (ssget '((0 . "DIMENSION"))) v$ ^$ a3 f+ O- Y$ {, {
" F n- @# y7 W0 O
i 0
' R \3 p* _4 l5 F5 ]
)
) J+ o: @2 Z, z' F% A; W
1 p5 T. b9 v% p+ v1 F+ j
(repeat (sslength ss)4 k' ?1 q+ Q* O- v' Z
% H! N* I( [5 g' j
(setq ent (ssname ss i)) P+ A! g3 C+ H+ C1 ` e
3 h4 s8 o s6 i$ `/ n
e (entget ent): L; |+ p. Y, F0 S* w
. v% { d7 s& C5 {
e1 (cdr (assoc 1 e))3 e# U. I( Q$ e5 k9 x. l3 Y: s- @
7 Y7 g* A, s7 |- d$ x% K8 g6 w- W! q
intpnt (cdr (assoc 11 e))
N& x* O* z( n4 ]# t$ q2 N, U$ s
" b: p! z+ N- b. P. R
blkname (cdr (assoc 2 e)) o' D" R1 y! ^9 w/ _: R
. T V w! P( y' S% ~. @* n
blk (vla-item (vla-get-blocks
5 \0 T5 E: l$ T" T& L/ I9 d
8 L" F1 n" P; k! W3 c. ^8 I4 l
(vla-get-Activedocument (vlax-get-acad-object))
% K- e6 y7 u6 T: t6 P
! m/ H7 d( p$ p$ N0 q! Z
)
- u$ G: l, Y* [0 G, I9 h( t( W- Z
. b0 c7 q' w$ T3 `4 |, F
blkname
/ O' p$ `/ ]; {7 I. L6 o
9 k9 M) P2 w6 Z/ l- b9 @/ c6 S
) {( x% x. A- _0 U
C7 Z n3 T/ s, j" G, w; p6 D
)( V n) j9 y+ B' J; T: I: h: v
3 q8 `8 m* \( q% m `& X1 f
(vlax-for obj blk+ _5 g) D. i) w% r4 x
/ \9 S, L8 M) N& j
(if (= (vla-get-objectname obj) "AcDbMText")
4 Y* J2 K1 Y* V" L2 e6 m @
i$ U5 ? X5 v! A! N9 `! A2 I2 E
(progn! | i& H0 D0 [7 X$ x
7 I: M- ]4 ?6 S9 t
(setq txt (vla-get-textstring obj)0 q6 N- t7 p3 A5 D, U3 f5 i
' M8 z& d J& e; P/ d
)6 l/ n/ o9 e5 X' D
1 Z# f6 w- ?) E0 M" |% P
(if (or (= "" e1) (wcmatch e1 "*<>*"))2 _% P$ w' c- S2 J5 C2 u1 n& W
; l# p/ _# |) A" i$ m
(progn ^' f5 X# j4 K& G
8 j( q" Z; |+ ~2 U5 z* R
(setq e (subst (cons 1 txt) (assoc 1 e) e))
1 M3 g# X( w n% Q" B. R) [
8 t# Z8 a; O) D
(entmod e)' R! a6 k' @9 g. w
+ ?8 Y' `/ x8 |. A L
(entupd ent)3 g, ]" X5 N$ X2 ?' p. g/ E
8 Z0 Y& b" L4 w4 P2 h* h
)
% n$ |- A6 c, K4 l" i
/ A# D/ {1 M. `; ^2 e7 x
)
+ j- D# ^6 P+ [, q8 ?7 X7 D
1 l5 _! \& @, V5 Y' |
)4 _) [. Q: w1 y2 l7 s" l. y0 O
% F1 p7 A! Z) H( P' p4 y: Q
)
3 A( q5 ^( o- I) C9 i+ G
6 x9 M% O; b; [0 K/ N
) (setq i (1+ i))
) D Z. |* j: W; e) C2 n# i
" ]% U. I& a+ [
)
0 z Q# }/ T7 N4 ]' D! D
" I3 b) A, Q8 }0 q
(princ): j u% F; Z0 ~- e0 d! Q0 X) D
, d+ I, ?3 I2 J: M& z$ A y1 f7 f
)

复制代码

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

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

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

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