在公路地基處理中可能會(huì)遇到鋼釬加固的情況，在作圖之中需要對上千個(gè)點(diǎn)逐一編號，重復(fù)工作量很大。如果通過編制
程序可以提高工作效率，一天的工作量可以在幾分鐘之內(nèi)解決，而且能夠避免視覺疲勞而引起的錯(cuò)誤。
.^,fw=T|1 ZT"?W $ AutoDesk公司提供了面向?qū)ο蟮?span onclick="sendmsg('pw_ajax.php','action=relatetag&tagname=編程',this.id)" style="cursor:pointer;border-bottom: 1px solid #FA891B;" id="rlt_5">編程接口ActiveX Automation，它使用了OLE的Automation技術(shù)。
AutoCAD被登錄為一個(gè)其它
Windows的應(yīng)用程序可以操作的對象，用戶可以用VB來訪問AutoCAD的所有圖形對象和非圖形對象，進(jìn)行
二次開發(fā)，開發(fā)過程完全獨(dú)立于AutoCAD本身。
\%m R* J+ p !hewtb5 有關(guān)VB開發(fā)AutoCAD的技術(shù)環(huán)節(jié)，在網(wǎng)上可以找到，特別是崔航的有關(guān)文章值得同行借鑒。下面給出程序以及簡單的實(shí)現(xiàn)方法步驟。
QEQ8gfN9> e&<#8; 2X 在公路地基處理中可能會(huì)遇到鋼釬加固的情況，在作圖之中需要對上千個(gè)點(diǎn)逐一編號，重復(fù)工作量很大。如果通過編制程序可以提高工作效率，一天的工作量可以在幾分鐘之內(nèi)解決，而且能夠避免視覺疲勞而引起的錯(cuò)誤。
nUs) ky#<\K1}' AutoDesk公司提供了面向?qū)ο蟮木幊探涌贏ctiveX Automation，它使用了OLE的Automation技術(shù)。AutoCAD被登錄為一個(gè)其它Windows的應(yīng)用程序可以操作的對象，用戶可以用VB來訪問AutoCAD的所有圖形對象和非圖形對象，進(jìn)行二次開發(fā)，開發(fā)過程完全獨(dú)立于AutoCAD本身。
nD MNaMYb OAOG&6xu8 有關(guān)VB開發(fā)AutoCAD的技術(shù)環(huán)節(jié)，在網(wǎng)上可以找到，特別是崔航的有關(guān)文章值得同行借鑒。下面給出程序以及簡單的實(shí)現(xiàn)方法步驟。
FGy7KVR xZGR<+t 程序用到的控件有:Command1點(diǎn)擊可連接AutoCAD，并在其中標(biāo)注鋼釬編號;Command2點(diǎn)擊以釋放AutoCAD所占內(nèi)存; txtX 、txtY 輸入編號文字相對于鋼釬點(diǎn)的相對坐標(biāo);Text1、 Text2編號文字的高度和旋轉(zhuǎn)角度。現(xiàn)在給出的程序很短而且并不難，就不再作過多注釋。作圖當(dāng)中先打開鋼釬(在圖中體現(xiàn)為點(diǎn)對象)位置的圖層，然后運(yùn)行程序，遍歷所有對象并逐一對點(diǎn)對象編號。為節(jié)約時(shí)間還可以在程序中聲明一個(gè)"選擇集"對象，只對選擇集中的對象遍歷。下面給出的程序運(yùn)行后的結(jié)果按畫點(diǎn)的順序，而不是按坐標(biāo)順序編號，如果有特殊的需要，可以通過相應(yīng)的排序算法實(shí)現(xiàn)。
yE{l
Xp; |>j=#2 Private Sub Command1_Click()
>^+Q`"SN u vc0"g1h Call AcadConnect
AY [7yPP lY?TF Dim acadUtil As Object
;yBq'_e3 cK@O)Ko} Set acadUtil = AcadApp.ActiveDocument.Utility '設(shè)置Utility對象
8ENAif TcauCL Dim stx As Double
I"Ju3o?u $
