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

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

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

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

! M# V* b, N9 ?7 k
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11." D: B: d! a' j: W4 \$ D
6 F: a- K- k8 S+ M
;;- ^9 w/ t3 Y1 i5 k. F
! ]2 J& d6 h/ r2 l* D
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)! M% y0 Z2 X' Y1 Y, Q y
4 b& T0 Q7 D# d, W& k C! R( r# G
(vl-load-com)4 D# y/ X6 g& G8 D. m: X7 O2 j1 R9 _
( {8 h& g8 p- a2 i
(setq ss (ssget '((0 . "DIMENSION")))
. T+ x6 a5 ]3 [$ M9 F* j
9 b# w& k% J$ B7 B# V7 g [/ i4 j
i 0
: b5 _! y0 z& C
" l2 O& j1 K" v7 w* u. ^7 p4 i
)9 H: W* e6 A0 X
, c7 |# N k( Y+ w
(repeat (sslength ss)
( q7 t' t3 ?+ X( o6 T" a
, K; ?0 b6 \' l# U: L0 p
(setq ent (ssname ss i)
1 @, L* q" F. q2 N; C
( T5 Y5 S1 G. X2 m8 W3 Q
e (entget ent)
* c1 x& _! _( R6 W2 z
- K3 b5 A# A- B9 d
e1 (cdr (assoc 1 e))
% R4 T( v( ?; T# n9 r
9 w& |) o8 G" k! z
intpnt (cdr (assoc 11 e))& ?; `! v- v( h( @3 }7 U
6 A+ e" t8 c8 p6 u
blkname (cdr (assoc 2 e))
3 }5 k3 |: A$ ~
% d8 F8 H- W2 H6 k. b
blk (vla-item (vla-get-blocks8 w- k) E! X, y0 X- _0 u+ Y4 g
0 m, d( b# L3 R$ y% h
(vla-get-Activedocument (vlax-get-acad-object))
! J4 V" J0 a4 O4 _
0 i u q2 M: r$ d& [+ a
)
% k* c0 h* O* ]
2 V: m4 L" ~+ H4 E/ r5 d
blkname
# b) v( A; q; _# W3 N$ L! q( A
: X& S- ?8 {2 J0 U! t
)
. }% W9 }. L* i8 c. B$ H
: P- n+ x$ |7 M, [: Y/ i5 p6 Y! o. Z' \
)6 M8 @% g& n' n" h* Z. L* S" y7 ~. N
! Y! B( x: B5 ]# G1 M2 X7 E
(vlax-for obj blk
4 n) \* m4 z1 Z0 d" O
4 E- |. D' E' y/ C
(if (= (vla-get-objectname obj) "AcDbMText")
2 @$ D6 B! J5 M
4 O& J- L1 l# O) y+ a6 g
(progn e% r3 r# P5 R% _7 V
- ^- T; b# e4 O) B2 W- K Q
(setq txt (vla-get-textstring obj), |! c$ v5 A4 j
3 d( ]+ M3 A8 \) C, f) n
)1 \) S _; }8 \) ?5 w5 e/ s/ `
! z4 Q F, W5 S" T4 Z. |% Z/ c
(if (or (= "" e1) (wcmatch e1 "*<>*"))
! ~/ [, z) T( ~" ]6 H2 }+ o0 O
( j' K8 M) _4 i5 j+ c! E
(progn+ N3 ?/ Y/ y) x, j6 G
, N2 X5 W+ c! v) q9 Y+ W, C& S: G
(setq e (subst (cons 1 txt) (assoc 1 e) e))& _7 t* h/ d h l+ w! ~" Q" W
5 @' l# b* X F7 B
(entmod e)$ `3 U. C3 d' \& f
+ W- d! l; k9 p# w ]* H
(entupd ent)" U: Z0 }' J; h6 w
9 Y* x" S1 Z5 \: Q/ f
)
, y; n& T8 R* A4 t* w) v# l
Z% n; y' T1 w0 j& j) m
)
& j# z3 p5 c+ \6 T" l J/ j
0 I8 Z4 }) D# Q d h
)
2 C0 Y: R6 q& f
# i( I$ k) o* g1 t) z
)6 Y: `4 n$ X0 p5 q
9 \; R; k ?0 c" V
) (setq i (1+ i)); x8 y- a9 q4 N0 K. U5 M
7 E% @, ]9 t* A9 L K
)
0 I7 N( ~% p' |% I/ E9 c8 h/ o
0 y0 ^ d7 }- \0 o2 |/ F
(princ) ^5 ]7 F5 I, j4 |
)

复制代码

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

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

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

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