增加autocad在文字處理上的功能

1、增加增加AUTOCAD在文字處理上的功能在文字處理上的功能一、說明在用AUTOCAD制圖的過程中，必然要寫說明性文字。當(dāng)然在制表和寫設(shè)計說明時，文字量就更大，AUTOCAD寫文字并無難處，難的是怎么使寫出的文字的尺寸、間距、對齊等方面象文字處理軟件那樣合適。若用AUTOCAD基本命令來處理，會很麻煩，并影響作圖速度。為此我編寫了一些小程序供大家使用。這次我提供如下兩個程序：二、程序的安裝及使用先把ZDDQLSP和ZDJTLSP拷貝到一個

2、特定的目錄下(如:C:R12SUPPT或C:TCHSYS等)。用戶可以將持到AUTOCAD或其它開發(fā)軟件的系統(tǒng)菜單上，通過菜單來調(diào)動，也可以AUTOCAD環(huán)境COMM后面用LOAD命令裝入，形成一個附加命令ZDDQ或ZDST。1將程序調(diào)用裝入系統(tǒng)菜單先找到菜單源文件ACAD.MNU，并編輯它。在POP1最后加下面內(nèi)容。［字的對齊］^C^C^P(“ZDDQ”)；ZDDQ；^P。［字的間距調(diào)整］^C^C^P(LOAD“ZDJT”)；ZDJT

3、；^P。用鼠標(biāo)點取下拉菜單即可調(diào)用。2命令調(diào)用ZDDQLSP、ZDJTLSP在COMM后面輸入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，產(chǎn)生可用命令ZDDQ、ZDJT，擊入命令按提示操作。3兩程序在使用中基本為中文提示，易用，現(xiàn)已在我院網(wǎng)絡(luò)上全面使用。4兩程序適用于AUTOCADR10.0R11R12.0。三、操作過程1多文字對齊。提示如下：(其中“”中為缺省的選項)選擇對齊方式如下：L左R右C中心M中點：選擇對齊方向如下：1

4、橫向?qū)R(Y座標(biāo)一致).2縱向?qū)R(X座標(biāo)一致):點取對齊點：(即用鼠標(biāo)在屏上點取對齊的位置，缺省后，提出讓你點取參照目標(biāo)字，這樣后面選上的文字與對齊)選取文字(自動濾非文字類實體，且不用考慮次序，開窗口選也可)。2多文字的間距調(diào)整，提示如下：多文字的間距調(diào)整，提示如下：文字間距調(diào)整方式如下：1.水平2.垂直3.斜向：①若選“1”或缺省值，則輸入各文字水平距值(或用鼠標(biāo)點取)選擇對齊方式：(C中心L左側(cè)R右側(cè)H中心)1若選“L”或缺省，

5、則：輸入這組文字起點。按選后次序選取文字。2其它類推。選“2”，則：輸入文字垂直間距值(或用鼠標(biāo)點取)：其它同①。選“3”，則：按先后次序選取文字。(setqa3(list00))(setqa3(cdr(assoc11pp))))(setqnew(cons(carold)a3))(setqent(substnewoldpp))(setqo1(cadr(cdr(assoca4ent0))))(setqo2(car(cdr(assoca4e

6、nt0))))(if(=txsizenil)(progn(setqa6(entget(ssnamess0)))(setqa6(cdr(assoca4a6)))(setqo3(cara6)o4(cadra6)))(setqo3(cartxsize)o4(cadrtxsize)))(setqoldsize(assoca5ent0))(if((=bnil)(=b2))(setqaao2bbo4cc(caroldize))(setqaao3bb

7、o1cc(cdroldsize)))(setqnewsize(cons(caroldsize)(listaabb)))(setqent1(substnewsizeoldsizeent))(entmodent1)))))(prin1))2多文字的間距調(diào)整editdate:1995.6.1(defunc:zdjt(newoldentent1indexssss1s2cjsjnxxsyyswbwgwcwg0wg1zbtypefsijbbbbj1

8、bj2aj1aj2cj1cj2$a$c$bss1ss2dj1dj2zxej1ej2fj1fj2zkjd)(setvar“cmdecho“0)(princ“n1.der:fromtoptobutton.fromlefttoright“)(princ“n2.thereisoveraentity“)(princ)(princ“n間距調(diào)整方式選擇如下:“)(princ)(setqsjnilcjnil)(setqs1(getint“n1.水平2.