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

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

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

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

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

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

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

7、)，以縮小選擇的范圍。下面是三種方式的具體操作過程：一、選擇圖素調(diào)整：1)方式選擇[ayerColLType]回答S()圓弧、再消去原先的圓；三是用DNOUT形成的圓環(huán)代辦替。這里是用第二種方法實現(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選擇實體確定圖層或給出圖層名“)(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