調(diào)整線條寬度的實(shí)用工具

1、調(diào)整線條寬度的實(shí)用工具調(diào)整線條寬度的實(shí)用工具在使用AutoCAD繪圖軟件繪制各類圖形的工作中。最后一個階段是將圖形文件最終在打印機(jī)、繪圖機(jī)上輸出為圖紙。其中圖形線條的粗細(xì)劃分是一項(xiàng)必須認(rèn)真對待的工作。由于一般圖紙上的圖形不能像在彩色顯示器上可用顏色及深淺區(qū)分圖素、結(jié)構(gòu)，而只能以改變線條的粗細(xì)的方法來達(dá)到這個目的。因此，劃分好圖形中線條的粗細(xì)既有利于區(qū)分圖形要素，又有利于準(zhǔn)確表達(dá)設(shè)計(jì)意圖及方便識圖。尤其是工程圖紙，應(yīng)按照國家制圖標(biāo)準(zhǔn)，將圖

2、中的各圖素劃分出明顯的粗細(xì)來。這樣圖紙方能滿足標(biāo)準(zhǔn)化的要求。實(shí)際上線條的粗細(xì)從粗到細(xì)有多種變化，在計(jì)算機(jī)圖形文件中則體現(xiàn)在線條的線寬值上。常見的譬如，圖形中各實(shí)體外輪廊線、圖形符號及表格外框線等均為粗線，剖面線、尺寸(界)線、符號引線、中心線、點(diǎn)劃線等應(yīng)為細(xì)線，而虛線又介于粗細(xì)線之間。且根據(jù)需要粗、中、細(xì)線還可以在一定的范圍內(nèi)變化線寬。通常設(shè)計(jì)人員或繪圖人員在計(jì)算機(jī)上使用AutoCAD繪圖軟件時，會經(jīng)常使用到像COPY、OFFSET、M

3、IRR等組圖命令，為提高繪制的效率，組圖時并不太考慮線條的粗細(xì)及線型問題，而是將這個問題放在最后出圖紙考貝時才一同進(jìn)行調(diào)整解決。由于這時圖中圖素多，如靠交互操作命令來調(diào)整很繁雜、費(fèi)時，其它的方法又難以圓滿地解決問題。這樣就有必要在AUTOCAD交互操作功能外提供一種方便的工具，使其能夠方便、快捷地完成這項(xiàng)工作，以達(dá)到快速、準(zhǔn)確、高效、全面的目的。保證屏幕上的圖形視圖清晰、層次分明。通常來說，圖形中線寬的調(diào)整有兩種辦法：一種方法是在繪制時

4、，分層放置線寬不同的線條，或者按粗細(xì)不同設(shè)置成不同的顏色，再配合使用筆式或高檔噴墨繪圖儀的線寬設(shè)置參數(shù)調(diào)整來得到所需要的硬拷貝圖紙。該種方法的缺點(diǎn)是輸出設(shè)備條件要求高，對出圖設(shè)備的參數(shù)設(shè)定要熟練。然而人們在屏幕上并不能看到輸出后圖紙的真實(shí)效果。況且設(shè)計(jì)人員在繪制圖形時，所考慮的分層、分色管理并不能只以線條的寬度為依據(jù)。當(dāng)出現(xiàn)同一圖層及顏色的圖素中因?yàn)榫€型、結(jié)構(gòu)等原因還要區(qū)分線寬時，就得逐一分別進(jìn)行調(diào)定。這樣就會使得調(diào)定輸出圖紙線寬任務(wù)變

5、得十分繁雜。第二種方法是，在任何圖形輸出設(shè)備(繪圖機(jī)、打印機(jī)、照相、攝影制片設(shè)備)條件下，先在屏幕上將要輸出的圖形顯式地調(diào)整好每一圖素線條的粗細(xì)，然后再輸出。這樣屏上所看到的，就是你所得到的一個真實(shí)反映。且不必要對輸出設(shè)備的參數(shù)進(jìn)行與線寬變化的相關(guān)調(diào)定，對輸出設(shè)備無任何特殊要求。這在目前因高檔繪圖儀價高而大量使用普通打印機(jī)出圖的狀況下具有實(shí)用意義。本文介紹一個為此編寫的小段AutoLISP程序，使操作人員能以十分方便、快捷的手段來完成圖

6、形中圖素線條粗細(xì)的調(diào)定工作。該程序所能處理的線條種類包括直線、多義線、圓(弧)、橢圓(弧)、樣條曲線，線型可以處理實(shí)線、虛線、中心線、點(diǎn)劃線、邊界線等。操作人員可以在交互狀態(tài)下，隨時調(diào)入該程序運(yùn)行，來完成當(dāng)前圖形中線條粗細(xì)的調(diào)整。為了方便操作，提高圖素選擇效率，程序設(shè)計(jì)了幾種調(diào)定線寬過程的實(shí)施方式。但任何方式下都必須首先確定所需調(diào)定的范圍(包括：分圖層、分顏色、分線型)。如果某圖層上圖素的線寬不需要調(diào)整或已調(diào)整好，則可以先行關(guān)閉(OFF

7、)，以縮小選擇的范圍。下面是三種方式的具體操作過程：一、選擇圖素調(diào)整：1)方式選擇[ayerColLType]回答S()圓弧、再消去原先的圓；三是用DNOUT形成的圓環(huán)代辦替。這里是用第二種方法實(shí)現(xiàn)。如果到AUTOCADR13版本繪制的圖形，對橢圓的處理也必須采取類似的措施。源程序chwd.lsp(defunc:width()(setqbb1)(setqw0)(initget1“LayerColLType“)(prompt“n調(diào)整方式選

8、擇“)(setqt(getkwd“[LayerColLType“))](prompt“n選擇調(diào)整范圍“)(setqobj(ssget))(if(=t“Layer“)(progn(initget1“EntityName“)(prompt“n選擇實(shí)體確定圖層或給出圖層名“)(setq1b(getkwd“[EntityName]:“))(if(=1b“Entity“)(progn(prompt“選擇所需變化圖層圖素：“)(setq1e(ssg

9、et)(setq1p(ssnamele0))(setq11(cdr(car(cdr(cdr(entget1p))))))))(if(=1b“Name“)(progn(setq111(getstring“給出所需變化的圖層名：“))(setq11(strcase111))))(setqobj1(ssadd))(setqj0)(while(j(sslengthobj))(setqpl(ssnameobjj))(setqj(j1))(setq