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

kjdsak

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

. S# p: D( b; W! C! \一、说明
　　在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序：
二、程序的安装及使用
　　先把ZDDQ．LSP和ZDJT．LSP 拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过菜单来调动，也可以AUTOCAD环境COMMAND后面用LOAD命令装入，形成一个附加命令ZDDQ或ZDST。
9 _9 K$ k! N& g& B　1．将程序调用装入系统菜单
$ O3 W: `4 O: j% p5 b　　先找到菜单源文件ACAD.MNU，并编辑它。在* * * POP1最后加下面内容。
8 y$ v1 l8 p% s$ e* N9 s* _　［字的对齐］^C^C^P(“ZDDQ”)；ZDDQ；^P。
1 h# \* `# {6 ^' M　［字的间距调整］^C^C^P(LOAD“ZDJT”)；ZDJT；^P。用鼠标点取下拉菜单即可调用。
　2．命令调 用ZDDQ．LSP、ZDJT．LSP
- u% Z/ ]1 H8 B% o5 p1 M. f　　在COMMAND后面输入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，产生可用命令ZDDQ、ZD JT，击入命令按提示操作。
　3．两程序在使用中基本为中文提示，易用，现已在我院网络上全面使用。
8 n* @- n6 |' \　4．两程序适用于AUTOCAD R10.0, R11,R12.0。
三、操作过程
# V5 s5 P8 J; b) ~9 Q　1．多文字对齐。提示如下：(其中“<>”中为缺省的选项)
选择对齐方式如下：L左/R右/C中心/M中点<L>：
, h  [$ y4 T- X, a0 _选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) <2>:
! ]- d, w# p8 ~+ k% l4 v& V7 [点取对齐点<点取参照实体>：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐)
7 B7 O7 z5 m- P  W# _  S# Q选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。
% p! g% |. ~0 N" z　2．多文字的间距调整，提示如下：
　 　文字间距调整方式如下：
　　1. 水平 2. 垂直 3. 斜向 <1>：
8 v' e8 v, h5 B+ W7 c* x　　① 若选“1”或缺省值，则
* 输入各文字水平距值(或用鼠标点取)
* 选择对齐方式：(C中心/L左侧/R右侧/H中心) <L>
　　　1 若选“L”或缺省，则：
* 输入这组文字起点。
$ W0 a$ I  O% A- W9 {  C$ i* 按选后次序选取文字。
　　　2 其它类推。
7 R: a/ K1 @* G( W& y　　  选“2”，则：
  `) l3 E4 V6 Q2 |+ d6 @: `) c0 i9 X* 输入文字垂直间距值(或用鼠标点取)：
其它同①。
- |0 w2 E9 j6 c3 [8 b4 ~! S; w* {　　  选“3”，则：
* 按先后次序选取文字。
* 点取斜线起点(即文字排列方向线)。
4 P7 y0 _; o. K- T0 J$ f* 点取斜线终点。
　　(结果所选文字在斜线起点和终点间等分排列)。
  d$ P! W  }) _/ O5 D6 M四、源程序如下：
( X1 X8 x- Q; K0 L6 W4 U* ]: L- [　　1．多文字的对齐：
- p8 h; E. ~5 p$ I　　 ;--------------------
　　 ; 1996.03.04
$ ]( l" c' w3 b$ ~! U　　 ;
　　 (defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize
' m: B4 Y9 J9 |% V( C, Y( c　　 index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6)
0 f' P% Y3 T, S' q# e8 b, D+ n　　 (setq i 1)
( Z1 z& |) u8 n6 x1 R) N" T$ @3 ~　　 (princ "\n")(princ "选择对齐方式如下:")(princ)
　　 (setq a (getstring "\n L左/R右/C中心/M中点 < L >: "))
9 V& r* G+ Y7 |9 G8 `) a　　 (if (= a "")(setq a "L"))
$ N+ `7 t# c: F' o5 L7 N　　 (setq a (strcase a))
　　 (cond ((= a "L")(setq a1 0 a2 11 a4 10 a5 10))
　　((= a "M")(setq a1 1 a2 10 a4 11 a5 11))
& N  b: c( a" P4 @: r　　((= a "R")(setq a1 2 a2 10 a4 11 a5 11))
　　((= a "C")(setq a1 4 a2 10 a4 11 a5 11))
　　 )
　　 (setq b (getint "\n1.横向对齐(使Y座标一样) 2. 纵向对齐(使X座标一样) <2>: "))
6 H: f9 U# U# I1 C, E& y　　 (setq txsize (getpoint "\n点取对齐点<点取参照实体>: "))
9 R! F  o3 j' m　　 (princ "\n")(princ "选取文字(自动滤去非文字实体):")(princ)
　　 (while (< i 10000)
　　 (setq ss (ssget))
7 ~- @5 O. q2 A; j　　 (setq n (sslength ss))
　　 (setq index 0)
' j/ _1 o; k/ E: A6 W　　 (repeat n
　　 (setq ent0 (entget (ssname ss index)))
　　 (if (= (cdr (assoc 72 ent0)) 0)
( S4 [$ t# U; Z: e5 W" q5 ^　　(progn
6 Z% O% d0 C$ Y# H8 Y" Z　　 (setq a4 10)
　　 (if (/ = a1 0)(setq a5 11)(setq a5 10))
　　)
　　 )
' U; [4 z9 _" |! a1 b　　 (setq index (+ 1 index))
　　 (setq type (assoc 0 ent0))
　　 (if (= "TEXT" (cdr type))
4 v( q4 y' e. m% b8 C　　(progn
　　 (setq p0 (assoc 72 ent0))
; m  i) o8 L; E$ T　　 (setq p (cons (car p0) a1))
; |+ V- }& r) p! y, ?7 Y$ j5 B　　 (setq pp (subst p p0 ent0))
% ?# E; K% K$ R9 M　　 (setq old (assoc 11 pp))
4 w6 v6 V' v9 n4 g# S3 }! P9 V　　 (if (= a "L")
) y% M6 l- }2 j3 S0 }　　 (setq a3 (list 0 0))
　　 (setq a3 (cdr (assoc 11 pp)))
　　 )
9 X# r. J' z# e# B: c, H# y　　 (setq new (cons (car old) a3))
0 W2 m; G) k5 U　　 (setq ent (subst new old pp))
, g% ?5 Z6 N/ |+ ?9 u0 V5 A7 W* A　　 (setq o1 (cadr (cdr (assoc a4 ent0))))
8 w/ t& C. q( Y! w" `! D+ V　　 (setq o2 (car (cdr (assoc a4 ent0))))
　　 (if (= txsize nil)
5 B' l0 |* w/ R+ T- t; r: `- z& E, @　　 (p rogn
　　(setq a6 (entget (ssname ss 0)))
　　(setq a6 (cdr (assoc a4 a6)))
6 N& X  w8 Y& Y+ r# t$ z" v　　(setq o3 (car a6) o4 (cadr a6))
. N, ?, M: l9 ]- X4 v6 V2 F% ^　　 )
　　 (setq o3 (car txsize) o4 (cadr txsize))
　　 )
5 J1 ^3 f7 F3 J8 f' n' M" D+ E  ], |2 x　　 (setq oldsize (assoc a5 ent0))
　　 (if (and (/= b nil)(/= b 2))
9 B8 Y. M3 C( n' ~( X　　 (setq aa o2 bb o4 cc (car oldize))
8 d/ p6 |, T8 w　　 (setq aa o3 bb o1 cc (cdr oldsize))
　　 )
+ j: M! b: j' j4 }　　 (setq newsize (cons (car oldsize) (list aa bb)))
$ w  K. o/ B. ?$ |　　 (setq ent1 (subst newsize oldsize ent))
　　 (entmod ent1)
　　 )
' m: e" r4 m7 @　　 )
* x! z9 u, c" a- L: [　　 )
: h3 ]% t# _! P# C; Y1 m　　 )
" K" P! F  i1 ?; w# R　　 (prin1)
　　)
　　;--------------------
1 @1 s, d( ]3 a& S4 }& S9 n( ]9 E　　2．多文字的间距调整
　　 edit date: 1995.6.1
, O. J% r; l  v; N, F) e　　(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)
  ?% x5 @; i+ N　　 (setvar "cmdecho" 0)
$ d8 Z. L8 b8 D4 ~0 E　　; (princ "\n1. order: from top to button. from left to right")
　　; (princ "\n2. there is over a entity")(princ)
　　 (princ "\n间距调整方式选择如下:")(princ)
( V& D* l7 {) g; H0 \　　 (setq sj nil cj nil)
　　 (setq s1 (getint "\n 1.水平 2.垂直 3.斜向 <1>: "))
　　(if (/ = s1 3)
  a9 X* v1 U. h# A3 s& t　　 (progn
: L8 `& @" ~! }/ _　　 (if (= s1 nil)(setq s1 1))
2 W* [- U0 {! n, W0 T, {  W　　 (if (= s1 1) (setq sj (getdist "\n输入文字水平间距值(或用鼠标点取):"))
　　(setq cj (getdist "\n输入文字垂直间距值(或用鼠标点取):")))
2 u$ I* K4 ]' T5 h1 _' f1 j" v　　 (setq fs (strcase (getstring "\n选择对齐方式(C中心/L左侧/R右侧/M中点) < L >: ")))
. `5 [' Y) r$ X( z6 o　　 (if (= fs "M")(progn
. G4 G0 O4 }4 G$ u　　(command "osnap" "nea")
7 Z  r! f1 H" n+ u/ M　　(setq ss1 (getpoint "\n文字起点: "))
　　(setq ss2 (getcorner ss1 "\n文字终点: "))
/ y2 P* e4 C* a" u: Z　　(setq s2 (polar ss1 (angle ss1 ss2) (/ (distance ss1 ss2) 2)))
* m9 P9 Y! |- D2 V" C& B7 k7 k+ U: |　　(command "osnap" "none")
　　 )
　　 (setq s2 (getpoint "\n这组文字起点text location point:"))
: p% J7 w: t  v% O- O' m2 Q　　 )
　　 (setq x (car s2) y (cadr s2))
　　 (princ "\n按先后次序选取文字")(princ)
　　 (setq ss (ssget))
　　 (setq n (sslength ss) index 0 i 0 j 0)
　　 (rep eat n
　　(setq ent (entget (ssname ss index)))
　　(if (= "TEXT" (cdr (assoc 0 ent)))
　　(pr ogn
　　(setq i (+ i 1))
2 a- I, J. C; k( s9 y　　( if (= s1 1)
( m8 {; ]. e- Y# D　　(setq zb (car (CDR (assoc 10 (entget (ssname ss index))))))
( f( e0 V* C0 }6 P0 Y　　(setq zb (CADR (cdr (assoc 10 (entget (ssname ss index))))))
　　)
　　(set q wb (cdr (assoc 1 (entget (ssname ss index))))
" R$ `4 W1 _  J; v7 X6 b　　wg (cdr (assoc 40 (entget (ssname ss index))))
: h9 I$ A% T/ `: A; f1 G# O/ l1 K　　zk (cdr (assoc 41 (entget (ssname ss index))))
. }* Y7 ?5 J  [" M' \* ^) f　　jd (cdr (assoc 50 (entget (ssname ss index))))
3 N  ]6 g9 ^: c3 b　　zx (cdr (assoc 7 (entget (ssname ss index))))
　　 )
% C7 H7 M6 c4 ], q% c　　 (set (read (strcat "b" (itoa i))) zb);coordinate
/ F7 g. Q7 i7 d- m　　 (set (read (strcat "a" (itoa i))) wb);word
　　 (set (read (strcat "c" (itoa i))) wg);hight
　　 (set (read (strcat "d" (itoa i))) zx);word style
1 o5 j8 c" H! ~# T( g; v& F5 k　　 (set (read (strcat "e" (itoa i))) zk);word wide
　　 (set (read (strcat "f" (itoa i))) jd);word engle
　　 (setq new (cons (car (assoc 1 ent)) " "))
* s$ v8 b! H/ p# D　　 (setq ent1 (subst new (assoc 1 ent) ent))
6 m! _2 n/ m, _" x0 p　　 (entmod ent1)
　　 )
4 h' Q8 H/ G% ~6 @; i+ [　　 )
* _; Q# O9 e! E+ T+ e0 c　　 (setq index (+ index 1))
: T8 K$ C6 I; _4 Y5 K4 l1 y7 A　　 )
6 f4 L* R! M6 q3 I& a! T/ B　　 (setq n i)
1 g. D' Q, ]4 E" o( A. ~　　 (while (>= n 2)
　　 (setq j 1)
3 c, M# n# K5 I" y　　 (wh ile (<= j (- n 1))
5 z) \0 |) p' X* ?$ @　　(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))))))
2 y+ ~$ E: D1 \　　(setq cj1 (eval (read (strcat "c" (itoa j)))))
　　(setq cj2 (eval (read (strcat "c" (itoa (+ j 1))))))
+ s, [" w( a+ C$ j　　(setq dj1 (eval (read (strcat "d" (itoa j)))))
　　(setq dj2 (eval (read (strcat "d" (itoa (+ j 1))))))
　　(setq ej1 (eval (read (strcat "e" (itoa j)))))
5 n0 N7 C) ]' P) ^# I2 [　　(setq ej2 (eval (read (strcat "e" (itoa (+ j 1))))))
　　(setq fj1 (eval (read (strcat "f" (itoa j)))))
　　(setq fj2 (eval (read (strcat "f" (itoa (+ j 1))))))
　　; (if (/= s1 1)(setq bbb bj1 bj1 bj2 bj2 bbb));-----------------
# b3 q. L2 D$ L& h- Z! i　　(if (AND (= S1 1)(> bj1 bj2))(BBBB))
　　(if (AND (= S1 2)(< bj1 bj2))(BBBB))
" F% Z7 e2 l$ v+ q* Y　　(setq j (+ j 1))
　　 )
# W$ U2 b) L1 {8 Y. ]9 t1 \  c　　 (setq n (- n 1))
2 H, r" ]& e1 V& t2 ~4 K+ M　　 )
9 F3 d6 L0 @2 Y  X$ L/ }* Z　　 (setq n 0)
　　 (re peat i
) d% n1 Y3 Y8 d& O* r8 s　　(setq n (+ n 1))
　　(setq wg (eval (read (strcat "c" (itoa n)))))
　　(setq wb (eval (read (strcat "a" (itoa n)))))
  o1 _$ J( ?& e% R9 J0 D( e　　(setq zx (eval (read (strcat "d" (itoa n)))))
4 l+ V  E# M. Z' t% z0 j0 k　　(setq zk (eval (read (strcat "e" (itoa n)))))
　　(setq jd (eval (read (strcat "f" (itoa n)))))
　　(setq zk2 (cdr (assoc 41 (tblsearch "style" zx)))
　　 zt (cdr (assoc 3 (tblsearch "style" zx)))
　　 zt2 (cdr (assoc 4 (tblsearch "style" zx)))
* u" Q* u% z$ M& r8 Y0 O7 p; ]6 a　　 )
# F) J+ q- e3 a　　 (if (/= zk zk2)
　　 (if (= (strcase zx) "STANDARD")
　　 (command "style" zx "" "0" zk "0" "n" "n" "n")
. m9 V6 w7 C; ]* k4 i" t　　 (command "style" zx "" "0" zk "0" "n" "n")
* U- Q( h9 M+ g　　 )
  R! @+ u- S9 T. y0 k% ]. e1 b4 x" T　　 )
" A9 Y! @" N, Z9 R5 T) N) w  K　　 (if (= s1 1)(progn
* `* U7 j9 r. d5 y% T　　(setq xs (+ x (* sj (- n 1))))
　　(setq zb (list xs y))
　　( if (= fs "")
1 I) c: b  `; S' N- E! r　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
　　(command "text" zb (/ (* jd 180.0) pi) wb)
　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
　　)
! a& m, U, h$ }1 B9 X+ s- Y5 l　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
' r% k3 D' {( @2 h, p# ^　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
; g/ @) x# ]% d* Q1 @4 D7 R# L　　 [KG*2](command "text" fs zb wg (/ (* jd 180.0) pi) wb)
　　 )
8 R% c$ y; v1 Q. r　　 )
% s' |5 Q: f( f; y- v: z4 T& B　　 )
　　 (p rogn
　　(setq ys (- y (* cj (- n 1))))
' f8 T/ @9 R8 q/ L1 H　　(setq zb (list x ys))
　　( if (= fs "")
) Y7 l5 o! V. r) P　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
　　(command "text" zb (/ (* jd 180.0) pi) wb)
　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
% v7 x6 V2 L/ a( P, [$ F0 T0 h  w- h　　)
　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
! q7 l+ i. I5 @! S& b8 q& H7 u　　 (command "text" fs zb wg (/ (* jd 180.0) pi) wb)
　　 )
7 [- l  s; K) l9 k( S9 B　　 )
　　 )
# T; |, F$ E4 R8 `8 W; o+ e; o　　 )
- K( U. X7 Q% R: I5 L　　 )
　　 )
　　 (progn
　　 (princ "\n按先后次序选取文字")(princ)
8 I) m1 o6 l0 d; z' h3 ?( k. Z　　 (setq ss (ssget) cd (sslength ss))
8 A$ s& C9 P& U( l: F% X　　 (princ "\n按选取文字先后次序,从斜线起点至终点等分这组文字")(princ)
) t' j& M, ~0 a) S( c　　 (setq qd (getpoint "\n斜线起点: "))
　　 (setq zd (getpoint qd "\n斜线终点: "))
　　 (setq jd (angle qd zd))
　　 (setq jl (distance qd zd) jl (/ jl (- cd 1)))
: R5 ^2 W, A7 ~5 p" e　　 (setq i 0)
　　 (repeat cd
/ ]8 Q0 }6 k5 i　　 (setq zd (polar qd jd (* i jl)))
$ [2 x& Q6 P, t8 r& \' I2 A) k　　 (setq wg (cdr (assoc 40 (entget (ssname ss i)))))
　　 (setq wb (cdr (assoc 1 (entget (ssname ss i)))))
1 Y: W5 h, m3 S% T6 F　　 (command "text" zd wg "0" wb)
: K- E$ q8 A$ v- `　　 (setq i (1+ i))
" M, w- c- J  M　　 )
　　 )
, _. P, H: }" r- l* n/ P( ?　　)
　　)
& i5 \; Z! w, B" X1 y, C　　(DEFUN BBBB ()
　　(setq b$ bj1 a$ aj1 c$ cj1)
5 j9 u! ?8 j4 f% L" P* k　　 (set (read (strcat "b" (itoa j))) bj2)
) o  M8 o- l$ s; b/ b　　 (set (read (strcat "a" (itoa j))) aj2)
; s7 t' X) u0 q/ c　　 (set (read (strcat "c" (itoa j))) cj2)
* n' C% X( U+ O4 i2 x　　 (set (read (strcat "b" (itoa (+ j 1)))) b$)
　　 (set (read (strcat "a" (itoa (+ j 1)))) a$)
　　 (set (read (strcat "c" (itoa (+ j 1)))) c$)
  M2 l% f  I! l* q" m2 Y$ `)