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

kjdsak

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

一、说明
4 v0 K3 z& r: D9 f  a5 T$ i; I0 e5 P　　在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序：
" u: Z# R; }6 O7 {& g! g1 X$ m3 k6 @二、程序的安装及使用
　　先把ZDDQ．LSP和ZDJT．LSP 拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过菜单来调动，也可以AUTOCAD环境COMMAND后面用LOAD命令装入，形成一个附加命令ZDDQ或ZDST。
　1．将程序调用装入系统菜单
　　先找到菜单源文件ACAD.MNU，并编辑它。在* * * POP1最后加下面内容。
　［字的对齐］^C^C^P(“ZDDQ”)；ZDDQ；^P。
  G% n1 i6 P. [: c: c. a7 z　［字的间距调整］^C^C^P(LOAD“ZDJT”)；ZDJT；^P。用鼠标点取下拉菜单即可调用。
　2．命令调 用ZDDQ．LSP、ZDJT．LSP
　　在COMMAND后面输入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，产生可用命令ZDDQ、ZD JT，击入命令按提示操作。
% b% e, Z& Q3 I) c5 q, {7 f- c; f7 p　3．两程序在使用中基本为中文提示，易用，现已在我院网络上全面使用。
  D" @7 O/ `1 F  \　4．两程序适用于AUTOCAD R10.0, R11,R12.0。
& w  G4 b7 I0 m6 u$ l" u4 a+ y* \& ^三、操作过程
　1．多文字对齐。提示如下：(其中“<>”中为缺省的选项)
选择对齐方式如下：L左/R右/C中心/M中点<L>：
选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) <2>:
点取对齐点<点取参照实体>：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐)
8 e8 C! e/ d0 F选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。
　2．多文字的间距调整，提示如下：
2 q! i* M, B6 l4 i　 　文字间距调整方式如下：
1 _8 P6 r: u1 B; e　　1. 水平 2. 垂直 3. 斜向 <1>：
/ N2 ?" m' [1 ?2 o: B* d  R/ d　　① 若选“1”或缺省值，则
* 输入各文字水平距值(或用鼠标点取)
* 选择对齐方式：(C中心/L左侧/R右侧/H中心) <L>
3 U9 c2 t" a1 M% N/ ^9 S3 a9 P! O7 {　　　1 若选“L”或缺省，则：
. z" A# q, a. Z. J/ e  T( }$ H* 输入这组文字起点。
* 按选后次序选取文字。
　　　2 其它类推。
　　  选“2”，则：
* 输入文字垂直间距值(或用鼠标点取)：
  s# I/ r: ~1 f8 ]其它同①。
8 u& O. u9 f% ^1 E8 w$ Q! H　　  选“3”，则：
* 按先后次序选取文字。
* 点取斜线起点(即文字排列方向线)。
* 点取斜线终点。
　　(结果所选文字在斜线起点和终点间等分排列)。
四、源程序如下：
# v9 L; P7 ~; b) d　　1．多文字的对齐：
/ f, S% O! z& D$ `( L; b　　 ;--------------------
　　 ; 1996.03.04
　　 ;
　　 (defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize
, ?' L9 C9 Q  Y3 Z　　 index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6)
' L4 R- \/ P; i+ Q( B& R　　 (setq i 1)
　　 (princ "\n")(princ "选择对齐方式如下:")(princ)
/ O7 Q  V( N. P( I; p3 X　　 (setq a (getstring "\n L左/R右/C中心/M中点 < L >: "))
: k7 q; h% w' C: r: h, _　　 (if (= a "")(setq a "L"))
& `# O2 s% _0 m: [　　 (setq a (strcase a))
& C% [$ S4 Y: {( a; ]$ S; Y　　 (cond ((= a "L")(setq a1 0 a2 11 a4 10 a5 10))
　　((= a "M")(setq a1 1 a2 10 a4 11 a5 11))
　　((= a "R")(setq a1 2 a2 10 a4 11 a5 11))
% f* [# v  l- k/ N- W　　((= a "C")(setq a1 4 a2 10 a4 11 a5 11))
　　 )
　　 (setq b (getint "\n1.横向对齐(使Y座标一样) 2. 纵向对齐(使X座标一样) <2>: "))
0 p0 Z: o' d1 C# f4 v8 b　　 (setq txsize (getpoint "\n点取对齐点<点取参照实体>: "))
　　 (princ "\n")(princ "选取文字(自动滤去非文字实体):")(princ)
　　 (while (< i 10000)
　　 (setq ss (ssget))
2 i8 q* X; S- z0 _　　 (setq n (sslength ss))
　　 (setq index 0)
　　 (repeat n
/ W/ R9 N1 @/ W' {. P+ ]8 I7 N　　 (setq ent0 (entget (ssname ss index)))
　　 (if (= (cdr (assoc 72 ent0)) 0)
　　(progn
　　 (setq a4 10)
　　 (if (/ = a1 0)(setq a5 11)(setq a5 10))
$ t) D- q/ H& p0 t' ^5 G  Q　　)
　　 )
- j6 e4 Y$ F2 G7 {$ Q; C4 H) l　　 (setq index (+ 1 index))
　　 (setq type (assoc 0 ent0))
# V! _; {, H4 P" P9 c& O6 T- u2 q　　 (if (= "TEXT" (cdr type))
" |) h1 Y/ g4 l- e" a, \2 {　　(progn
! A: |" m+ C: J  g. a! B% i& A　　 (setq p0 (assoc 72 ent0))
) G" K5 {3 x9 L. Z% n　　 (setq p (cons (car p0) a1))
　　 (setq pp (subst p p0 ent0))
　　 (setq old (assoc 11 pp))
　　 (if (= a "L")
/ o' p& e" K2 b5 d3 k: D　　 (setq a3 (list 0 0))
, o1 t5 f7 P/ |  f　　 (setq a3 (cdr (assoc 11 pp)))
; r- U# p  c5 P. t5 m6 ~　　 )
+ a$ N5 b) @0 D* y3 K　　 (setq new (cons (car old) a3))
! [* A& j$ m; S　　 (setq ent (subst new old pp))
4 a! T5 I. T, n; o  I+ H$ q　　 (setq o1 (cadr (cdr (assoc a4 ent0))))
3 J6 n! c% e1 G2 C. e　　 (setq o2 (car (cdr (assoc a4 ent0))))
) b3 Z& H+ k- N( g4 T% j/ ?　　 (if (= txsize nil)
# H) C+ O" `/ H. t/ Q4 u& |　　 (p rogn
　　(setq a6 (entget (ssname ss 0)))
　　(setq a6 (cdr (assoc a4 a6)))
6 Z1 \1 d. V3 K6 @　　(setq o3 (car a6) o4 (cadr a6))
- B# ~" c; X. x& R# d1 v9 Y　　 )
) Y3 c5 R9 H3 `& D+ |; Y5 t　　 (setq o3 (car txsize) o4 (cadr txsize))
　　 )
/ `0 G4 X3 @+ ^: w　　 (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))
' `9 O$ e( n" s  r+ `/ }+ d　　 )
　　 (setq newsize (cons (car oldsize) (list aa bb)))
) N* e9 r3 f2 }: j' e' {　　 (setq ent1 (subst newsize oldsize ent))
6 ?$ ^. ~: b$ n* Z" s% X  N4 l　　 (entmod ent1)
5 z9 S1 h) p) R$ P+ W0 X  t: N　　 )
　　 )
% P! g6 D! @4 X% L' m/ e6 k% d　　 )
　　 )
　　 (prin1)
2 k3 r. y9 D1 _6 w　　)
" H2 P4 a6 X: X2 z　　;--------------------
( `2 t8 ~) {2 d1 |! ]" ^, W3 q　　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)
$ c6 ]! F$ k: A" d　　 (setvar "cmdecho" 0)
5 I& d  n: Z0 w5 q8 T5 R, f　　; (princ "\n1. order: from top to button. from left to right")
　　; (princ "\n2. there is over a entity")(princ)
　　 (princ "\n间距调整方式选择如下:")(princ)
　　 (setq sj nil cj nil)
　　 (setq s1 (getint "\n 1.水平 2.垂直 3.斜向 <1>: "))
　　(if (/ = s1 3)
' [% k9 \; a: {　　 (progn
　　 (if (= s1 nil)(setq s1 1))
　　 (if (= s1 1) (setq sj (getdist "\n输入文字水平间距值(或用鼠标点取):"))
  C  x9 J! \- a4 {: c, c* H　　(setq cj (getdist "\n输入文字垂直间距值(或用鼠标点取):")))
　　 (setq fs (strcase (getstring "\n选择对齐方式(C中心/L左侧/R右侧/M中点) < L >: ")))
: J) Q3 h7 i# o& d$ t6 @　　 (if (= fs "M")(progn
7 X' {/ }$ I  l, f2 i/ A　　(command "osnap" "nea")
! `5 p3 f( l4 D4 j% P6 A　　(setq ss1 (getpoint "\n文字起点: "))
+ ?% \! f, K" t2 p- f1 m" I　　(setq ss2 (getcorner ss1 "\n文字终点: "))
# k/ ~9 f3 j7 }8 L　　(setq s2 (polar ss1 (angle ss1 ss2) (/ (distance ss1 ss2) 2)))
# V- |! I/ U. @$ m' c- U　　(command "osnap" "none")
　　 )
　　 (setq s2 (getpoint "\n这组文字起点text location point:"))
8 G' Z0 X9 q5 q　　 )
　　 (setq x (car s2) y (cadr s2))
4 |: A( b7 Z# W6 Z　　 (princ "\n按先后次序选取文字")(princ)
- j$ }1 W3 \) |　　 (setq ss (ssget))
　　 (setq n (sslength ss) index 0 i 0 j 0)
　　 (rep eat n
" H" I: ?$ j9 d$ q　　(setq ent (entget (ssname ss index)))
- O  ~4 B. h) n6 T　　(if (= "TEXT" (cdr (assoc 0 ent)))
　　(pr ogn
2 Y4 J) W0 ]8 n( [, k  g　　(setq i (+ i 1))
　　( if (= s1 1)
: C$ N" E& m2 E# o4 F( X" s; A　　(setq zb (car (CDR (assoc 10 (entget (ssname ss index))))))
　　(setq zb (CADR (cdr (assoc 10 (entget (ssname ss index))))))
0 N6 `: B/ R9 f& j- S0 {& F, d　　)
　　(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))))
　　jd (cdr (assoc 50 (entget (ssname ss index))))
2 Q  K$ V8 \4 |, l. d2 r　　zx (cdr (assoc 7 (entget (ssname ss index))))
$ ]2 Q! W/ S2 x; t! s8 r　　 )
　　 (set (read (strcat "b" (itoa i))) zb);coordinate
9 v" {( j$ g6 M9 I5 C  @8 ^　　 (set (read (strcat "a" (itoa i))) wb);word
　　 (set (read (strcat "c" (itoa i))) wg);hight
# o; ?+ h* x- N! D  n" w$ q. s( ]3 G　　 (set (read (strcat "d" (itoa i))) zx);word style
3 K( d, [: Y1 ~; r/ B( D　　 (set (read (strcat "e" (itoa i))) zk);word wide
$ ^  ^0 N" C1 _6 S5 H: Q　　 (set (read (strcat "f" (itoa i))) jd);word engle
' K- ~: |5 l7 F& {1 Q　　 (setq new (cons (car (assoc 1 ent)) " "))
　　 (setq ent1 (subst new (assoc 1 ent) ent))
　　 (entmod ent1)
" `3 G- W: j. V) L　　 )
　　 )
　　 (setq index (+ index 1))
* p% E2 S& U! Y2 G2 n　　 )
/ A! N* U# ?, [. s9 U　　 (setq n i)
: R  Q; P# c5 a9 M3 t' u! ]　　 (while (>= n 2)
　　 (setq j 1)
4 T0 [" _7 R* w' J! J) H　　 (wh ile (<= j (- n 1))
8 R7 \0 e; V$ V　　(setq bj1 (eval (read (strcat "b" (itoa j)))))
　　(setq bj2 (eval (read (strcat "b" (itoa (+ j 1))))))
" \# \" L: |) Z) p9 {$ {! l　　(setq aj1 (eval (read (strcat "a" (itoa j)))))
! m; v$ [! m, G- Z1 ~+ j　　(setq aj2 (eval (read (strcat "a" (itoa (+ j 1))))))
　　(setq cj1 (eval (read (strcat "c" (itoa j)))))
+ ^3 ?: C) k$ o6 J! ?) p　　(setq cj2 (eval (read (strcat "c" (itoa (+ j 1))))))
/ C* t2 B$ I: [' o　　(setq dj1 (eval (read (strcat "d" (itoa j)))))
- ]+ }- A3 s3 M　　(setq dj2 (eval (read (strcat "d" (itoa (+ j 1))))))
　　(setq ej1 (eval (read (strcat "e" (itoa j)))))
% N; |( P/ b! N& g, x6 e- e: D6 T　　(setq ej2 (eval (read (strcat "e" (itoa (+ j 1))))))
% u1 R1 w5 N2 d) t　　(setq fj1 (eval (read (strcat "f" (itoa j)))))
　　(setq fj2 (eval (read (strcat "f" (itoa (+ j 1))))))
/ i  U7 `- O" T- g8 R" W0 {* ^　　; (if (/= s1 1)(setq bbb bj1 bj1 bj2 bj2 bbb));-----------------
　　(if (AND (= S1 1)(> bj1 bj2))(BBBB))
　　(if (AND (= S1 2)(< bj1 bj2))(BBBB))
3 N3 i5 X+ G  D9 X' h& L　　(setq j (+ j 1))
　　 )
　　 (setq n (- n 1))
　　 )
( R$ W& N6 U" o1 H/ ]　　 (setq n 0)
' g, F2 [) U& J, {' y7 a& H　　 (re peat i
　　(setq n (+ n 1))
; H' @( q4 w0 K! o　　(setq wg (eval (read (strcat "c" (itoa n)))))
　　(setq wb (eval (read (strcat "a" (itoa n)))))
6 F$ X  N  |) B% g　　(setq zx (eval (read (strcat "d" (itoa n)))))
6 _4 N3 A& Y0 C　　(setq zk (eval (read (strcat "e" (itoa n)))))
　　(setq jd (eval (read (strcat "f" (itoa n)))))
　　(setq zk2 (cdr (assoc 41 (tblsearch "style" zx)))
; I1 a+ l( H  b  c) G$ ?　　 zt (cdr (assoc 3 (tblsearch "style" zx)))
　　 zt2 (cdr (assoc 4 (tblsearch "style" zx)))
# |4 E6 t9 U, z! A; e' H! k' x　　 )
5 }& Q, D+ S! K: v3 b! S# U　　 (if (/= zk zk2)
　　 (if (= (strcase zx) "STANDARD")
　　 (command "style" zx "" "0" zk "0" "n" "n" "n")
　　 (command "style" zx "" "0" zk "0" "n" "n")
　　 )
　　 )
　　 (if (= s1 1)(progn
* |; x3 y4 ~0 u4 m　　(setq xs (+ x (* sj (- n 1))))
  {' n; W+ R) V　　(setq zb (list xs y))
　　( if (= fs "")
8 ?, Z$ Q$ n- ~  o" T0 g7 y　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
& ]5 n' u- b" _# l9 `4 K2 c' k　　(command "text" zb (/ (* jd 180.0) pi) wb)
9 ^5 d. C! H9 j% T　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
$ G' f" p1 P% {) a- b/ x$ ]　　)
' f6 T9 s; M/ ?; x! v　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
4 o3 c" Q) M$ h* j& x　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
  S* A# {9 n6 }% v  c+ J1 y　　 [KG*2](command "text" fs zb wg (/ (* jd 180.0) pi) wb)
' q! \8 k3 T5 Y# A2 E) {　　 )
　　 )
' ]  d5 J4 y/ ~$ {* n　　 )
　　 (p rogn
　　(setq ys (- y (* cj (- n 1))))
1 Z% {" \$ C% Z6 j! U) ]　　(setq zb (list x ys))
- n$ p% e$ W' r& d　　( if (= fs "")
　　( 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)
9 o2 W9 @8 _, `$ [- z　　)
　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
' h) m8 w, i+ `& U6 j0 B& m　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
　　 (command "text" fs zb wg (/ (* jd 180.0) pi) wb)
　　 )
　　 )
0 ]. a: Y4 ?. b% M/ z: w) T" a) d3 d& ^　　 )
　　 )
: N5 o7 [4 |) B8 ~3 F% I　　 )
　　 )
2 q2 ]  {9 Y" E7 N  P' Y　　 (progn
: R& C* T' Q( G　　 (princ "\n按先后次序选取文字")(princ)
) _: v6 x- y) G% s9 a　　 (setq ss (ssget) cd (sslength ss))
　　 (princ "\n按选取文字先后次序,从斜线起点至终点等分这组文字")(princ)
7 C! C5 @* I! E  b% B　　 (setq qd (getpoint "\n斜线起点: "))
　　 (setq zd (getpoint qd "\n斜线终点: "))
　　 (setq jd (angle qd zd))
　　 (setq jl (distance qd zd) jl (/ jl (- cd 1)))
　　 (setq i 0)
　　 (repeat cd
& w. @  x2 n& r! Y" S2 {. p: P$ l1 X8 l　　 (setq zd (polar qd jd (* i jl)))
: }2 m! {1 {. s+ g% u　　 (setq wg (cdr (assoc 40 (entget (ssname ss i)))))
4 U  p/ R0 C3 ?9 T- g! t' O　　 (setq wb (cdr (assoc 1 (entget (ssname ss i)))))
　　 (command "text" zd wg "0" wb)
　　 (setq i (1+ i))
# u1 N/ L- m" C　　 )
　　 )
5 R# \) D( O' L( t( X　　)
　　)
　　(DEFUN BBBB ()
- g6 O- Y4 o/ N" I  Z7 J' a' l$ E, O　　(setq b$ bj1 a$ aj1 c$ cj1)
　　 (set (read (strcat "b" (itoa j))) bj2)
　　 (set (read (strcat "a" (itoa j))) aj2)
　　 (set (read (strcat "c" (itoa j))) cj2)
　　 (set (read (strcat "b" (itoa (+ j 1)))) b$)
* Z8 q$ S4 `2 N　　 (set (read (strcat "a" (itoa (+ j 1)))) a$)
/ Z/ {! a' {1 o8 y　　 (set (read (strcat "c" (itoa (+ j 1)))) c$)
. ~! f# Z! \6 z7 m: E& N: \$ e)