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

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

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

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

( e/ o4 t M9 t; T2 ?
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11." O- p" \) p( ]5 C
/ W: |" h% t7 P& `) l5 p
;;
# {) h' x) l! _& y
6 s) o* ?1 U' F
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)/ O3 V3 f/ A, V
5 E' A0 |- u }# F- d, J
(vl-load-com)
+ O2 C) _( {9 Q# ]& E
" W; C6 }# E; N- L5 [$ b
(setq ss (ssget '((0 . "DIMENSION"))) `7 u; ?4 |( k2 w: d: o+ @
5 T4 U0 m+ q( k( L4 [2 o7 R
i 04 D5 G- V" }$ r' N3 O) T9 X. q/ x
/ f+ a7 k# h% e \% G# M1 H8 O
) u6 R3 R# v5 g9 p9 b
; v$ A5 M4 e: e9 l- C8 z8 o) I, E/ r
(repeat (sslength ss)6 K, c6 F$ A/ }9 L2 r* ?9 b, a
1 w( ^ D/ W0 k. E. s
(setq ent (ssname ss i)
- T" b) z2 Z& D
( p& ~( c$ ^8 _- H( f* r5 R
e (entget ent), W, P- Y8 G" A4 l
7 `, W! M2 ?2 R% h
e1 (cdr (assoc 1 e))/ t9 y8 q' c- F$ X4 `, a; i
: t5 W* s- s! V$ P7 ~0 h
intpnt (cdr (assoc 11 e))
! }& ^# \2 p: n4 V* {; B. O9 u
/ ?1 l% Z. a; J! r! H( R" P& w
blkname (cdr (assoc 2 e))7 W; E F, |6 E+ r) q) \: R/ z
3 y& Y6 Y( w& F1 Y0 V
blk (vla-item (vla-get-blocks
! F7 R0 I) _$ [1 Q
2 x/ R/ Q: o* b
(vla-get-Activedocument (vlax-get-acad-object))
; a, p9 ~ ^% ~5 k6 u1 {
% T/ _( h& \6 K- M( K2 f$ p
)
o: N) X8 x3 r0 ^9 v
3 A% @( n7 @& u1 ]) x
blkname" P+ L/ a H* n1 l
+ v+ }8 F5 w# {$ v# V
)3 K) C" R# u* ?) A; B: J& ?6 ?6 }
0 r4 m# S( k" Y; M G! m
)
0 m5 w% Y* s2 L# @+ h
, Y3 X, e% \5 f- U
(vlax-for obj blk
4 e c2 b( e0 `( Y% A$ j
, K" V( V) }& E- `4 i/ n% v. b* U3 h
(if (= (vla-get-objectname obj) "AcDbMText")
, g, ^7 z. e. Z* c' y3 t5 W
. M" V! H8 L6 u6 e
(progn& C9 x6 N: \, z% f& R* I
) h0 J9 Z2 O/ _& y4 u' D
(setq txt (vla-get-textstring obj)
3 ?6 L+ t; A' l$ H1 d
. A/ P; n1 g, g* c
)( t6 Z" _! O$ v
0 R' a; b3 w, Z# s4 D
(if (or (= "" e1) (wcmatch e1 "*<>*"))
' _5 M5 V9 D5 ` P
6 y) S/ q0 I# @( }0 ^8 x
(progn
' U$ q. Y6 r. A U. \# k5 f" \$ K
( A7 S8 {7 X8 S, |
(setq e (subst (cons 1 txt) (assoc 1 e) e))
; ?9 o1 L' q# Z7 {6 z5 a
' k4 H+ r) T& l4 G; h
(entmod e)6 V; \% A" E; I, D# }
6 u$ i$ O$ G1 X D
(entupd ent)0 b2 W8 m% A: s2 }# y& J; O. W
( k1 r1 L" ?2 v3 a6 b
)1 v# @8 f9 f$ H& o/ S7 D4 D8 }
& N. O0 W! l( Y9 J* q/ z3 z
)
0 O9 x8 R5 A8 R
; g" e. ?. ]2 t* T4 `% o6 I
)5 N, R |. T u: X J) _
: n% J0 u/ f/ ]# u+ D+ U8 Q
)+ N+ C5 X6 p1 y+ A6 K
6 k6 x; ~6 @8 B# l( {
) (setq i (1+ i))8 u* t" o# n& X! j r- T
: E$ a6 y+ P7 s5 A( h
)7 k# {% t/ m5 I# R8 ?
. n2 D t. e( u- u
(princ)* N8 n% A4 m3 S, `; ~
$ F: G0 a: _/ T- l
)

复制代码

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

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

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

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