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

kjdsak

增加AUTOCAD在文字处理上的功能
) L/ \! [- Z/ _  b
一、说明
　　在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序：
二、程序的安装及使用
　　先把ZDDQ．LSP和ZDJT．LSP 拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过菜单来调动，也可以AUTOCAD环境COMMAND后面用LOAD命令装入，形成一个附加命令ZDDQ或ZDST。
　1．将程序调用装入系统菜单
　　先找到菜单源文件ACAD.MNU，并编辑它。在* * * POP1最后加下面内容。
& E% W* Y7 e+ y) p6 m　［字的对齐］^C^C^P(“ZDDQ”)；ZDDQ；^P。
  w7 P4 G1 f6 m; E, C' ^　［字的间距调整］^C^C^P(LOAD“ZDJT”)；ZDJT；^P。用鼠标点取下拉菜单即可调用。
　2．命令调 用ZDDQ．LSP、ZDJT．LSP
　　在COMMAND后面输入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，产生可用命令ZDDQ、ZD JT，击入命令按提示操作。
9 ?) f) t" Z, C* l　3．两程序在使用中基本为中文提示，易用，现已在我院网络上全面使用。
　4．两程序适用于AUTOCAD R10.0, R11,R12.0。
三、操作过程
  j4 }. W# h. B　1．多文字对齐。提示如下：(其中“<>”中为缺省的选项)
' E& k' ^/ [  J  h选择对齐方式如下：L左/R右/C中心/M中点<L>：
. w$ @: y3 T& e0 b8 e9 V选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) <2>:
1 d( j  F( S  N点取对齐点<点取参照实体>：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐)
) |& P8 I0 w; t( A3 @$ B/ d6 c3 e选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。
: b* R* v9 y! P7 s* g　2．多文字的间距调整，提示如下：
　 　文字间距调整方式如下：
2 D* Q2 t; f8 g$ I　　1. 水平 2. 垂直 3. 斜向 <1>：
( ?6 @  K6 g+ U: Y　　① 若选“1”或缺省值，则
* 输入各文字水平距值(或用鼠标点取)
; u6 x4 g5 V9 {1 Q4 Y* 选择对齐方式：(C中心/L左侧/R右侧/H中心) <L>
2 ?3 |% O( E2 Q　　　1 若选“L”或缺省，则：
. u; `& U" Z8 f0 a# Y* 输入这组文字起点。
% z* d: {) T1 C! m! \9 a8 {* 按选后次序选取文字。
4 I" a5 [) t: J$ H) `5 _　　　2 其它类推。
　　  选“2”，则：
5 r1 X7 S" h3 L2 i. z7 y* 输入文字垂直间距值(或用鼠标点取)：
其它同①。
, _$ n9 U5 d2 G0 _2 u　　  选“3”，则：
* 按先后次序选取文字。
* 点取斜线起点(即文字排列方向线)。
" w0 _, P. a) z* 点取斜线终点。
& F, w2 o+ [% _# q　　(结果所选文字在斜线起点和终点间等分排列)。
- |4 {! X  M% c3 P$ }: X3 p& Z四、源程序如下：
" ]- e5 i. ~8 V3 G: L$ n8 ~! b　　1．多文字的对齐：
8 J8 O& _3 M( W5 i　　 ;--------------------
7 ]  _2 a+ o! t　　 ; 1996.03.04
7 X6 X2 f* p7 }　　 ;
8 M! `, N, x% g　　 (defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize
3 ?" f- x. m! g( `, s+ k# j$ i; o  A　　 index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6)
* o3 X  G7 W( I& W　　 (setq i 1)
0 N2 T3 k4 r: |4 y0 B  l  G- J　　 (princ "\n")(princ "选择对齐方式如下:")(princ)
& j/ ~/ x/ i  o　　 (setq a (getstring "\n L左/R右/C中心/M中点 < L >: "))
　　 (if (= a "")(setq a "L"))
　　 (setq a (strcase a))
　　 (cond ((= a "L")(setq a1 0 a2 11 a4 10 a5 10))
$ g* e; ]& [) x) s3 s, H　　((= a "M")(setq a1 1 a2 10 a4 11 a5 11))
　　((= a "R")(setq a1 2 a2 10 a4 11 a5 11))
　　((= a "C")(setq a1 4 a2 10 a4 11 a5 11))
0 v6 f1 }$ g  ~& p* Q% |" L  L　　 )
# c; P& _8 f5 [1 `　　 (setq b (getint "\n1.横向对齐(使Y座标一样) 2. 纵向对齐(使X座标一样) <2>: "))
　　 (setq txsize (getpoint "\n点取对齐点<点取参照实体>: "))
　　 (princ "\n")(princ "选取文字(自动滤去非文字实体):")(princ)
2 Y& |9 S, f& }0 y　　 (while (< i 10000)
　　 (setq ss (ssget))
7 N9 J" E( r) v- t1 v; k8 C: b　　 (setq n (sslength ss))
% i$ p! f& e8 A+ j0 u: s0 l　　 (setq index 0)
/ n  X) M: s6 o  h9 C　　 (repeat n
　　 (setq ent0 (entget (ssname ss index)))
  |/ C# \- r( B) U　　 (if (= (cdr (assoc 72 ent0)) 0)
　　(progn
, V, a' W" g* l7 k/ |/ Z' ^$ v( C- Z( p　　 (setq a4 10)
" j; N& k! b0 _3 U1 a　　 (if (/ = a1 0)(setq a5 11)(setq a5 10))
　　)
- @5 A+ R) @- {1 N4 S( X  N　　 )
　　 (setq index (+ 1 index))
　　 (setq type (assoc 0 ent0))
　　 (if (= "TEXT" (cdr type))
% S! y, e! g7 q& E/ s4 r' u- e　　(progn
8 T/ Q) M+ \' R+ |7 \　　 (setq p0 (assoc 72 ent0))
　　 (setq p (cons (car p0) a1))
　　 (setq pp (subst p p0 ent0))
# F9 j3 U( j6 u　　 (setq old (assoc 11 pp))
: N6 G; Q8 W2 Q　　 (if (= a "L")
* i+ |7 o* \, {0 k0 l　　 (setq a3 (list 0 0))
　　 (setq a3 (cdr (assoc 11 pp)))
& v& f! s' n# L# `　　 )
　　 (setq new (cons (car old) a3))
4 s* U% D) G3 w( s9 v" W　　 (setq ent (subst new old pp))
) j( N# p) r5 R' L. z0 S% E, A　　 (setq o1 (cadr (cdr (assoc a4 ent0))))
, e6 ]* J6 D, F+ D　　 (setq o2 (car (cdr (assoc a4 ent0))))
　　 (if (= txsize nil)
% M: T/ j; C/ q7 z# I　　 (p rogn
　　(setq a6 (entget (ssname ss 0)))
! H# y& {- _# i9 a　　(setq a6 (cdr (assoc a4 a6)))
+ E5 b( F3 ]. W8 J* i" z* W# P! F　　(setq o3 (car a6) o4 (cadr a6))
3 k7 V2 l4 z7 l6 J, e* h  O　　 )
/ ^  J' F( m7 Q& O9 v/ P　　 (setq o3 (car txsize) o4 (cadr txsize))
' ^+ N& \0 D+ E9 \) r0 P/ G$ c( f　　 )
, g. `4 |8 v& u6 u9 f- f　　 (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)))
　　 (setq ent1 (subst newsize oldsize ent))
　　 (entmod ent1)
, x' N' X" g7 \- |4 I4 o　　 )
- E" [8 e! n3 r+ D8 ]　　 )
　　 )
" \9 V: d/ P2 s% @　　 )
　　 (prin1)
　　)
　　;--------------------
　　2．多文字的间距调整
　　 edit date: 1995.6.1
　　(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)
. h+ ^% _5 O7 ~+ D" f% m1 @1 ]/ c　　 (setvar "cmdecho" 0)
6 G/ Y* n  m: x% ?% E9 @　　; (princ "\n1. order: from top to button. from left to right")
1 Z8 K  V1 E4 y0 J: t9 B　　; (princ "\n2. there is over a entity")(princ)
) ~  \/ ]2 z7 R" A5 L　　 (princ "\n间距调整方式选择如下:")(princ)
" n, Z$ r, m9 P3 l7 P3 @　　 (setq sj nil cj nil)
　　 (setq s1 (getint "\n 1.水平 2.垂直 3.斜向 <1>: "))
　　(if (/ = s1 3)
　　 (progn
9 ~6 N* B+ \- g6 P2 G7 X, F　　 (if (= s1 nil)(setq s1 1))
4 S0 T$ A. ~. ?8 {; t/ b- T/ F　　 (if (= s1 1) (setq sj (getdist "\n输入文字水平间距值(或用鼠标点取):"))
　　(setq cj (getdist "\n输入文字垂直间距值(或用鼠标点取):")))
+ G0 D, P3 x! f: e! x" n　　 (setq fs (strcase (getstring "\n选择对齐方式(C中心/L左侧/R右侧/M中点) < L >: ")))
　　 (if (= fs "M")(progn
　　(command "osnap" "nea")
　　(setq ss1 (getpoint "\n文字起点: "))
　　(setq ss2 (getcorner ss1 "\n文字终点: "))
　　(setq s2 (polar ss1 (angle ss1 ss2) (/ (distance ss1 ss2) 2)))
2 m+ C. A3 a' S6 ^% I　　(command "osnap" "none")
) J/ H2 L5 K1 e+ A. S) }　　 )
& E5 E, j3 \' Z6 O) U　　 (setq s2 (getpoint "\n这组文字起点text location point:"))
　　 )
, A7 F% x* D- ]/ D! P) t1 N　　 (setq x (car s2) y (cadr s2))
6 ]: a- Q( o  E! e0 G　　 (princ "\n按先后次序选取文字")(princ)
　　 (setq ss (ssget))
　　 (setq n (sslength ss) index 0 i 0 j 0)
. Q. |  `+ g) f' T# A! L　　 (rep eat n
/ o7 Z! C6 G) X$ |' h# u3 q1 D　　(setq ent (entget (ssname ss index)))
; K; h- S" q. l1 W　　(if (= "TEXT" (cdr (assoc 0 ent)))
$ d, h" ~; Q" `/ `3 d　　(pr ogn
　　(setq i (+ i 1))
　　( if (= s1 1)
　　(setq zb (car (CDR (assoc 10 (entget (ssname ss index))))))
　　(setq zb (CADR (cdr (assoc 10 (entget (ssname ss index))))))
　　)
: `8 y- \6 d3 y3 q( H5 g! q　　(set q wb (cdr (assoc 1 (entget (ssname ss index))))
! K" ]5 ^2 L4 N, X　　wg (cdr (assoc 40 (entget (ssname ss index))))
　　zk (cdr (assoc 41 (entget (ssname ss index))))
8 E1 t* l( K, V: w2 Y4 ~　　jd (cdr (assoc 50 (entget (ssname ss index))))
) k) @( G: ?# }3 x2 ?+ t　　zx (cdr (assoc 7 (entget (ssname ss index))))
　　 )
　　 (set (read (strcat "b" (itoa i))) zb);coordinate
5 V7 G3 Q; T. d, t2 d$ }  X- Q　　 (set (read (strcat "a" (itoa i))) wb);word
　　 (set (read (strcat "c" (itoa i))) wg);hight
, V7 r8 p/ ^: z6 |7 G1 i* P　　 (set (read (strcat "d" (itoa i))) zx);word style
　　 (set (read (strcat "e" (itoa i))) zk);word wide
( R% p* v3 m1 E* D& v　　 (set (read (strcat "f" (itoa i))) jd);word engle
4 D6 A8 R. e$ M, k( @+ j" G　　 (setq new (cons (car (assoc 1 ent)) " "))
# \; a1 _2 K! ], c' L　　 (setq ent1 (subst new (assoc 1 ent) ent))
　　 (entmod ent1)
0 ], F7 O& E& `& L, i; L' _　　 )
# ~3 Q* ?9 l: Q　　 )
　　 (setq index (+ index 1))
　　 )
　　 (setq n i)
　　 (while (>= n 2)
) }/ r8 s% B( N) c0 [8 q: H: f! k( R　　 (setq j 1)
* c$ K* _, G5 ~! L　　 (wh ile (<= j (- n 1))
　　(setq bj1 (eval (read (strcat "b" (itoa j)))))
( S" F1 Y" |) o$ A% Q　　(setq bj2 (eval (read (strcat "b" (itoa (+ j 1))))))
　　(setq aj1 (eval (read (strcat "a" (itoa j)))))
& I; T: S' x& i2 [1 T, E# E　　(setq aj2 (eval (read (strcat "a" (itoa (+ j 1))))))
7 n( b1 }6 b8 |; C# Y% x. z　　(setq cj1 (eval (read (strcat "c" (itoa j)))))
# P! l: b; c% g2 e* K5 t　　(setq cj2 (eval (read (strcat "c" (itoa (+ j 1))))))
5 b9 k) {, V4 I/ m! G  t- x　　(setq dj1 (eval (read (strcat "d" (itoa j)))))
　　(setq dj2 (eval (read (strcat "d" (itoa (+ j 1))))))
* c, }" R- Y! i+ y　　(setq ej1 (eval (read (strcat "e" (itoa j)))))
  K$ R# @# R; Z% F7 i6 _/ H　　(setq ej2 (eval (read (strcat "e" (itoa (+ j 1))))))
　　(setq fj1 (eval (read (strcat "f" (itoa j)))))
+ l  ^0 {2 F9 ~- v, e　　(setq fj2 (eval (read (strcat "f" (itoa (+ j 1))))))
6 ]( F& M' p9 w" ]' \- S3 m　　; (if (/= s1 1)(setq bbb bj1 bj1 bj2 bj2 bbb));-----------------
$ M( t; q7 t2 F+ h: V/ D: M　　(if (AND (= S1 1)(> bj1 bj2))(BBBB))
( v1 E: n0 J: o3 ]; `　　(if (AND (= S1 2)(< bj1 bj2))(BBBB))
　　(setq j (+ j 1))
! J  c$ N: ^  H& Z0 x　　 )
& i2 s- z& I1 h　　 (setq n (- n 1))
8 X7 k5 Q; L9 n1 Q7 N　　 )
6 S8 k, \! n  {; N　　 (setq n 0)
, d7 t& ~8 B; z3 y5 E　　 (re peat i
　　(setq n (+ n 1))
; |  L) t! x; O6 N: W2 d% y1 r　　(setq wg (eval (read (strcat "c" (itoa n)))))
　　(setq wb (eval (read (strcat "a" (itoa n)))))
4 w/ b/ H4 p4 z8 z- C　　(setq zx (eval (read (strcat "d" (itoa n)))))
0 x6 z, X+ x8 D+ B3 g; k  D　　(setq zk (eval (read (strcat "e" (itoa n)))))
6 R! Q0 l! J8 x0 r" R　　(setq jd (eval (read (strcat "f" (itoa n)))))
2 C+ i3 }' V  O$ ]. w( R. U4 B　　(setq zk2 (cdr (assoc 41 (tblsearch "style" zx)))
　　 zt (cdr (assoc 3 (tblsearch "style" zx)))
　　 zt2 (cdr (assoc 4 (tblsearch "style" zx)))
5 S. z- m3 F1 k/ g& m　　 )
& p; s* g$ l) P- d+ u: |　　 (if (/= zk zk2)
8 G" Q, \3 G; ?　　 (if (= (strcase zx) "STANDARD")
　　 (command "style" zx "" "0" zk "0" "n" "n" "n")
2 R8 j6 U* a# V. U( r　　 (command "style" zx "" "0" zk "0" "n" "n")
" ]& g- K* ?) k3 v$ q7 B* ], n& {　　 )
　　 )
　　 (if (= s1 1)(progn
　　(setq xs (+ x (* sj (- n 1))))
$ M) f" X( y" v# K" r  K3 }: c# y# K　　(setq zb (list xs y))
　　( if (= fs "")
　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
- q" V5 `5 j4 J6 ?- A% O& I' [　　(command "text" zb (/ (* jd 180.0) pi) wb)
　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
: o6 L! N* x, L1 j. y3 I% L　　)
　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
% Y. T& f+ R9 p$ }- A　　 [KG*2](command "text" fs zb wg (/ (* jd 180.0) pi) wb)
　　 )
　　 )
　　 )
" P) a" M* M' E8 r　　 (p rogn
$ I) N6 G) E/ S/ Z3 n　　(setq ys (- y (* cj (- n 1))))
5 t7 w: U$ H* B  a) l( ?　　(setq zb (list x ys))
2 t8 q$ k4 j2 F9 B　　( if (= fs "")
　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
　　(command "text" zb (/ (* jd 180.0) pi) wb)
' b: G1 H+ ~8 B- ]! f8 v2 ~　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
　　)
8 C% X( {$ r$ ?7 l* f/ p- i/ k　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
. t# d' c% B$ d7 [8 z' K4 h　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
$ h: V& W! {% H) C　　 (command "text" fs zb wg (/ (* jd 180.0) pi) wb)
' d' }2 M1 O5 k+ }　　 )
　　 )
　　 )
　　 )
　　 )
　　 )
: V& D8 h1 j  v3 M2 W' E4 {- }　　 (progn
　　 (princ "\n按先后次序选取文字")(princ)
　　 (setq ss (ssget) cd (sslength ss))
; }% w  ^( J8 I! a" |　　 (princ "\n按选取文字先后次序,从斜线起点至终点等分这组文字")(princ)
　　 (setq qd (getpoint "\n斜线起点: "))
) S! T8 ]9 J2 W; g  X* _# s2 b. d3 ]　　 (setq zd (getpoint qd "\n斜线终点: "))
) W& M' K  v6 j1 n! V: P/ k8 F7 M4 J0 ]　　 (setq jd (angle qd zd))
2 O! P7 q6 S& r4 j1 B7 T　　 (setq jl (distance qd zd) jl (/ jl (- cd 1)))
3 j8 U  a5 Y0 u* ^8 _! n  H　　 (setq i 0)
* T: K' X2 `" a7 S  {6 E　　 (repeat cd
, f' W, k6 t/ ?- T7 o4 \  D& g* p　　 (setq zd (polar qd jd (* i jl)))
6 c/ q5 P- R3 F9 R8 ^9 c7 ]　　 (setq wg (cdr (assoc 40 (entget (ssname ss i)))))
! h8 {/ ]3 ^4 [$ U　　 (setq wb (cdr (assoc 1 (entget (ssname ss i)))))
　　 (command "text" zd wg "0" wb)
! x5 X% l4 Z) L6 |8 N　　 (setq i (1+ i))
1 @( t0 I6 ^' D: I  O, v　　 )
　　 )
$ Z1 B+ m' B. ~& L4 x1 V　　)
' x' p- ]$ F" q. ?　　)
; ?8 m& u7 Z( M6 p　　(DEFUN BBBB ()
　　(setq b$ bj1 a$ aj1 c$ cj1)
　　 (set (read (strcat "b" (itoa j))) bj2)
　　 (set (read (strcat "a" (itoa j))) aj2)
; Z1 U2 l' ~5 ^4 V2 l　　 (set (read (strcat "c" (itoa j))) cj2)
5 o4 b) y6 j/ k" [　　 (set (read (strcat "b" (itoa (+ j 1)))) b$)
. C( J4 u# A2 t+ h　　 (set (read (strcat "a" (itoa (+ j 1)))) a$)
　　 (set (read (strcat "c" (itoa (+ j 1)))) c$)
)