《增加AUTOCAD在文字处理上的功能（DOC7）(1)》由会员分享，可在线阅读，更多相关《增加AUTOCAD在文字处理上的功能（DOC7）(1)（13页珍藏版）》请在金锄头文库上搜索。
1、增加AUUTOCCAD在在文字处处理上的的功能一、说明明在用用AUTTOCAAD制图图的过程程中，必必然要写写说明性性文字。当当然在制制表和写写设计说说明时，文文字量就就更大，AAUTOOCADD写文字字并无难难处，难难的是怎怎么使写写出的文文字的尺尺寸、间间距、对对齐等方方面象文文字处理理软件那那样合适适。若用用AUTTOCAAD基本本命令来来处理，会会很麻烦烦，并影影响作图图速度。为为此我编编写了一一些小程程序供大大家使用用。这次次我提供供如下两两个程序序：二、程序序的安装装及使用用先把把ZDDDQLLSP和和ZDJJTLLSP 拷贝到到一个特特定的目目录下(如:CC:RR12SUPPPO
2、RRT或CC:TTCHSYSS等)。用用户可以以将持到到AUTTOCAAD或其其它开发发软件的的系统菜菜单上，通通过菜单单来调动动，也可可以AUUTOCCAD环环境COOMMAAND后后面用LLOADD命令装装入，形形成一个个附加命命令ZDDDQ或或ZDSST。1将将程序调调用装入入系统菜菜单先找找到菜单单源文件件ACAAD.MMNU，并并编辑它它。在* * * PPOP11最后加加下面内内容。字的的对齐CCPP(“ZZDDQQ”)；ZDDDQ；P。字的的间距调调整CCCP(LOAAD“ZZDJTT”)；ZDJJT；P。用用鼠标点点取下拉拉菜单即即可调用用。 2命命令调 用ZDDDQLSPP、
3、ZDDJTLSPP在CCOMMMANDD后面输输入(LLOADD“ZDDDQ”)或(LLOADD“ZDDJT”)，产生生可用命命令ZDDDQ、ZZD JJT，击击入命令令按提示示操作。3两两程序在在使用中中基本为为中文提提示，易易用，现现已在我我院网络络上全面面使用。 4两两程序适适用于AAUTOOCADD R110.00, RR11,R122.0。 三、操作作过程1多多文字对对齐。提提示如下下：(其其中“”中中为缺省省的选项项)选择对齐齐方式如如下：LL左/RR右/CC中心/M中点点： 选择对齐齐方向如如下：11横向对对齐(YY座标一一致). 2纵纵向对齐齐(X座座标一致致) : 点取对齐齐
4、点：(即即用鼠标标在屏上上点取对对齐的位位置，缺缺省后，提提出让你你点取参参照目标标字，这这样后面面选上的的文字与与对齐) 选取文字字(自动动滤非文文字类实实体，且且不用考考虑次序序，开窗窗口选也也可)。 2多多文字的的间距调调整，提提示如下下： 文文字间距距调整方方式如下下：1. 水平平 2. 垂直直 3. 斜向向 ： 若选“11”或缺缺省值，则则* 输入入各文字字水平距距值(或或用鼠标标点取)* 选选择对齐齐方式：(C中中心/LL左侧/R右侧侧/H中中心) 11 若选选“L”或或缺省，则则：* 输入入这组文文字起点点。* 按选后后次序选选取文字字。22 其它它类推。 选“22”，则则：*
5、输入入文字垂垂直间距距值(或或用鼠标标点取)：其它同。 选“33”，则则：* 按先先后次序序选取文文字。* 点取取斜线起起点(即即文字排排列方向向线)。* 点取斜线终点。(结结果所选选文字在在斜线起起点和终终点间等等分排列列)。 四、源程程序如下下：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 a
6、a4 aa5 aa6) (settq ii 1) (priinc nn)(priinc 选择择对齐方方式如下下:)(prrincc) (settq aa (ggetsstriing nn L左左/R右右/C中中心/MM中点 : ) (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
7、 a55 111)(= aa CC)(settq aa1 44 a22 100 a44 111 a55 111) ) (settq bb (ggetiint nn1.横横向对齐齐(使YY座标一一样) 2. 纵向对对齐(使使X座标标一样) : ) (settq ttxsiize (geetpoointt n点取取对齐点点: ) (priinc nn)(priinc 选取取文字(自动滤滤去非文文字实体体):)(pprinnc) (whiile ( i 1100000) (settq sss (ssgget) (settq nn (sssleengtth sss) (settq iindeex 00
8、) (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) (set
9、tq 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 (cc
10、dr (asssocc a44 ennt0) (iff (= txxsizze nnil) (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 o
11、o2 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 eent1
12、1 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
13、 ovver a eentiity)(pprinnc) (priinc nn间距调调整方式式选择如如下:)(pprinnc) (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选择择对齐方方式(CC中心/L左侧侧/R右右侧/MM中点)
