Evaluation Warning: The document was created with Spire.Doc for .NET.增加AUUTOCCAD在文字字处理上上的功能能一、说明明在用用AUTTOCAAD制图的的过程中中，必然然要写说说明性文文字。当当然在制制表和写写设计说说明时，文文字量就就更大，AUTTOCAAD写文字字并无难难处，难难的是怎怎么使写写出的文文字的尺尺寸、间间距、对对齐等方方面象文文字处理理软件那那样合适适。若用用AUTTOCAAD基本命命令来处处理，会会很麻烦烦，并影影响作图图速度。为为此我编编写了一一些小程程序供大大家使用用。这次次我提供供如下两两个程序序：二、程序序的安装装及使用用先把把ZDDDQLSP和ZDJJTLSPP 拷贝到到一个特特定的目目录下(如:C:R112SSUPPPORTT或C:TCHHSYYS等)。用户户可以将将持到AUTTOCAAD或其它它开发软软件的系系统菜单单上，通通过菜单单来调动动，也可可以AUTTOCAAD环境COMMMANND后面用LOAAD命令装装入，形形成一个个附加命命令ZDDDQ或ZDSST。1将将程序调调用装入入系统菜菜单先找找到菜单单源文件件ACAAD.MMNU，并编编辑它。在* * * POP1最后加下面内容。字的的对齐CCPP(“ZDDDQ”)；ZDDDQ；P。字的的间距调调整CCPP(LOOAD“ZDJJT”)；ZDJJT；P。用鼠鼠标点取取下拉菜菜单即可可调用。 2命命令调 用ZDDDQLSP、ZDJJTLSPP在CCOMMMANDD后面输输入(LOOAD“ZDDDQ”)或(LOOAD“ZDJJT”)，产生生可用命命令ZDDDQ、ZD JT，击入入命令按按提示操操作。3两两程序在在使用中中基本为为中文提提示，易易用，现现已在我我院网络络上全面面使用。 4两两程序适适用于AUTTOCAAD RR10.0, R111,R112.00。 三、操作作过程1多多文字对对齐。提提示如下下：(其中“”中为缺缺省的选选项)选择对齐齐方式如如下：L左/R右/C中心/M中点： 选择对齐齐方向如如下：1横向对对齐(Y座标一一致). 2纵向对对齐(X座标一一致) : 点取对齐齐点：(即用鼠鼠标在屏屏上点取取对齐的的位置，缺缺省后，提提出让你你点取参参照目标标字，这这样后面面选上的的文字与与对齐) 选取文字字(自动滤滤非文字字类实体体，且不不用考虑虑次序，开开窗口选选也可)。 2多多文字的的间距调调整，提提示如下下： 文文字间距距调整方方式如下下：1. 水平 2. 垂直 3. 斜向 ： 若选“1”或缺省省值，则则* 输入入各文字字水平距距值(或用鼠鼠标点取取)* 选择对对齐方式式：(C中心/L左侧/R右侧/H中心) 11 若选“L”或缺省省，则：* 输入入这组文文字起点点。* 按选后后次序选选取文字字。22 其它类类推。 选“2”，则：* 输入入文字垂垂直间距距值(或用鼠鼠标点取取)：其它同。 选“3”，则：* 按先先后次序序选取文文字。* 点取斜斜线起点点(即文字字排列方方向线)。* 点取斜斜线终点点。(结结果所选选文字在在斜线起起点和终终点间等等分排列列)。 四、源程程序如下下：1多文字字的对齐齐： ;- ; 19996.03.04 ; (deffun c:zzddqq ( / ii n txssizee ennt eent11 o11 o22 o33 o44 a aa olddsiaaze newwsizze iindeex bbb ccc pp0 pp1 pp ppp ennt0 b sss aa1 aa2 aa3 aa4 aa5 aa6) (settq ii 1) (priinc nn)(priinc 选择对对齐方式式如下:)(prrincc) (settq aa (ggetsstriing nn L左/R右/C中心/M中点 : ) (if (= a )(settq aa LL) (settq aa (sstrccasee a) (connd (= a L)(seetq a1 0 aa2 111 aa4 110 aa5 110)(= aa MM)(settq aa1 11 a22 100 a44 111 a55 111)(= aa RR)(settq aa1 22 a22 100 a44 111 a55 111)(= aa CC)(settq aa1 44 a22 100 a44 111 a55 111) ) (settq bb (ggetiint nn1.横向对对齐(使Y座标一一样) 22. 纵向对对齐(使X座标一一样) : ) (settq ttxsiize (geetpoointt n点取对对齐点: ) (priinc nn)(priinc 选取文文字(自动滤滤去非文文字实体体):)(pprinnc) (whiile ( i 1100000) (settq sss (ssgget) (settq nn (sssleengtth sss) (settq iindeex 00) (reppeatt n (settq eent00 (eentgget (sssnamme sss iindeex) (if (= (cddr (asssoc 72 entt0) 0)(pproggn (settq aa4 110) (if (/ = aa1 00)(ssetqq a55 111)(ssetqq a55 100) ) (settq iindeex (+ 11 inndexx) (settq ttypee (aassooc 00 ennt0) (if (= TEEXT (ccdr typpe)(pproggn (settq pp0 (asssoc 72 entt0) (settq pp (cconss (ccar p0) a11) (settq ppp (subbst p pp0 eent00) (settq oold (asssocc 111 ppp) (if (= a L) (settq aa3 (lisst 00 0) (settq aa3 (cdrr (aassooc 111 ppp) ) (settq nnew (coons (caar oold) a33) (settq eent (suubstt neew oold pp) (settq oo1 (caddr (cdrr (aassooc aa4 eent00) (settq oo2 (carr (ccdr (asssocc a44 ennt0) (if (= txssizee niil) (p rrognn(ssetqq a66 (eentgget (sssnamme sss 00)(ssetqq a66 (ccdr (asssocc a44 a66)(ssetqq o33 (ccar a6) o44 (ccadrr a66) ) (settq oo3 (carr txxsizze) o4 (caadr txssizee) ) (settq ooldssizee (aassooc aa5 eent00) (if (annd (/= b nnil)(/= b 2) (settq aaa oo2 bbb oo4 ccc (carr olldizze) (settq aaa oo3 bbb oo1 ccc (cdrr olldsiize) ) (settq nnewssizee (cconss (ccar olddsizze) (liist aa bb) (settq eent11 (ssubsst nnewssizee olldsiize entt) (enttmodd ennt1) ) ) ) ) (priin1);-2多文字字的间距距调整 eeditt daate: 19995.6.11 (ddefuun cc:zdd jtt ( / nnew oldd ennt eent11 inndexx s ss s1 s2 cj sj n xx xss y ys wb wg wc wg00 wgg1 zzb ttypee fss i j bbbb bj11 bjj2 aaj1 aj22 cjj1 ccj2 $a $c $b ss11 sss2 ddj1 dj22 zxx ejj1 eej2 fj11 fjj2 zzk jjd) (settvarr ccmdeechoo 00); (prrincc n1. orrderr: ffromm toop tto bbuttton. frrom lefft tto rrighht); (prrincc n2. thheree iss ovver a eentiity)(pprinnc) (priinc nn间距调调整方式式选择如如下:)(prrincc) (settq ssj nnil cj nill) (settq ss1 (gettintt n 11.水平 2.垂直 3.斜向 : )(iif (/ = s11 3) (proogn (if (= s1 nill)(ssetqq s11 1) (if (= s1 1) (seetq sj (geetdiist nn输入文文字水平平间距值值(或用鼠鼠标点取取):) (ssetqq cjj (ggetddistt n输入文文字垂直直间距值值(或用鼠鼠标点取取):) (settq ffs (strrcasse (gettstrringg n选择对对齐方式式(C中心/L左侧/R右侧/M中点) : ) (if