在公路地基處理中可能會遇到鋼釬加固的情況,在作圖之中需要對上千個點逐一編號,重復工作量很大。如果通過編制
程序可以提高工作效率,一天的工作量可以在幾分鐘之內解決,而且能夠避免視覺疲勞而引起的錯誤。
"2tKh!?Q XKOPW/ AutoDesk公司提供了面向對象的
編程接口ActiveX Automation,它使用了OLE的Automation技術。
AutoCAD被登錄為一個其它
Windows的應用程序可以操作的對象,用戶可以用VB來訪問AutoCAD的所有圖形對象和非圖形對象,進行
二次開發(fā),開發(fā)過程完全獨立于AutoCAD本身。
$EdL^Q2KAy Y!ypG- 有關VB開發(fā)AutoCAD的技術環(huán)節(jié),在網(wǎng)上可以找到,特別是崔航的有關文章值得同行借鑒。下面給出程序以及簡單的實現(xiàn)方法步驟。
}:s.m8LC5n s|[qq7 在公路地基處理中可能會遇到鋼釬加固的情況,在作圖之中需要對上千個點逐一編號,重復工作量很大。如果通過編制程序可以提高工作效率,一天的工作量可以在幾分鐘之內解決,而且能夠避免視覺疲勞而引起的錯誤。
1bDXv,nD k O.iJcZg AutoDesk公司提供了面向對象的編程接口ActiveX Automation,它使用了OLE的Automation技術。AutoCAD被登錄為一個其它Windows的應用程序可以操作的對象,用戶可以用VB來訪問AutoCAD的所有圖形對象和非圖形對象,進行二次開發(fā),開發(fā)過程完全獨立于AutoCAD本身。
VHLNJnA n-GoG(s..b 有關VB開發(fā)AutoCAD的技術環(huán)節(jié),在網(wǎng)上可以找到,特別是崔航的有關文章值得同行借鑒。下面給出程序以及簡單的實現(xiàn)方法步驟。
I2)2'j,B oe=1[9T" 程序用到的控件有:Command1點擊可連接AutoCAD,并在其中標注鋼釬編號;Command2點擊以釋放AutoCAD所占內存; txtX 、txtY 輸入編號文字相對于鋼釬點的相對坐標;Text1、 Text2編號文字的高度和旋轉角度,F(xiàn)在給出的程序很短而且并不難,就不再作過多注釋。作圖當中先打開鋼釬(在圖中體現(xiàn)為點對象)位置的圖層,然后運行程序,遍歷所有對象并逐一對點對象編號。為節(jié)約時間還可以在程序中聲明一個"選擇集"對象,只對選擇集中的對象遍歷。下面給出的程序運行后的結果按畫點的順序,而不是按坐標順序編號,如果有特殊的需要,可以通過相應的排序算法實現(xiàn)。
puh-\Q/P I,Jb_)H&t Private Sub Command1_Click()
EAC