• 
    

    
    

      99热精品在线国产_美女午夜性视频免费_国产精品国产高清国产av_av欧美777_自拍偷自拍亚洲精品老妇_亚洲熟女精品中文字幕_www日本黄色视频网_国产精品野战在线观看 ?

      利用AutoCAD VBA編寫自動標(biāo)高標(biāo)注程序

      2019-11-07 07:48:00昌志敏陳曉峰
      治淮 2019年10期
      關(guān)鍵詞:子程序標(biāo)高代碼

      易 寧 昌志敏 陳曉峰

      AutoCAD 作為工程設(shè)計人員必不可少的設(shè)計工具之一,在工程制圖中發(fā)揮了重要的作用。除具有強大的制圖功能外,它還提供了供二次開發(fā)者使用的AutoLisp、VBA 等更為靈活方便的二次開發(fā)工具。本文編寫了一個在AutoCAD 的VBA 開發(fā)環(huán)境中運行的自動標(biāo)高標(biāo)注程序,通過合理設(shè)置文字高度、精度等必要的參數(shù),根據(jù)圖中建筑物需要標(biāo)注的不同位置自動生成正確的標(biāo)高數(shù)值,可有效提高工程的制圖速度、減少工程圖紙出錯的機率。

      一、實現(xiàn)方法

      該程序由一個主程序和兩個子程序的方式來實現(xiàn)自動標(biāo)注功能。使用子程序一是可以使程序結(jié)構(gòu)合理,各模塊功能清晰,易于維護。

      1.EleTxtLen 子過程

      根據(jù)用戶選擇要標(biāo)注的位置放置要標(biāo)注的標(biāo)高文字,同時計算出文字在圖形中的長度傳給CreateElevation子程序,以便能夠準(zhǔn)確的畫出標(biāo)高水平線的長度,不至于讓標(biāo)高水平線過長或過短影響圖紙的美觀和效果。實現(xiàn)代碼如下:

      上段子過程的代碼需要4 個參數(shù),分別為標(biāo)高符號插入點、高程值、文字高度和文字相對于插入點所在的方向。

      根據(jù)傳遞過來的4 個參數(shù),先在坐標(biāo)(0,0)處生成標(biāo)高文字,測量出長度然后刪除文字。再根據(jù)用戶要標(biāo)注的方向(Case1~Case4)在適當(dāng)位置創(chuàng)建文字。測量出來的文字長度同時傳遞給畫標(biāo)高符號的子程序使用。

      2.CreateElevation 子程序

      跟據(jù)計算出的文字長度畫出適當(dāng)?shù)臉?biāo)高符號。根據(jù)用戶第二點的選擇位置確定文字在哪個位置,從而翻轉(zhuǎn)或旋轉(zhuǎn)標(biāo)高符號。實現(xiàn)代碼如下:

      3.自動標(biāo)高的主程序

      主程序定義程序運行的各個變量,提示用戶輸入1m 長度在圖形中的數(shù)值、文字高度、標(biāo)高插入點以及第一個參考標(biāo)高的數(shù)值。根據(jù)用戶給定的參數(shù)調(diào)用子程序完成標(biāo)高的自動標(biāo)注。該程序可連續(xù)選點標(biāo)注,直到用戶按ESE 或鼠標(biāo)右鍵退出。實現(xiàn)代碼如下:

      二、運行方式

      在AutoCAD 中選擇“工具(T)”—“宏(A)”—“Visual Basic 編輯器(B)”(也可以快速按Alt+F11 兩次),在出現(xiàn)在窗口中雙擊左側(cè)的“Thisdrawing”,將以上的代碼寫入其中,然后可以關(guān)閉該窗口。接著選擇“工具”—“宏”—“宏(M)”(或快速按Alt+F8 兩次),在彈出的窗口中選擇運行就可以執(zhí)行該程序。

      三、結(jié)語

      AutoCAD VBA 作為其內(nèi)置的面向?qū)ο蟮拈_發(fā)工具,和Visual Basic 一樣都具有強大的開發(fā)功能。其區(qū)別就是VBA 相當(dāng)于VB 的簡化版,不能作為一個獨立程序來運行,必須在AutoCAD 環(huán)境下使用,但其開發(fā)功能并不弱,VBA 程序作為AutoCAD 的一個過程來運行,程序的執(zhí)行速度非常快,且對話框結(jié)構(gòu)設(shè)計易于對程序的代碼維護和糾錯,節(jié)省編程的時間。會編程的初學(xué)者也可以在很短的時間內(nèi)掌握并發(fā)揮其強大的功能■

      猜你喜歡
      子程序標(biāo)高代碼
      書記講黨史 “亮”出新標(biāo)高
      辦公樓樓面裝飾標(biāo)高控制流程及注意事項
      建材與裝飾(2020年6期)2020-03-18 04:42:42
      創(chuàng)世代碼
      動漫星空(2018年11期)2018-10-26 02:24:02
      創(chuàng)世代碼
      動漫星空(2018年2期)2018-10-26 02:11:00
      創(chuàng)世代碼
      動漫星空(2018年9期)2018-10-26 01:16:48
      創(chuàng)世代碼
      動漫星空(2018年5期)2018-10-26 01:15:02
      安慶銅礦主井提升機系統(tǒng)反轉(zhuǎn)/過卷故障分析與處理
      淺談子程序在數(shù)控車編程中的應(yīng)用
      子程序在數(shù)控車加工槽中的應(yīng)用探索
      西門子840D系統(tǒng)JOG模式下PLC調(diào)用并執(zhí)行NC程序
      临颍县| 南江县| 正定县| 张家口市| 鄯善县| 建水县| 云霄县| 富川| 交口县| 香港| 兴宁市| 吴桥县| 双桥区| 高邑县| 蛟河市| 襄垣县| 万宁市| 垦利县| 枣庄市| 黄大仙区| 浑源县| 竹溪县| 工布江达县| 西和县| 新安县| 康马县| 迁安市| 新巴尔虎右旗| 班戈县| 桂林市| 镇宁| 辉南县| 磐安县| 资溪县| 湖南省| 五大连池市| 霍州市| 延寿县| 阳新县| 贵德县| 民勤县|