AUTOCAD中增加在文字处理上的功能

kjdsak

增加AUTOCAD在文字处理上的功能

一、说明
　　在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序：
$ s1 D9 a1 s7 Q/ J二、程序的安装及使用
　　先把ZDDQ．LSP和ZDJT．LSP 拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过菜单来调动，也可以AUTOCAD环境COMMAND后面用LOAD命令装入，形成一个附加命令ZDDQ或ZDST。
4 S4 ~# m1 Y1 P% M　1．将程序调用装入系统菜单
　　先找到菜单源文件ACAD.MNU，并编辑它。在* * * POP1最后加下面内容。
　［字的对齐］^C^C^P(“ZDDQ”)；ZDDQ；^P。
　［字的间距调整］^C^C^P(LOAD“ZDJT”)；ZDJT；^P。用鼠标点取下拉菜单即可调用。
　2．命令调 用ZDDQ．LSP、ZDJT．LSP
　　在COMMAND后面输入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，产生可用命令ZDDQ、ZD JT，击入命令按提示操作。
0 N  W# H! I/ i& k  v! \" i　3．两程序在使用中基本为中文提示，易用，现已在我院网络上全面使用。
　4．两程序适用于AUTOCAD R10.0, R11,R12.0。
+ w5 X; T& y2 H+ F3 a; p三、操作过程
4 u  P6 l' `* }, {' T0 N# D2 J, b　1．多文字对齐。提示如下：(其中“<>”中为缺省的选项)
选择对齐方式如下：L左/R右/C中心/M中点<L>：
选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) <2>:
+ A5 f  X& Y( F, y4 e9 E$ _点取对齐点<点取参照实体>：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐)
选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。
　2．多文字的间距调整，提示如下：
. N2 v, V0 M1 @3 d　 　文字间距调整方式如下：
　　1. 水平 2. 垂直 3. 斜向 <1>：
7 q& N, g" H$ m+ ^　　① 若选“1”或缺省值，则
* 输入各文字水平距值(或用鼠标点取)
* 选择对齐方式：(C中心/L左侧/R右侧/H中心) <L>
　　　1 若选“L”或缺省，则：
, F5 A- [! Y+ p* 输入这组文字起点。
$ k/ ?' X. {. x' S# ^* m0 Z5 _* 按选后次序选取文字。
/ s" p3 O& R8 B2 {　　　2 其它类推。
* y5 o% g3 q* o! ?, c' H; S- _, ?　　  选“2”，则：
* 输入文字垂直间距值(或用鼠标点取)：
2 w& x4 z8 N3 s( I9 X1 L- [  ]( j其它同①。
　　  选“3”，则：
* 按先后次序选取文字。
* 点取斜线起点(即文字排列方向线)。
  v: w% H# x* V- o* 点取斜线终点。
　　(结果所选文字在斜线起点和终点间等分排列)。
四、源程序如下：
　　1．多文字的对齐：
　　 ;--------------------
  R. G/ O+ o$ \" t　　 ; 1996.03.04
　　 ;
　　 (defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize
! b- a' z/ m9 I. m& W( p# y1 C　　 index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6)
8 h8 K- r4 V. U; q+ J& ^　　 (setq i 1)
/ r+ Z: J. x" l　　 (princ "\n")(princ "选择对齐方式如下:")(princ)
　　 (setq a (getstring "\n L左/R右/C中心/M中点 < L >: "))
1 |7 u/ S8 Y1 S, Q　　 (if (= a "")(setq a "L"))
　　 (setq a (strcase a))
* D2 a& Y& I5 I- P4 Z　　 (cond ((= a "L")(setq a1 0 a2 11 a4 10 a5 10))
! {0 _% m. N8 r* b) `& e* r　　((= a "M")(setq a1 1 a2 10 a4 11 a5 11))
　　((= a "R")(setq a1 2 a2 10 a4 11 a5 11))
& h: Q8 y' I; N  ~5 j　　((= a "C")(setq a1 4 a2 10 a4 11 a5 11))
$ z+ D. ?2 C2 I  ^3 l5 u　　 )
　　 (setq b (getint "\n1.横向对齐(使Y座标一样) 2. 纵向对齐(使X座标一样) <2>: "))
　　 (setq txsize (getpoint "\n点取对齐点<点取参照实体>: "))
2 q2 I0 K! E  D* u% b9 a　　 (princ "\n")(princ "选取文字(自动滤去非文字实体):")(princ)
: R, l% E- x/ a+ w# W& M　　 (while (< i 10000)
: u* v$ N. ^$ ?# G　　 (setq ss (ssget))
: ~2 A% _; ]$ ?% K$ i! Q　　 (setq n (sslength ss))
　　 (setq index 0)
　　 (repeat n
/ {0 m! l3 k; ^' U4 X0 _7 j8 |- Q　　 (setq ent0 (entget (ssname ss index)))
　　 (if (= (cdr (assoc 72 ent0)) 0)
8 Y1 q, w+ d. M+ M　　(progn
, ?' p. E# A$ G2 J9 s( J　　 (setq a4 10)
　　 (if (/ = a1 0)(setq a5 11)(setq a5 10))
　　)
　　 )
. B: y. m5 Z1 {- m5 s. P8 q' k2 W　　 (setq index (+ 1 index))
- P1 h( ]7 z' {% y  q$ i　　 (setq type (assoc 0 ent0))
　　 (if (= "TEXT" (cdr type))
- t) f& M' T1 X: @3 T" w7 O　　(progn
# `7 l, u9 r+ Q5 B& E　　 (setq p0 (assoc 72 ent0))
8 e* G9 M9 W$ q+ f1 x/ ^　　 (setq p (cons (car p0) a1))
　　 (setq pp (subst p p0 ent0))
　　 (setq old (assoc 11 pp))
# k$ I( [/ Z1 V　　 (if (= a "L")
　　 (setq a3 (list 0 0))
8 f3 A. ^3 O1 R5 L　　 (setq a3 (cdr (assoc 11 pp)))
　　 )
　　 (setq new (cons (car old) a3))
　　 (setq ent (subst new old pp))
6 U1 N4 W$ s" N2 |! f- X. H　　 (setq o1 (cadr (cdr (assoc a4 ent0))))
　　 (setq o2 (car (cdr (assoc a4 ent0))))
5 o1 `! Q9 h  H$ E8 Y/ E　　 (if (= txsize nil)
　　 (p rogn
6 H) P$ {* o) _9 V5 `9 S6 k　　(setq a6 (entget (ssname ss 0)))
　　(setq a6 (cdr (assoc a4 a6)))
+ I  U, W* F( t2 b6 r1 G. S　　(setq o3 (car a6) o4 (cadr a6))
5 c9 S2 U& f8 N$ J/ f& H　　 )
　　 (setq o3 (car txsize) o4 (cadr txsize))
# b( ^! q$ u" K" M  j' Z* ?　　 )
　　 (setq oldsize (assoc a5 ent0))
　　 (if (and (/= b nil)(/= b 2))
　　 (setq aa o2 bb o4 cc (car oldize))
　　 (setq aa o3 bb o1 cc (cdr oldsize))
　　 )
　　 (setq newsize (cons (car oldsize) (list aa bb)))
# l4 V4 |9 a3 Y$ ?　　 (setq ent1 (subst newsize oldsize ent))
　　 (entmod ent1)
+ h' _( P0 j4 a+ g! V! t+ g　　 )
4 ?- }" b4 x) L# K  U4 y6 T  d# W2 n. Q　　 )
( e! K1 T+ m( y3 {　　 )
) [2 j: C3 j- \' |* w　　 )
　　 (prin1)
　　)
　　;--------------------
　　2．多文字的间距调整
　　 edit date: 1995.6.1
% _+ y6 v) ?9 `) }% u: ^+ `3 l　　(defun c:zd jt ( / new old ent ent1 index s ss s1 s2 cj sj n x xs y ys wb wg wc wg0 wg1 zb type fs i j bbb bj1 bj2 aj1 aj2 cj1 cj2 $a $c $b ss1 ss2 dj1 dj2 zx ej1 ej2 fj1 fj2 zk jd)
' m% n, a4 c2 p　　 (setvar "cmdecho" 0)
3 X/ i! Z3 q- V2 S! J' U　　; (princ "\n1. order: from top to button. from left to right")
　　; (princ "\n2. there is over a entity")(princ)
- n6 t* K9 S" X! I8 B/ ^　　 (princ "\n间距调整方式选择如下:")(princ)
/ M- w( t* U4 \; i; X: F　　 (setq sj nil cj nil)
8 n5 y$ G( H9 X4 Y  c" \9 D7 R　　 (setq s1 (getint "\n 1.水平 2.垂直 3.斜向 <1>: "))
　　(if (/ = s1 3)
0 t& L% a5 M7 |$ k　　 (progn
% s2 D1 I0 P4 \: o! ~　　 (if (= s1 nil)(setq s1 1))
　　 (if (= s1 1) (setq sj (getdist "\n输入文字水平间距值(或用鼠标点取):"))
　　(setq cj (getdist "\n输入文字垂直间距值(或用鼠标点取):")))
  t- ^/ s  m. z; `: ~　　 (setq fs (strcase (getstring "\n选择对齐方式(C中心/L左侧/R右侧/M中点) < L >: ")))
7 c, M- B1 H+ m6 [2 F- t: M　　 (if (= fs "M")(progn
# ~3 G' X6 M& G! G) a: E0 w　　(command "osnap" "nea")
& f' G' l" A0 l: @' _　　(setq ss1 (getpoint "\n文字起点: "))
) y5 I- u  @3 D6 e/ m. f" j　　(setq ss2 (getcorner ss1 "\n文字终点: "))
　　(setq s2 (polar ss1 (angle ss1 ss2) (/ (distance ss1 ss2) 2)))
; ^5 R# W5 s' }　　(command "osnap" "none")
　　 )
& f8 ~- H- f4 }1 s$ B　　 (setq s2 (getpoint "\n这组文字起点text location point:"))
　　 )
　　 (setq x (car s2) y (cadr s2))
, ^9 o) M1 Z) {  }　　 (princ "\n按先后次序选取文字")(princ)
  ?3 p, p) i% u; m: V6 T( J　　 (setq ss (ssget))
! a, N9 j- h6 _# a- L6 x4 N　　 (setq n (sslength ss) index 0 i 0 j 0)
. D: @6 x7 f. @　　 (rep eat n
　　(setq ent (entget (ssname ss index)))
　　(if (= "TEXT" (cdr (assoc 0 ent)))
　　(pr ogn
　　(setq i (+ i 1))
　　( if (= s1 1)
　　(setq zb (car (CDR (assoc 10 (entget (ssname ss index))))))
* D0 v; z. e" t- K0 X: g2 V* x8 m　　(setq zb (CADR (cdr (assoc 10 (entget (ssname ss index))))))
& `; L3 Y4 p# D$ I) `　　)
. m! H+ U3 k+ Q. |6 [" q1 v　　(set q wb (cdr (assoc 1 (entget (ssname ss index))))
　　wg (cdr (assoc 40 (entget (ssname ss index))))
　　zk (cdr (assoc 41 (entget (ssname ss index))))
1 \: H. g) U" _- p　　jd (cdr (assoc 50 (entget (ssname ss index))))
　　zx (cdr (assoc 7 (entget (ssname ss index))))
　　 )
- c. N6 t1 [' c' u5 k, ~- I1 J　　 (set (read (strcat "b" (itoa i))) zb);coordinate
- b! o# g/ K6 E5 ]+ |  o6 N　　 (set (read (strcat "a" (itoa i))) wb);word
" H/ a$ v: @! Q8 H) v. a" z　　 (set (read (strcat "c" (itoa i))) wg);hight
1 t, d( n! @+ k/ N( {. Q　　 (set (read (strcat "d" (itoa i))) zx);word style
* o/ G; f9 @; Y# x　　 (set (read (strcat "e" (itoa i))) zk);word wide
; m& z- }5 O+ E& C2 j% p　　 (set (read (strcat "f" (itoa i))) jd);word engle
9 A% l$ _% A" Q6 r　　 (setq new (cons (car (assoc 1 ent)) " "))
　　 (setq ent1 (subst new (assoc 1 ent) ent))
　　 (entmod ent1)
　　 )
　　 )
2 Q1 }$ L& s- p% D　　 (setq index (+ index 1))
　　 )
& n, \* n% Y- E& g2 ]9 k　　 (setq n i)
　　 (while (>= n 2)
　　 (setq j 1)
: U# w& C& p+ G8 {( e　　 (wh ile (<= j (- n 1))
　　(setq bj1 (eval (read (strcat "b" (itoa j)))))
　　(setq bj2 (eval (read (strcat "b" (itoa (+ j 1))))))
　　(setq aj1 (eval (read (strcat "a" (itoa j)))))
　　(setq aj2 (eval (read (strcat "a" (itoa (+ j 1))))))
+ K# u# A. F" a- Z% |% ^　　(setq cj1 (eval (read (strcat "c" (itoa j)))))
　　(setq cj2 (eval (read (strcat "c" (itoa (+ j 1))))))
　　(setq dj1 (eval (read (strcat "d" (itoa j)))))
* m- O* j7 @* I' t: L6 t　　(setq dj2 (eval (read (strcat "d" (itoa (+ j 1))))))
2 F# Q& h1 l2 q* u$ i! p　　(setq ej1 (eval (read (strcat "e" (itoa j)))))
: `! ?2 ?+ ]1 K! k8 }) Z　　(setq ej2 (eval (read (strcat "e" (itoa (+ j 1))))))
　　(setq fj1 (eval (read (strcat "f" (itoa j)))))
3 m7 F6 k) r1 X9 g8 Q　　(setq fj2 (eval (read (strcat "f" (itoa (+ j 1))))))
　　; (if (/= s1 1)(setq bbb bj1 bj1 bj2 bj2 bbb));-----------------
, `* X) a% K$ i+ |* S　　(if (AND (= S1 1)(> bj1 bj2))(BBBB))
1 s' }- ]" {. a! y% y0 X5 {　　(if (AND (= S1 2)(< bj1 bj2))(BBBB))
　　(setq j (+ j 1))
　　 )
　　 (setq n (- n 1))
　　 )
/ y6 z! P$ s& z; j, f# b2 s2 H　　 (setq n 0)
　　 (re peat i
9 {+ r* ^5 O) d1 N7 ?! r. U1 \　　(setq n (+ n 1))
( B7 }* M% A# d3 I2 n( b% W　　(setq wg (eval (read (strcat "c" (itoa n)))))
　　(setq wb (eval (read (strcat "a" (itoa n)))))
　　(setq zx (eval (read (strcat "d" (itoa n)))))
# V$ q9 Z" B4 N# g4 A! |5 ^* q& U　　(setq zk (eval (read (strcat "e" (itoa n)))))
' L. C5 t7 H) b2 a3 @9 @1 ]　　(setq jd (eval (read (strcat "f" (itoa n)))))
' J& ?$ R. k3 v. P/ X　　(setq zk2 (cdr (assoc 41 (tblsearch "style" zx)))
. E* b1 g* P* I& p8 h  y* `　　 zt (cdr (assoc 3 (tblsearch "style" zx)))
　　 zt2 (cdr (assoc 4 (tblsearch "style" zx)))
  _; a3 i. @2 [3 D　　 )
, W) O6 f% P/ L1 H1 g　　 (if (/= zk zk2)
4 r/ Q3 B. U7 O$ B7 Q# S　　 (if (= (strcase zx) "STANDARD")
: ^: v( ~- L8 _: }  W$ E1 p　　 (command "style" zx "" "0" zk "0" "n" "n" "n")
5 e2 ~- j; e8 I% X　　 (command "style" zx "" "0" zk "0" "n" "n")
　　 )
- R8 X0 |7 A, ^: }　　 )
# A9 ^- z3 t  q1 q( O0 V　　 (if (= s1 1)(progn
　　(setq xs (+ x (* sj (- n 1))))
6 {7 h+ Q# O) ?- y　　(setq zb (list xs y))
　　( if (= fs "")
　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
　　(command "text" zb (/ (* jd 180.0) pi) wb)
( n. C  v2 J& W( x$ s$ [　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
　　)
　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
0 k, e( T+ ]' M8 M) \( W　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
　　 [KG*2](command "text" fs zb wg (/ (* jd 180.0) pi) wb)
1 K) @/ Y7 J& r- V; N9 z+ J& o　　 )
　　 )
　　 )
  U% N/ V5 r8 Z- R5 Y　　 (p rogn
8 N/ h0 P7 h# x9 K9 J) m2 o$ _- v　　(setq ys (- y (* cj (- n 1))))
　　(setq zb (list x ys))
　　( if (= fs "")
0 g8 [4 V1 |' K. H# Q1 z! X/ J　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
) K9 Q) p# _- Q  y/ _$ j$ I9 B5 h2 s$ }　　(command "text" zb (/ (* jd 180.0) pi) wb)
　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
　　)
　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
/ w. B0 R1 i/ Q7 _7 r. C( Y　　 (command "text" fs zb wg (/ (* jd 180.0) pi) wb)
　　 )
9 P, T% n; N9 c) N! V　　 )
　　 )
' t, U  n& R. W: D　　 )
/ ^$ s4 N/ o7 t( _$ ?　　 )
　　 )
4 J* ^+ c. z1 u( B" X( M　　 (progn
" k8 D* k! J- t% x0 S$ X5 s　　 (princ "\n按先后次序选取文字")(princ)
" [# @: Y; N, d4 ?2 o0 e　　 (setq ss (ssget) cd (sslength ss))
　　 (princ "\n按选取文字先后次序,从斜线起点至终点等分这组文字")(princ)
　　 (setq qd (getpoint "\n斜线起点: "))
$ P5 u! Y+ H8 X$ ?4 l; Q; n2 R　　 (setq zd (getpoint qd "\n斜线终点: "))
　　 (setq jd (angle qd zd))
, D- u7 Z5 h! G5 L9 [　　 (setq jl (distance qd zd) jl (/ jl (- cd 1)))
0 ?7 ^4 M' U9 ]; o6 A2 E　　 (setq i 0)
. A- b! I, ]$ F4 f1 P6 J$ j　　 (repeat cd
# I% I; z* b* w　　 (setq zd (polar qd jd (* i jl)))
, J: i8 A  D3 p- T3 b　　 (setq wg (cdr (assoc 40 (entget (ssname ss i)))))
6 m) ^0 l4 `  H* K　　 (setq wb (cdr (assoc 1 (entget (ssname ss i)))))
　　 (command "text" zd wg "0" wb)
+ T" |7 d: W- B- [# y" _5 s9 |- ?　　 (setq i (1+ i))
; H3 c3 M& t9 K) o: S9 ^2 K% N　　 )
　　 )
　　)
  E: D8 x' W- w  H  @$ C% B, B　　)
　　(DEFUN BBBB ()
　　(setq b$ bj1 a$ aj1 c$ cj1)
  D0 n! q( y& \4 {7 ?& V　　 (set (read (strcat "b" (itoa j))) bj2)
$ Q& T5 e5 k, p6 X) w　　 (set (read (strcat "a" (itoa j))) aj2)
. X) e5 E5 u+ O) t+ j' `　　 (set (read (strcat "c" (itoa j))) cj2)
　　 (set (read (strcat "b" (itoa (+ j 1)))) b$)
　　 (set (read (strcat "a" (itoa (+ j 1)))) a$)
　　 (set (read (strcat "c" (itoa (+ j 1)))) c$)
)