|
增加AUTOCAD在文字處理上的功能
（作者未知） 2009/7/19
一、說(shuō)明
在用AUTOCAD制圖的過(guò)程中，必然要寫(xiě)說(shuō)明性文字。當(dāng)然在制表和寫(xiě)設(shè)計(jì)說(shuō)明時(shí)，文字量就更大，AUTOCAD寫(xiě)文字并無(wú)難處，難的是怎么使寫(xiě)出的文字的尺寸、間距、對(duì)齊等方面象文字處理軟件那樣合適。若用AUTOCAD基本命令來(lái)處理，會(huì)很麻煩，并影響作圖速度。為此我編寫(xiě)了一些小程序供大家使用。這次我提供如下兩個(gè)程序：
二、程序的安裝及使用
先把ZDDQ．LSP和ZDJT．LSP拷貝到一個(gè)特定的目錄下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用戶可以將持到AUTOCAD或其它開(kāi)發(fā)軟件的系統(tǒng)菜單上，通過(guò)菜單來(lái)調(diào)動(dòng)，也可以AUTOCAD環(huán)境COMMAND后面用LOAD命令裝入，形成一個(gè)附加命令ZDDQ或ZDST。
1．將程序調(diào)用裝入系統(tǒng)菜單
先找到菜單源文件ACAD.MNU，并編輯它。在***POP1最后加下面內(nèi)容。
［字的對(duì)齊］^C^C^P(“ZDDQ”)；ZDDQ；^P。
［字的間距調(diào)整］^C^C^P(LOAD“ZDJT”)；ZDJT；^P。用鼠標(biāo)點(diǎn)取下拉菜單即可調(diào)用。
2．命令調(diào)用ZDDQ．LSP、ZDJT．LSP
在COMMAND后面輸入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，產(chǎn)生可用命令ZDDQ、ZDJT，擊入命令按提示操作。
3．兩程序在使用中基本為中文提示，易用，現(xiàn)已在我院網(wǎng)絡(luò)上全面使用。
4．兩程序適用于AUTOCADR10.0,R11,R12.0。
三、操作過(guò)程
1．多文字對(duì)齊。提示如下：(其中“﹤﹥”中為缺省的選項(xiàng))
選擇對(duì)齊方式如下：L左/R右/C中心/M中點(diǎn)﹤L﹥：
選擇對(duì)齊方向如下：1橫向?qū)R(Y座標(biāo)一致).2縱向?qū)R(X座標(biāo)一致)﹤2﹥:
點(diǎn)取對(duì)齊點(diǎn)﹤點(diǎn)取參照實(shí)體﹥：(即用鼠標(biāo)在屏上點(diǎn)取對(duì)齊的位置，缺省后，提出讓你點(diǎn)取參照目標(biāo)字，這樣后面選上的文字與對(duì)齊)
選取文字(自動(dòng)濾非文字類實(shí)體，且不用考慮次序，開(kāi)窗口選也可)。
2．多文字的間距調(diào)整，提示如下：
文字間距調(diào)整方式如下：
1.水平2.垂直3.斜向﹤1﹥：
①若選“1”或缺省值，則
*輸入各文字水平距值(或用鼠標(biāo)點(diǎn)取)
*選擇對(duì)齊方式：(C中心/L左側(cè)/R右側(cè)/H中心)﹤L﹥
1若選“L”或缺省，則：
*輸入這組文字起點(diǎn)。
*按選后次序選取文字。
2其它類推。
選“2”，則：
*輸入文字垂直間距值(或用鼠標(biāo)點(diǎn)取)：
其它同①。
選“3”，則：
*按先后次序選取文字。
*點(diǎn)取斜線起點(diǎn)(即文字排列方向線)。
*點(diǎn)取斜線終點(diǎn)。
(結(jié)果所選文字在斜線起點(diǎn)和終點(diǎn)間等分排列)。
四、源程序如下：
1．多文字的對(duì)齊：
;--------------------
;1996.03.04
;
(defunc:zddq(/intxsizeentent1o1o2o3o4aaaoldsiazenewsize
indexbbccp0p1pppent0bssa1a2a3a4a5a6)
(setqi1)
(princ"\n")(princ"選擇對(duì)齊方式如下:")(princ)
(setqa(getstring"\nL左/R右/C中心/M中點(diǎn)﹤L﹥:"))
(if(=a"")(setqa"L"))
(setqa(strcasea))
(cond((=a"L")(setqa10a211a410a510))
((=a"M")(setqa11a210a411a511))
((=a"R")(setqa12a210a411a511))
((=a"C")(setqa14a210a411a511))
)
(setqb(getint"\n1.橫向?qū)R(使Y座標(biāo)一樣)2.縱向?qū)R(使X座標(biāo)一樣)﹤2﹥:"))
(setqtxsize(getpoint"\n點(diǎn)取對(duì)齊點(diǎn)﹤點(diǎn)取參照實(shí)體﹥:"))
(pri（未完，下一頁(yè)）
|