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

kjdsak

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

一、说明
　　在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序：
二、程序的安装及使用
　　先把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。
　［字的间距调整］^C^C^P(LOAD“ZDJT”)；ZDJT；^P。用鼠标点取下拉菜单即可调用。
　2．命令调 用ZDDQ．LSP、ZDJT．LSP
% j& L1 f6 u# h# a: O1 v7 v( Z　　在COMMAND后面输入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，产生可用命令ZDDQ、ZD JT，击入命令按提示操作。
　3．两程序在使用中基本为中文提示，易用，现已在我院网络上全面使用。
- y: K7 j' S) ^8 ^) I　4．两程序适用于AUTOCAD R10.0, R11,R12.0。
5 b5 j1 n$ U5 V" U2 B- o三、操作过程
" P8 `* ?4 {. n$ n4 Q8 K　1．多文字对齐。提示如下：(其中“<>”中为缺省的选项)
2 \& s7 N8 \' V; Q; w. u1 y选择对齐方式如下：L左/R右/C中心/M中点<L>：
选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) <2>:
2 ]7 T& E, [" s7 X( S6 T. B' A+ R6 O点取对齐点<点取参照实体>：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐)
选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。
  N$ A/ ]) [7 W! ^　2．多文字的间距调整，提示如下：
  O/ d8 j- h8 H1 Q! k% e; ^5 _' x7 U　 　文字间距调整方式如下：
6 h8 U: F, Z1 ]- {2 H; O7 |2 j2 B　　1. 水平 2. 垂直 3. 斜向 <1>：
　　① 若选“1”或缺省值，则
* 输入各文字水平距值(或用鼠标点取)
* 选择对齐方式：(C中心/L左侧/R右侧/H中心) <L>
  W4 [# E1 u2 R7 \& w　　　1 若选“L”或缺省，则：
  j' B$ n% e% R  ~4 ?* 输入这组文字起点。
* 按选后次序选取文字。
　　　2 其它类推。
　　  选“2”，则：
* 输入文字垂直间距值(或用鼠标点取)：
! E$ `6 L: k8 u; p其它同①。
　　  选“3”，则：
* 按先后次序选取文字。
! c" d. @7 E+ l6 u  `. p* 点取斜线起点(即文字排列方向线)。
* 点取斜线终点。
　　(结果所选文字在斜线起点和终点间等分排列)。
6 l1 T  [! S# v! a/ q四、源程序如下：
　　1．多文字的对齐：
% c% r! H7 w5 K' M2 k* C　　 ;--------------------
' K' j* _4 Q# _+ m, Z) w) N% B　　 ; 1996.03.04
　　 ;
　　 (defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize
　　 index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6)
& o2 H1 q+ F0 q: v% j/ k　　 (setq i 1)
- L" ?, ^6 C& t　　 (princ "\n")(princ "选择对齐方式如下:")(princ)
　　 (setq a (getstring "\n L左/R右/C中心/M中点 < L >: "))
( i* Y- D) r: ?　　 (if (= a "")(setq a "L"))
6 @7 h$ O! Y. ^+ E　　 (setq a (strcase a))
# I% L# d2 P% ~* N4 O" C0 ~　　 (cond ((= a "L")(setq a1 0 a2 11 a4 10 a5 10))
　　((= a "M")(setq a1 1 a2 10 a4 11 a5 11))
- [0 ^+ e6 {- O& Z& U　　((= a "R")(setq a1 2 a2 10 a4 11 a5 11))
　　((= a "C")(setq a1 4 a2 10 a4 11 a5 11))
5 p$ {3 f. `: q0 ?3 z- ~* V) A2 U　　 )
　　 (setq b (getint "\n1.横向对齐(使Y座标一样) 2. 纵向对齐(使X座标一样) <2>: "))
　　 (setq txsize (getpoint "\n点取对齐点<点取参照实体>: "))
( C, O5 v: Q! G　　 (princ "\n")(princ "选取文字(自动滤去非文字实体):")(princ)
　　 (while (< i 10000)
- I2 X& l3 \" [7 ~/ P/ x5 l　　 (setq ss (ssget))
" r0 Y8 e/ ^7 {, `5 z6 N　　 (setq n (sslength ss))
# i  U, a5 T' H4 i　　 (setq index 0)
% ]2 n& N* v, r% U, G8 U6 \　　 (repeat n
　　 (setq ent0 (entget (ssname ss index)))
　　 (if (= (cdr (assoc 72 ent0)) 0)
: h: H- _  R! g- }- e  a9 V　　(progn
　　 (setq a4 10)
　　 (if (/ = a1 0)(setq a5 11)(setq a5 10))
  f2 |, P4 G/ R1 L　　)
　　 )
　　 (setq index (+ 1 index))
: P8 B7 r) `* z　　 (setq type (assoc 0 ent0))
　　 (if (= "TEXT" (cdr type))
1 `: `) P: ^+ i: t' v" W　　(progn
* O& I. s0 N4 L- _  z+ T( n　　 (setq p0 (assoc 72 ent0))
　　 (setq p (cons (car p0) a1))
9 i( _  h. ]0 x1 W% R* r; ]　　 (setq pp (subst p p0 ent0))
/ _- l7 {  E. d7 M　　 (setq old (assoc 11 pp))
9 ]' m+ N2 T) `  R. v& X7 E+ W　　 (if (= a "L")
　　 (setq a3 (list 0 0))
! p$ k. k% {3 I2 A1 G　　 (setq a3 (cdr (assoc 11 pp)))
　　 )
　　 (setq new (cons (car old) a3))
　　 (setq ent (subst new old pp))
% C% U  @( w# |( D/ y8 f# V, n* U　　 (setq o1 (cadr (cdr (assoc a4 ent0))))
: e7 w7 |* u( D1 s, G, T　　 (setq o2 (car (cdr (assoc a4 ent0))))
　　 (if (= txsize nil)
0 }. M* X$ k, T0 s! k+ H　　 (p rogn
　　(setq a6 (entget (ssname ss 0)))
  k) q6 E5 d4 K　　(setq a6 (cdr (assoc a4 a6)))
1 C5 ^. }, |4 S　　(setq o3 (car a6) o4 (cadr a6))
　　 )
& ]2 M" n* f8 Q/ a4 Z' ]0 x　　 (setq o3 (car txsize) o4 (cadr txsize))
　　 )
　　 (setq oldsize (assoc a5 ent0))
　　 (if (and (/= b nil)(/= b 2))
5 M6 K3 }' P4 b5 Y　　 (setq aa o2 bb o4 cc (car oldize))
　　 (setq aa o3 bb o1 cc (cdr oldsize))
　　 )
+ U+ `* s0 D" z% P& l# g$ T; B* }　　 (setq newsize (cons (car oldsize) (list aa bb)))
　　 (setq ent1 (subst newsize oldsize ent))
4 W9 k2 o8 Z; D% |/ I　　 (entmod ent1)
　　 )
　　 )
. g+ ]) `( w. s) I0 ?, Q　　 )
　　 )
' j( P. }8 C7 @' ?, ]8 [, }　　 (prin1)
5 D& X, b6 h5 N, D% _　　)
　　;--------------------
- a3 r+ C0 M; k3 ^7 f# k0 ^　　2．多文字的间距调整
: o; [! G% F0 g2 v3 r$ I$ G　　 edit date: 1995.6.1
' Q# u# |7 l0 A3 Y　　(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)
' Q$ d6 A# R, I8 {+ Z& ?　　 (setvar "cmdecho" 0)
　　; (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)
: b3 t, v& R4 m5 z* w' b　　 (setq s1 (getint "\n 1.水平 2.垂直 3.斜向 <1>: "))
" J% r  [2 ]  a( v　　(if (/ = s1 3)
　　 (progn
　　 (if (= s1 nil)(setq s1 1))
　　 (if (= s1 1) (setq sj (getdist "\n输入文字水平间距值(或用鼠标点取):"))
　　(setq cj (getdist "\n输入文字垂直间距值(或用鼠标点取):")))
　　 (setq fs (strcase (getstring "\n选择对齐方式(C中心/L左侧/R右侧/M中点) < L >: ")))
$ ^- j+ h7 J$ |- N. m6 r; u　　 (if (= fs "M")(progn
　　(command "osnap" "nea")
　　(setq ss1 (getpoint "\n文字起点: "))
" ~* v4 Y! f1 U　　(setq ss2 (getcorner ss1 "\n文字终点: "))
　　(setq s2 (polar ss1 (angle ss1 ss2) (/ (distance ss1 ss2) 2)))
! J* N1 o: \1 ]1 `$ P　　(command "osnap" "none")
　　 )
0 Q8 p1 q4 G4 q　　 (setq s2 (getpoint "\n这组文字起点text location point:"))
, T- |" P* n4 f3 E* m$ o　　 )
　　 (setq x (car s2) y (cadr s2))
- @* E- f% a. X* B　　 (princ "\n按先后次序选取文字")(princ)
  t% g/ ~* ~4 N& {　　 (setq ss (ssget))
　　 (setq n (sslength ss) index 0 i 0 j 0)
% @% X/ F* K3 s+ F% w9 y5 w　　 (rep eat n
　　(setq ent (entget (ssname ss index)))
2 d/ M5 F7 _# {6 j6 n　　(if (= "TEXT" (cdr (assoc 0 ent)))
/ U3 e, d- k" _: o　　(pr ogn
8 N( @4 N  `8 c, X7 `  W/ _* _　　(setq i (+ i 1))
　　( if (= s1 1)
$ J' W# s( n0 F, F7 C" O9 h3 N　　(setq zb (car (CDR (assoc 10 (entget (ssname ss index))))))
8 h+ ^# ^. O9 Z2 `4 W* Z6 I* z9 X　　(setq zb (CADR (cdr (assoc 10 (entget (ssname ss index))))))
0 A5 ^' u; x; \  v" }　　)
. g+ X2 k& ]2 L* X9 H8 Q, F' n( W　　(set q wb (cdr (assoc 1 (entget (ssname ss index))))
　　wg (cdr (assoc 40 (entget (ssname ss index))))
5 v+ k1 J2 M' N　　zk (cdr (assoc 41 (entget (ssname ss index))))
2 A8 `( G5 g, {/ g　　jd (cdr (assoc 50 (entget (ssname ss index))))
　　zx (cdr (assoc 7 (entget (ssname ss index))))
　　 )
　　 (set (read (strcat "b" (itoa i))) zb);coordinate
　　 (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
　　 (set (read (strcat "e" (itoa i))) zk);word wide
3 y6 g2 M6 Q; b, a0 @　　 (set (read (strcat "f" (itoa i))) jd);word engle
　　 (setq new (cons (car (assoc 1 ent)) " "))
　　 (setq ent1 (subst new (assoc 1 ent) ent))
% d" v8 t' R3 f* W+ G　　 (entmod ent1)
　　 )
　　 )
# u: ?7 ]; X$ p1 K3 J　　 (setq index (+ index 1))
7 K% k+ R4 |: h% g6 E) W　　 )
　　 (setq n i)
9 ]* l' F+ k$ F& `! l　　 (while (>= n 2)
+ q5 S: M! v7 W+ K7 s$ ]$ A: m- N　　 (setq j 1)
　　 (wh ile (<= j (- n 1))
　　(setq bj1 (eval (read (strcat "b" (itoa j)))))
　　(setq bj2 (eval (read (strcat "b" (itoa (+ j 1))))))
* r9 H4 X- U* g　　(setq aj1 (eval (read (strcat "a" (itoa j)))))
( s' j' i; V( F　　(setq aj2 (eval (read (strcat "a" (itoa (+ j 1))))))
( l4 N( \4 m: s) m　　(setq cj1 (eval (read (strcat "c" (itoa j)))))
　　(setq cj2 (eval (read (strcat "c" (itoa (+ j 1))))))
7 M2 W$ ^6 ^7 s1 v1 D! u6 H9 k" o: c　　(setq dj1 (eval (read (strcat "d" (itoa j)))))
　　(setq dj2 (eval (read (strcat "d" (itoa (+ j 1))))))
( `. f1 G. ~, T7 M  R　　(setq ej1 (eval (read (strcat "e" (itoa j)))))
/ O. r! X) {$ J% k& t& z: k: i　　(setq ej2 (eval (read (strcat "e" (itoa (+ j 1))))))
* s/ X7 D/ Q3 ]9 A# R; Y4 N$ f　　(setq fj1 (eval (read (strcat "f" (itoa j)))))
　　(setq fj2 (eval (read (strcat "f" (itoa (+ j 1))))))
* U) m6 F, u# W* Q$ h3 I4 z: ]# Z6 w　　; (if (/= s1 1)(setq bbb bj1 bj1 bj2 bj2 bbb));-----------------
　　(if (AND (= S1 1)(> bj1 bj2))(BBBB))
5 T  |  P2 X' {! a6 {, w5 z/ x- \　　(if (AND (= S1 2)(< bj1 bj2))(BBBB))
　　(setq j (+ j 1))
& }" W; G( i% p0 ]　　 )
　　 (setq n (- n 1))
+ C" F; l+ U# @' E　　 )
+ x+ h6 Q/ e  A8 H　　 (setq n 0)
　　 (re peat i
. F' l4 g- p& A. V( [　　(setq n (+ n 1))
- z8 G' J& g# R9 G( }/ t3 b　　(setq wg (eval (read (strcat "c" (itoa n)))))
　　(setq wb (eval (read (strcat "a" (itoa n)))))
5 j: ]  h0 D! m5 R) I6 F) ~; A$ {8 c　　(setq zx (eval (read (strcat "d" (itoa n)))))
　　(setq zk (eval (read (strcat "e" (itoa n)))))
2 M; t; V; v; C　　(setq jd (eval (read (strcat "f" (itoa n)))))
　　(setq zk2 (cdr (assoc 41 (tblsearch "style" zx)))
  G# G4 D2 X/ F& N　　 zt (cdr (assoc 3 (tblsearch "style" zx)))
　　 zt2 (cdr (assoc 4 (tblsearch "style" zx)))
# _. E1 t4 S% T) t' m( @" z. |7 k　　 )
　　 (if (/= zk zk2)
. a/ t& n: P% A% K1 @　　 (if (= (strcase zx) "STANDARD")
5 c- y, |$ [0 {1 J! X　　 (command "style" zx "" "0" zk "0" "n" "n" "n")
6 \( X, b/ L7 c9 r9 r　　 (command "style" zx "" "0" zk "0" "n" "n")
  V( x4 z8 \% \: x+ c　　 )
　　 )
6 x# J0 Y( Z$ _; A$ F　　 (if (= s1 1)(progn
　　(setq xs (+ x (* sj (- n 1))))
. t+ y2 \# W& w: ^4 L　　(setq zb (list xs y))
　　( if (= fs "")
　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
5 |( M! d0 w/ `. @! O, v/ A　　(command "text" zb (/ (* jd 180.0) pi) wb)
　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
1 W. X: p+ n4 U: T) i　　)
0 i; r+ ?( r# e1 J. Z$ {2 o( ?　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
5 g& I# e( n' r1 ]* x　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
　　 [KG*2](command "text" fs zb wg (/ (* jd 180.0) pi) wb)
　　 )
6 }( E5 l+ z" {  ?! d5 g' m( R+ `# I' `　　 )
* F- _9 f- U4 E* f; i: q5 A　　 )
4 F+ c0 i6 [9 _2 j/ x# q　　 (p rogn
　　(setq ys (- y (* cj (- n 1))))
/ |# I8 ^3 _+ Z6 v) s5 W1 w6 u! g* v- [　　(setq zb (list x ys))
2 d, b, q. p, p6 `! f4 u" I* R5 I　　( if (= fs "")
" ^1 |" Q5 J9 h, z; C3 |9 E- a( y3 m2 V　　( 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)
; j* Q  _  ?/ f) b　　)
　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
4 w$ F/ i/ U* [# [" e: C　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
　　 (command "text" fs zb wg (/ (* jd 180.0) pi) wb)
; X8 v! X& R4 `" S6 v　　 )
　　 )
1 V4 @! t. r, u8 B+ |/ a　　 )
　　 )
& q5 x3 F, r$ A- r! H7 L　　 )
4 r" x0 y, c% }3 N  l　　 )
/ \- k: f9 A8 Z# f. D　　 (progn
　　 (princ "\n按先后次序选取文字")(princ)
5 v# N5 ?. N- f8 O6 b8 v2 Q　　 (setq ss (ssget) cd (sslength ss))
: v5 p  i( M- o$ t. D+ K( C0 D　　 (princ "\n按选取文字先后次序,从斜线起点至终点等分这组文字")(princ)
7 w( b! H" w  T　　 (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)
; ?# n$ C: c2 H+ k. Q$ y　　 (repeat cd
　　 (setq zd (polar qd jd (* i jl)))
0 w" H+ k8 n1 W7 z4 L3 v4 c　　 (setq wg (cdr (assoc 40 (entget (ssname ss i)))))
7 m* ^# b! g5 f  n# Y& m0 g' a8 s& H　　 (setq wb (cdr (assoc 1 (entget (ssname ss i)))))
　　 (command "text" zd wg "0" wb)
　　 (setq i (1+ i))
　　 )
; @0 _# F- X# F6 I8 @) R　　 )
　　)
" t# a5 s6 m: @! j　　)
2 [( q- E! x# I+ Z% {  e9 ^, D　　(DEFUN BBBB ()
$ Z3 T2 ~) E" C' z5 o* W　　(setq b$ bj1 a$ aj1 c$ cj1)
1 i9 X% \0 `2 ^: @6 Z9 V4 Q　　 (set (read (strcat "b" (itoa j))) bj2)
　　 (set (read (strcat "a" (itoa j))) aj2)
　　 (set (read (strcat "c" (itoa j))) cj2)
  o; K- p! L( J' t9 b4 T　　 (set (read (strcat "b" (itoa (+ j 1)))) b$)
　　 (set (read (strcat "a" (itoa (+ j 1)))) a$)
" B+ ~! D, \# C! e- k$ F- x! I9 g　　 (set (read (strcat "c" (itoa (+ j 1)))) c$)
3 l- b+ B) Q/ T& _" @* b)