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

kjdsak

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

一、说明
　　在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序：
. O, A1 J2 C4 ~8 }- H; x二、程序的安装及使用
　　先把ZDDQ．LSP和ZDJT．LSP 拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过菜单来调动，也可以AUTOCAD环境COMMAND后面用LOAD命令装入，形成一个附加命令ZDDQ或ZDST。
　1．将程序调用装入系统菜单
, N/ q' ]6 p( a! F5 l% @# g8 _' \　　先找到菜单源文件ACAD.MNU，并编辑它。在* * * POP1最后加下面内容。
9 U8 Y! F5 @* _9 i$ z1 O' b　［字的对齐］^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，击入命令按提示操作。
　3．两程序在使用中基本为中文提示，易用，现已在我院网络上全面使用。
0 `# u6 ^: n$ l8 g/ J! w　4．两程序适用于AUTOCAD R10.0, R11,R12.0。
三、操作过程
　1．多文字对齐。提示如下：(其中“<>”中为缺省的选项)
3 C5 s5 N$ O) j( b0 S选择对齐方式如下：L左/R右/C中心/M中点<L>：
选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) <2>:
7 v5 f$ D" X- [# M6 T点取对齐点<点取参照实体>：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐)
选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。
　2．多文字的间距调整，提示如下：
* I, ?: `! W" _  G" g　 　文字间距调整方式如下：
　　1. 水平 2. 垂直 3. 斜向 <1>：
5 S! H% R% e& s% y2 _　　① 若选“1”或缺省值，则
* 输入各文字水平距值(或用鼠标点取)
* 选择对齐方式：(C中心/L左侧/R右侧/H中心) <L>
　　　1 若选“L”或缺省，则：
* 输入这组文字起点。
3 b. G3 Q( \2 b( N3 D2 S* 按选后次序选取文字。
　　　2 其它类推。
　　  选“2”，则：
, O8 H- C4 O, d* 输入文字垂直间距值(或用鼠标点取)：
6 D0 \- V5 ]2 D其它同①。
　　  选“3”，则：
* 按先后次序选取文字。
2 m. y& N# g" o  U+ c1 C* 点取斜线起点(即文字排列方向线)。
* 点取斜线终点。
* k" h4 W+ `/ x' Z  b4 ]　　(结果所选文字在斜线起点和终点间等分排列)。
四、源程序如下：
　　1．多文字的对齐：
5 m; U  Y- u3 H2 [, a3 i　　 ;--------------------
　　 ; 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)
, H, b0 v: E% m1 K' o: S　　 (setq i 1)
" R6 ~$ M& {  Y　　 (princ "\n")(princ "选择对齐方式如下:")(princ)
　　 (setq a (getstring "\n L左/R右/C中心/M中点 < L >: "))
　　 (if (= a "")(setq a "L"))
+ U" I5 e9 a. }. l) L7 ]　　 (setq a (strcase a))
5 j6 c) K  V3 ]% ?2 V3 j* j　　 (cond ((= a "L")(setq a1 0 a2 11 a4 10 a5 10))
+ }! ]- m8 N+ ^0 B6 F* o　　((= a "M")(setq a1 1 a2 10 a4 11 a5 11))
  o$ ]) h( y% F& y　　((= a "R")(setq a1 2 a2 10 a4 11 a5 11))
  m3 S  z- |1 M6 O# L4 u  M　　((= a "C")(setq a1 4 a2 10 a4 11 a5 11))
　　 )
　　 (setq b (getint "\n1.横向对齐(使Y座标一样) 2. 纵向对齐(使X座标一样) <2>: "))
( }# g% S8 n+ z2 k3 }3 ~* r　　 (setq txsize (getpoint "\n点取对齐点<点取参照实体>: "))
8 s1 [; x( k. A3 r% a　　 (princ "\n")(princ "选取文字(自动滤去非文字实体):")(princ)
　　 (while (< i 10000)
7 I2 \0 c. p6 {! ^( B7 \　　 (setq ss (ssget))
5 G% S7 V4 O& |+ z% s! c' H　　 (setq n (sslength ss))
7 P$ I9 _1 V; S) Y　　 (setq index 0)
　　 (repeat n
　　 (setq ent0 (entget (ssname ss index)))
- D. P3 Q$ P1 _, q# {　　 (if (= (cdr (assoc 72 ent0)) 0)
　　(progn
　　 (setq a4 10)
　　 (if (/ = a1 0)(setq a5 11)(setq a5 10))
　　)
　　 )
, a$ w/ h# S6 i6 `6 R7 @　　 (setq index (+ 1 index))
: c2 f4 A: I# j, C　　 (setq type (assoc 0 ent0))
　　 (if (= "TEXT" (cdr type))
　　(progn
　　 (setq p0 (assoc 72 ent0))
　　 (setq p (cons (car p0) a1))
' e& c- A& h1 j+ a　　 (setq pp (subst p p0 ent0))
/ H# o: z! m6 l/ N2 N3 u　　 (setq old (assoc 11 pp))
　　 (if (= a "L")
8 f) |5 _. H- j9 W, E　　 (setq a3 (list 0 0))
- h/ v" r. u- v9 E. H　　 (setq a3 (cdr (assoc 11 pp)))
　　 )
8 I$ h% a3 V- H* j" I2 \　　 (setq new (cons (car old) a3))
　　 (setq ent (subst new old pp))
$ [+ C: s" z& O* o6 i7 O9 l　　 (setq o1 (cadr (cdr (assoc a4 ent0))))
" U- c5 p* a- x  Q8 O' S　　 (setq o2 (car (cdr (assoc a4 ent0))))
3 o* E( p; u& R* L: X+ i　　 (if (= txsize nil)
% r! P! B" h: A　　 (p rogn
　　(setq a6 (entget (ssname ss 0)))
　　(setq a6 (cdr (assoc a4 a6)))
　　(setq o3 (car a6) o4 (cadr a6))
& h+ {  v5 f, p* I$ B: f# x( j　　 )
　　 (setq o3 (car txsize) o4 (cadr txsize))
　　 )
. ?0 M/ c, G; L6 o& a　　 (setq oldsize (assoc a5 ent0))
　　 (if (and (/= b nil)(/= b 2))
, Y) t; ^- V' r* U& [　　 (setq aa o2 bb o4 cc (car oldize))
7 A! P' t% M* c% y　　 (setq aa o3 bb o1 cc (cdr oldsize))
　　 )
　　 (setq newsize (cons (car oldsize) (list aa bb)))
　　 (setq ent1 (subst newsize oldsize ent))
( a; O& Y" w0 T9 r$ {. w　　 (entmod ent1)
　　 )
　　 )
　　 )
! ~1 P. Y6 b( L, }( \3 N. w　　 )
　　 (prin1)
- Q; v/ b5 A0 {+ f5 m' `" P* d　　)
　　;--------------------
　　2．多文字的间距调整
" g3 |( M) _" y/ z/ ?  @　　 edit date: 1995.6.1
1 y2 B9 U( f$ K" A　　(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)
　　 (setvar "cmdecho" 0)
  ]; K# L/ G' x+ }0 s% a, p　　; (princ "\n1. order: from top to button. from left to right")
$ P5 m2 }! N6 ]　　; (princ "\n2. there is over a entity")(princ)
　　 (princ "\n间距调整方式选择如下:")(princ)
　　 (setq sj nil cj nil)
7 r6 f4 w/ l2 A# \6 u0 W　　 (setq s1 (getint "\n 1.水平 2.垂直 3.斜向 <1>: "))
, |7 @9 r2 T. B+ @) i　　(if (/ = s1 3)
6 K3 b9 I& E7 [: Z' W. V' [' n　　 (progn
- A. ^! h6 x0 {  M　　 (if (= s1 nil)(setq s1 1))
　　 (if (= s1 1) (setq sj (getdist "\n输入文字水平间距值(或用鼠标点取):"))
1 ?  L* C0 ~5 t8 h& f/ f  L　　(setq cj (getdist "\n输入文字垂直间距值(或用鼠标点取):")))
　　 (setq fs (strcase (getstring "\n选择对齐方式(C中心/L左侧/R右侧/M中点) < L >: ")))
　　 (if (= fs "M")(progn
　　(command "osnap" "nea")
$ _) ]( E, G, g9 Q0 A5 e3 Z# O3 c( C　　(setq ss1 (getpoint "\n文字起点: "))
, q7 a8 y4 {. d- x　　(setq ss2 (getcorner ss1 "\n文字终点: "))
　　(setq s2 (polar ss1 (angle ss1 ss2) (/ (distance ss1 ss2) 2)))
/ j4 C. m. _1 h  |9 ?　　(command "osnap" "none")
　　 )
　　 (setq s2 (getpoint "\n这组文字起点text location point:"))
　　 )
　　 (setq x (car s2) y (cadr s2))
　　 (princ "\n按先后次序选取文字")(princ)
　　 (setq ss (ssget))
# I  B, j- z" O. @　　 (setq n (sslength ss) index 0 i 0 j 0)
: `4 X1 g3 z6 i/ Z$ g5 O5 d　　 (rep eat n
　　(setq ent (entget (ssname ss index)))
& l( `4 U5 s4 W! c1 f　　(if (= "TEXT" (cdr (assoc 0 ent)))
　　(pr ogn
　　(setq i (+ i 1))
$ k) T5 I4 ]; @: t! j　　( if (= s1 1)
; K/ ~- E2 E) f+ ?2 L6 ?2 T　　(setq zb (car (CDR (assoc 10 (entget (ssname ss index))))))
. Y. |/ T: {8 f( v& X　　(setq zb (CADR (cdr (assoc 10 (entget (ssname ss index))))))
　　)
5 H7 W9 y1 a2 j" E/ ], l$ C　　(set q wb (cdr (assoc 1 (entget (ssname ss index))))
+ {3 r& L+ @/ d' v　　wg (cdr (assoc 40 (entget (ssname ss index))))
+ N9 L3 r! H5 }. b, e　　zk (cdr (assoc 41 (entget (ssname ss index))))
　　jd (cdr (assoc 50 (entget (ssname ss index))))
9 o; {2 s! X& p) c9 q  Q# S4 e  ~" |4 W　　zx (cdr (assoc 7 (entget (ssname ss index))))
　　 )
　　 (set (read (strcat "b" (itoa i))) zb);coordinate
　　 (set (read (strcat "a" (itoa i))) wb);word
* [4 E( N' h  U! w& q' n- [! h% d　　 (set (read (strcat "c" (itoa i))) wg);hight
: K7 @* S% \. c, ~　　 (set (read (strcat "d" (itoa i))) zx);word style
  G; Q% c# h3 v% ~  H　　 (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)) " "))
8 {+ C/ q! h3 t6 K1 u　　 (setq ent1 (subst new (assoc 1 ent) ent))
　　 (entmod ent1)
　　 )
　　 )
1 X) E' \1 X/ x- v　　 (setq index (+ index 1))
: h# L* v% y/ ]/ C! s9 C　　 )
　　 (setq n i)
2 l9 a7 b, _' k! d! h6 x+ y　　 (while (>= n 2)
　　 (setq j 1)
　　 (wh ile (<= j (- n 1))
　　(setq bj1 (eval (read (strcat "b" (itoa j)))))
9 B/ _0 X5 k! a　　(setq bj2 (eval (read (strcat "b" (itoa (+ j 1))))))
　　(setq aj1 (eval (read (strcat "a" (itoa j)))))
/ Q1 A  n. \! Z. y: ^　　(setq aj2 (eval (read (strcat "a" (itoa (+ j 1))))))
　　(setq cj1 (eval (read (strcat "c" (itoa j)))))
3 y% t  {% F5 E  _　　(setq cj2 (eval (read (strcat "c" (itoa (+ j 1))))))
* @& c- M% M/ a4 ^# y( w　　(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)))))
　　(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));-----------------
# A, ]+ g# |: n, g4 S2 x2 S5 k4 r　　(if (AND (= S1 1)(> bj1 bj2))(BBBB))
& ~4 F3 a3 g! B# V* L( j! z: H- W: t　　(if (AND (= S1 2)(< bj1 bj2))(BBBB))
- D, K1 f) R& T) U2 j　　(setq j (+ j 1))
　　 )
　　 (setq n (- n 1))
　　 )
- E8 y/ C% |1 E# |" z2 T8 K　　 (setq n 0)
　　 (re peat i
　　(setq n (+ n 1))
　　(setq wg (eval (read (strcat "c" (itoa n)))))
8 I5 D: N  q( u) l7 z' \1 G　　(setq wb (eval (read (strcat "a" (itoa n)))))
  R+ H& F, Q% M* F　　(setq zx (eval (read (strcat "d" (itoa n)))))
* H! h* h) B/ ^, B: p" X　　(setq zk (eval (read (strcat "e" (itoa n)))))
　　(setq jd (eval (read (strcat "f" (itoa n)))))
　　(setq zk2 (cdr (assoc 41 (tblsearch "style" zx)))
6 D  P3 y7 X5 {  `# K+ `* b　　 zt (cdr (assoc 3 (tblsearch "style" zx)))
/ }: ]- O. V) h8 N$ u, J  \3 Y1 {　　 zt2 (cdr (assoc 4 (tblsearch "style" zx)))
" p1 `" n, k' n4 W　　 )
　　 (if (/= zk zk2)
　　 (if (= (strcase zx) "STANDARD")
0 d. S, @1 y, k; l　　 (command "style" zx "" "0" zk "0" "n" "n" "n")
　　 (command "style" zx "" "0" zk "0" "n" "n")
- L* E' a1 J. {( M, y　　 )
　　 )
) \; k- ]& Q9 Z4 I7 e" L2 U　　 (if (= s1 1)(progn
　　(setq xs (+ x (* sj (- n 1))))
　　(setq zb (list xs y))
　　( if (= fs "")
( X% b0 P: R* x+ \! m　　( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
5 E! ^" R# C* m3 d, N3 y9 \　　(command "text" zb (/ (* jd 180.0) pi) wb)
　　(command "text" zb wg (/ (* jd 180.0) pi) wb)
9 g8 y$ e4 [( X& `  g4 w6 a) H　　)
　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
4 o. X1 M% P6 U2 [　　 [KG*2](command "text" fs zb wg (/ (* jd 180.0) pi) wb)
4 o5 O, o; R& s　　 )
　　 )
2 b0 ?. y% r4 R" ]7 {! T　　 )
　　 (p rogn
　　(setq ys (- y (* cj (- n 1))))
7 p+ D  q5 E* b, L7 k　　(setq zb (list x ys))
　　( 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)
　　)
　　(if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001)
1 E# h5 e1 z9 b9 G% t# H　　 (command "text" fs zb (/ (* jd 180.0) pi) wb)
　　 (command "text" fs zb wg (/ (* jd 180.0) pi) wb)
6 H: r! T1 m( a7 `　　 )
& ]/ R) ]$ q5 T7 v5 v　　 )
　　 )
( t7 @& O' i' s( e1 ?3 K$ S　　 )
　　 )
　　 )
- F7 q4 t+ M. w* X* k' i　　 (progn
　　 (princ "\n按先后次序选取文字")(princ)
　　 (setq ss (ssget) cd (sslength ss))
　　 (princ "\n按选取文字先后次序,从斜线起点至终点等分这组文字")(princ)
　　 (setq qd (getpoint "\n斜线起点: "))
' k  Y( a+ G0 x3 X" P$ G0 @　　 (setq zd (getpoint qd "\n斜线终点: "))
　　 (setq jd (angle qd zd))
　　 (setq jl (distance qd zd) jl (/ jl (- cd 1)))
" ^( O4 V. I! o; j/ J　　 (setq i 0)
' k3 ?8 x& {. Z( v- K7 B1 q　　 (repeat cd
　　 (setq zd (polar qd jd (* i jl)))
, u7 c: L7 h" q- G' `( u, C　　 (setq wg (cdr (assoc 40 (entget (ssname ss i)))))
2 O* R) @- D+ b9 ^, V　　 (setq wb (cdr (assoc 1 (entget (ssname ss i)))))
　　 (command "text" zd wg "0" wb)
　　 (setq i (1+ i))
2 t3 z% I, \4 y0 g, G2 b2 i% h0 }　　 )
: {1 K" _* H; R/ N+ j; x' ]　　 )
　　)
　　)
　　(DEFUN BBBB ()
) f* `! g" a0 b) f　　(setq b$ bj1 a$ aj1 c$ cj1)
　　 (set (read (strcat "b" (itoa j))) bj2)
2 ?% m- D7 V! y$ _% V　　 (set (read (strcat "a" (itoa j))) aj2)
　　 (set (read (strcat "c" (itoa j))) cj2)
　　 (set (read (strcat "b" (itoa (+ j 1)))) b$)
　　 (set (read (strcat "a" (itoa (+ j 1)))) a$)
% h0 C8 u! o6 M　　 (set (read (strcat "c" (itoa (+ j 1)))) c$)
: J  N9 Q: G" l1 Y0 ?% m)