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

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

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

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

* c6 q7 D% w: q- [ L6 {6 p
;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.# ^: f+ c7 L n3 n# J& r7 i
7 _# ^8 F& U1 b. _; a0 J% f- w
;;
$ g! v1 w: ^0 S' \, B
" W) Y' X- D" e7 K- r
(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)/ ]% R1 w/ G+ m0 L2 p8 S6 V0 I
, a7 {* f5 Y/ j5 Z5 S/ ^
(vl-load-com) o/ c& ^, J0 R# f: I4 i$ I0 K
+ o% U% r- |7 R# d6 r
(setq ss (ssget '((0 . "DIMENSION")))
. s8 m$ E9 E/ D5 i3 f1 \. W
1 k- I0 |4 e' u& v
i 0
0 o* Q6 o9 F1 [, ~2 U! M7 a5 e9 S0 Q
' Q; k: z+ P8 T3 y+ |
)
- v- f& I& b4 M! M4 {% X) |. L
2 m3 Y3 q; I' b* ~9 a7 Q9 w; l
(repeat (sslength ss)& b; _! x; F/ V3 ?9 e( Y
; |7 `- p, F+ l- _5 \: u6 A, Z
(setq ent (ssname ss i)+ H* `! L6 x G. z+ {
. _; u( N+ T5 }
e (entget ent)5 M7 f7 I7 x# ]9 z7 N$ A ?
! F# v8 | [) f% c7 `$ N# s
e1 (cdr (assoc 1 e))0 A- v5 j' O4 D$ k
; l5 d- ~: Z. x8 `8 P" j) M' t# T
intpnt (cdr (assoc 11 e))4 q5 L% \3 _3 B. b
3 b+ A; p4 |" a/ H
blkname (cdr (assoc 2 e))# I! l2 T L0 _
2 [6 l N, \! z; Q6 e) T0 Z
blk (vla-item (vla-get-blocks
4 k; N ?" D( b; o7 K2 ~# d' F
% B+ `5 h) u3 u8 A6 k3 }
(vla-get-Activedocument (vlax-get-acad-object))
% p i# K- L: u6 i! x6 W1 ]
7 C1 f5 [' E3 i. \
). q; Q2 L+ f: Q! r8 Y* q3 M$ u E
( F8 i+ h. _; L
blkname
" `; H+ o8 p8 t6 w
2 q( ?$ r8 ~4 z0 U; ?
) c2 N/ h$ H! G% J1 o V- { ~$ a/ u
- _0 F. _: @0 o9 g0 i1 u
)
$ c! v# K+ H) S& }* a, o' ]1 f
0 i. ?5 l# t/ P0 n, u2 N# r
(vlax-for obj blk/ {: s% n q$ y) [3 o% q# X( T+ Z! C
/ ]9 B7 [' y* @
(if (= (vla-get-objectname obj) "AcDbMText")+ R2 A z( w4 o0 a2 H @# k
0 Q8 | [! Y" p0 F
(progn w. ^; F5 i; r' I( u
: Z; A& d1 V8 {0 M
(setq txt (vla-get-textstring obj)8 m2 u2 x- H! b, \# r
" {3 n1 U) Q* t$ g' \ a- r9 i
)
/ ~. d# |5 r D2 l0 B9 f3 t# l1 z
* i: |7 a! f( s& l1 @, D5 X6 J
(if (or (= "" e1) (wcmatch e1 "*<>*"))% r' d8 }4 e* j1 H$ G# h8 v4 Y. n
2 b9 T9 Z. ~7 p& H" P
(progn& b9 X3 q' l, |9 \
" t# U: b: O. F7 }) t/ ?& G3 v
(setq e (subst (cons 1 txt) (assoc 1 e) e))9 E- X0 T6 }- d0 Z+ n3 {; U
; N: L/ |7 i* i! `
(entmod e)) @+ W. v% C: r4 J
+ g i" C, c u- e5 B1 G3 j
(entupd ent)
- [3 J7 v6 o+ C0 v7 F4 }
% i6 W' U) j% b
); ~& m W0 q$ J" g4 E5 C
. U! C: v5 N, E) \0 c5 Q K, |' e1 k2 i
)
% v1 F0 u3 V. d7 x2 R" L7 i
; x: ~: B0 R$ F' B) a4 P H9 I
)$ ]/ h8 p' B+ D
j& z3 O4 ]) i8 j/ a: H
)
: v$ I6 R7 m0 ]+ s2 n. s5 S! M! V
* P3 ^/ x: r' T6 `- u. }
) (setq i (1+ i))
/ d3 e6 E$ X% h4 M* B# f+ J
- l. B; W+ d5 z' ~/ _, `
), p1 r0 ]( s9 I: t% _" D- A
) Y+ v' v1 O9 {
(princ)0 U9 i, W; d, B& y
( x. j6 A* G: [: G4 o4 N4 B
)

复制代码

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

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

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

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

浏览过的版块