在公路地基處理中可能會(huì)遇到鋼釬加固的情況,在作圖之中需要對(duì)上千個(gè)點(diǎn)逐一編號(hào),重復(fù)工作量很大。如果通過(guò)編制
程序可以提高工作效率,一天的工作量可以在幾分鐘之內(nèi)解決,而且能夠避免視覺(jué)疲勞而引起的錯(cuò)誤。
0u,OW C`)n\?:Sth 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)用程序可以操作的對(duì)象,用戶可以用VB來(lái)訪問(wèn)AutoCAD的所有圖形對(duì)象和非圖形對(duì)象,進(jìn)行
二次開(kāi)發(fā),開(kāi)發(fā)過(guò)程完全獨(dú)立于AutoCAD本身。
SL(
WE=H sg=mkkD!g 有關(guān)VB開(kāi)發(fā)AutoCAD的技術(shù)環(huán)節(jié),在網(wǎng)上可以找到,特別是崔航的有關(guān)文章值得同行借鑒。下面給出程序以及簡(jiǎn)單的實(shí)現(xiàn)方法步驟。
naQ0TN, ]yR0"<W^xO 在公路地基處理中可能會(huì)遇到鋼釬加固的情況,在作圖之中需要對(duì)上千個(gè)點(diǎn)逐一編號(hào),重復(fù)工作量很大。如果通過(guò)編制程序可以提高工作效率,一天的工作量可以在幾分鐘之內(nèi)解決,而且能夠避免視覺(jué)疲勞而引起的錯(cuò)誤。
J}c`\4gD d{~5tv- H AutoDesk公司提供了面向?qū)ο蟮木幊探涌贏ctiveX Automation,它使用了OLE的Automation技術(shù)。AutoCAD被登錄為一個(gè)其它Windows的應(yīng)用程序可以操作的對(duì)象,用戶可以用VB來(lái)訪問(wèn)AutoCAD的所有圖形對(duì)象和非圖形對(duì)象,進(jìn)行二次開(kāi)發(fā),開(kāi)發(fā)過(guò)程完全獨(dú)立于AutoCAD本身。
$
N7J:Q h[Hn*g 有關(guān)VB開(kāi)發(fā)AutoCAD的技術(shù)環(huán)節(jié),在網(wǎng)上可以找到,特別是崔航的有關(guān)文章值得同行借鑒。下面給出程序以及簡(jiǎn)單的實(shí)現(xiàn)方法步驟。
AdCi*="m %cPz>PTW@ 程序用到的控件有:Command1點(diǎn)擊可連接AutoCAD,并在其中標(biāo)注鋼釬編號(hào);Command2點(diǎn)擊以釋放AutoCAD所占內(nèi)存; txtX 、txtY 輸入編號(hào)文字相對(duì)于鋼釬點(diǎn)的相對(duì)坐標(biāo);Text1、 Text2編號(hào)文字的高度和旋轉(zhuǎn)角度。現(xiàn)在給出的程序很短而且并不難,就不再作過(guò)多注釋。作圖當(dāng)中先打開(kāi)鋼釬(在圖中體現(xiàn)為點(diǎn)對(duì)象)位置的圖層,然后運(yùn)行程序,遍歷所有對(duì)象并逐一對(duì)點(diǎn)對(duì)象編號(hào)。為節(jié)約時(shí)間還可以在程序中聲明一個(gè)"選擇集"對(duì)象,只對(duì)選擇集中的對(duì)象遍歷。下面給出的程序運(yùn)行后的結(jié)果按畫(huà)點(diǎn)的順序,而不是按坐標(biāo)順序編號(hào),如果有特殊的需要,可以通過(guò)相應(yīng)的排序算法實(shí)現(xiàn)。
OJ2O?Te8 Glt%%TJb Private Sub Command1_Click()
E`^?2dv+/ =K#12TRf Call AcadConnect
辽阳市|
衡阳市|
贡觉县|
荥阳市|
自贡市|
太湖县|
兴宁市|
武强县|
昌都县|
麦盖提县|
肇州县|
临泉县|
永平县|
德安县|
九台市|
攀枝花市|
康马县|
二连浩特市|
关岭|
获嘉县|
怀安县|
平昌县|
宁津县|
娄底市|
双牌县|
德化县|
宁化县|
邹平县|
罗定市|
徐水县|
南雄市|
余庆县|
东安县|
和林格尔县|
专栏|
聂荣县|
抚顺市|
永安市|
侯马市|
舞钢市|
延吉市|