AutoCAD超级编辑

ganlan

兼容版本：AutoCAD2000-2004、MDT2004

2 v- V% d, A- A1 ]+ q& V文本、标注文本、圆弧编辑
! H% X& b( t8 N! C( Z/ i; [; L
一个命令搞定
5 ^0 i9 D' ]% Q5 [, g# P. F
! @% y* @+ U. V) p命令是MEDIT和MEDIT2
3 H7 v4 L2 O( x+ m) E& d3 v% r
两个命令不太一样哦。其中一个有对话框

; \4 {! ^8 m* x0 @& x% u* J因为我有时不太喜欢对话框

操作方法：把下面的源程序copy到acad2000.lsp或acad2004.lsp文件的后面，保存。

$ p1 k% O! x, N5 p" {2 [重启动AutoCAD，

OK!!!

按Esc键结束

(defun c:MEDIT() ;;;---《《《可以把这里的c:后面的命令名改成你想要的命令名，只要不冲突
(setvar "cmdecho" 0)
(command "ddedit" "")
, X7 a, d0 F3 ]; s(command)
2 a' L$ z+ }) n7 V9 f(PRINC "\n超级编辑\n文本、标注文本、圆弧编辑")
(setq ddr nil)
(while (null ddr)
" S, p. H! Q6 C  R  u" X0 L& P(setq arr nil)
(while (null arr)
1 |+ k: L5 r' A$ J% ^(setq arr (entsel"\n请选择文本、标注文本、圆弧对象:"))
)
6 x- l: `: R9 K0 ?0 n: Q(setq kkk (cdr(assoc 0 (entget (car arr)))))
(cond
((or (= kkk "TEXT")(= kkk "DIMENSION"))
! E& _5 s) j1 v(t-d-edit))
; s- f+ Q" a8 {$ n" ^8 L! Y((= kkk "MTEXT")
(mt-edit))
0 q/ ^: e0 l/ r) a6 P((= kkk "CIRCLE")
5 t4 Z0 [; I. w% ?1 N, @& ]$ V2 y(e_CIRCLE))
* `$ p4 [, t3 f, h+ B((= kkk "ARC")
(e_ARC))
3 u  G! w8 @% n2 Y6 q(defun c:MEDIT2() ;;;---《《《可以把这里的c:后面的命令名改成你想要的命令名，只要不冲突
(setvar "cmdecho" 0)
(command "ddedit" "")
  x0 q9 B" Y% G4 P3 W; ?(command)
(PRINC "\n超级编辑\n文本、标注文本、圆弧编辑")
- o) o, D+ \' R4 R! o1 g. f( F(setq ddr nil)
" O% p6 Y7 m2 r; c) A2 Q(while (null ddr)
(setq arr nil)
4 |& J6 i# c' ^(while (null arr)
(setq arr (entsel"\n请选择文本、标注文本、圆弧对象:"))
)
- }# Q. N0 n& n) V(setq kkk (cdr(assoc 0 (entget (car arr)))))
(cond
, H. M! K$ r4 {: H, d6 ]" h& G! i((or (= kkk "TEXT")(= kkk "MTEXT")(= kkk "DIMENSION")(= kkk "TOLERANCE"))
(command "DDEDIT" arr ""))
((= kkk "CIRCLE")
7 A3 K- R% B" Z# Q(e_CIRCLE))
( K: N/ H' X, l8 Q) u((= kkk "ARC")
! i2 C% l" M' \(e_ARC))
. E- l7 a2 f" j( c(defun e_CIRCLE()
/ i. E8 `) o1 g: F, O3 Q- w0 q4 i(setq kkg nil)
( E, t! F6 E" Q9 w+ g(setq kuu (entget (car arr)))
9 \- }/ n7 K4 d; N1 U# z" u/ \(setq kkk (* 2 (cdr (assoc 40 kuu))))
(if (null oldd)
(setq oldd kkk)
(setq kkg (getdist (strcat "\n圆的原直径 " (rtos kkk 2 3) "\n请输入圆的新原直径<" (rtos oldd 2 3) ">:")))
( _9 Q) b1 B" t7 _$ C7 M0 V# S( c# V(if (null kkg)
$ N$ X8 n7 D6 |' O9 D8 }& k9 n  K(setq kkg (* 0.5 oldd))
) [$ v( n; r$ D9 Q(setq kkg (* 0.5 kkg))
(setq oldd (* 2 kkg))
(setq pph (subst (cons 40 kkg) (assoc 40 kuu) kuu))
" I& T$ N$ c$ `. W6 G1 F% {(entmod pph)
( z2 r3 B0 f! s% }1 o  S" T- r0 o(defun e_ARC()
(setq kkg nil)
1 L9 }: g0 G2 ^, K% [(setq kuu (entget (car arr)))
( ]% ~7 c# P! a0 y7 ~+ [) M. F(setq kkk (cdr (assoc 40 kuu)))
(if (null oldr)
7 l/ w  ?% ?8 I7 ?* p, S$ \(setq oldr kkk)
8 R7 H/ y9 B* n4 r1 W- P(setq kkg (getdist (strcat "\n圆的原半径 " (rtos kkk 2 3) "\n请输入圆的新原半径<" (rtos oldr 2 3) ">:")))
/ A& ~$ |( A2 \* v5 Q# [7 t(if (null kkg)
(setq kkg oldr)
& H2 G" ?) K* z5 y(setq oldr kkg)
(setq pph (subst (cons 40 kkg) (assoc 40 kuu) kuu))
(entmod pph)
* _! p9 {/ d" e% E2 t(defun t-d-edit()
(setq kkg nil)
. m9 n1 O4 S' S0 [" s* E(setq kuu (entget (car arr)))
! h) b6 D: o* Y(setq kkg (getstring "\n请输入新文本："))
(setq pph (subst (cons 1 kkg) (assoc 1 kuu) kuu))
4 L9 T9 X3 I$ I6 B1 @8 @" Q(entmod pph)
4 Z2 N; a1 y! s( G(defun mt-edit()
;;(command "select" arr )
(setq kkg nil)
(setq kuu (entget (car arr)))
(setq tthh9 (cdr(assoc 40 kuu)))
0 t& i' G+ s) N2 {0 j2 O(setq strb "{\\f宋体|b0|i0|c134|p2;")
(setq strc "}")
(setq kkg (getstring "\n请输入新文本："))
(setq bx22 (* (strlen kkg) (* 0.708 tthh9)))
(setq kkg (strcat strb kkg strc))
(setq kuu (subst (cons 1 kkg) (assoc 1 kuu) kuu))
(setq pph (subst (cons 41 bx22) (assoc 41 kuu) kuu))
(entmod pph)