| jiajia80 |
2010-04-27 17:47 |
用VB進行AutoCAD二次開發(fā)的案例
在公路地基處理中可能會遇到鋼釬加固的情況，在作圖之中需要對上千個點逐一編號，重復工作量很大。如果通過編制程序可以提高工作效率，一天的工作量可以在幾分鐘之內(nèi)解決，而且能夠避免視覺疲勞而引起的錯誤。 `gA5P %
hH|XtQ.n^
AutoDesk公司提供了面向?qū)ο蟮木幊探涌贏ctiveX Automation，它使用了OLE的Automation技術(shù)。AutoCAD被登錄為一個其它Windows的應(yīng)用程序可以操作的對象，用戶可以用VB來訪問AutoCAD的所有圖形對象和非圖形對象，進行二次開發(fā)，開發(fā)過程完全獨立于AutoCAD本身。 0lJBtk9wn
<)0LwkFtB
有關(guān)VB開發(fā)AutoCAD的技術(shù)環(huán)節(jié)，在網(wǎng)上可以找到，特別是崔航的有關(guān)文章值得同行借鑒。下面給出程序以及簡單的實現(xiàn)方法步驟。 * (XgUJ q+
MZhJ,km)
在公路地基處理中可能會遇到鋼釬加固的情況，在作圖之中需要對上千個點逐一編號，重復工作量很大。如果通過編制程序可以提高工作效率，一天的工作量可以在幾分鐘之內(nèi)解決，而且能夠避免視覺疲勞而引起的錯誤。
:jN;l
y+~Aw"J}
AutoDesk公司提供了面向?qū)ο蟮木幊探涌贏ctiveX Automation，它使用了OLE的Automation技術(shù)。AutoCAD被登錄為一個其它Windows的應(yīng)用程序可以操作的對象，用戶可以用VB來訪問AutoCAD的所有圖形對象和非圖形對象，進行二次開發(fā)，開發(fā)過程完全獨立于AutoCAD本身。 % 'L=
sB*h`vs0T
有關(guān)VB開發(fā)AutoCAD的技術(shù)環(huán)節(jié)，在網(wǎng)上可以找到，特別是崔航的有關(guān)文章值得同行借鑒。下面給出程序以及簡單的實現(xiàn)方法步驟。 'E4(!H,k
ZeDDH
程序用到的控件有:Command1點擊可連接AutoCAD，并在其中標注鋼釬編號;Command2點擊以釋放AutoCAD所占內(nèi)存; txtX 、txtY 輸入編號文字相對于鋼釬點的相對坐標;Text1、 Text2編號文字的高度和旋轉(zhuǎn)角度。現(xiàn)在給出的程序很短而且并不難，就不再作過多注釋。作圖當中先打開鋼釬(在圖中體現(xiàn)為點對象)位置的圖層，然后運行程序，遍歷所有對象并逐一對點對象編號。為節(jié)約時間還可以在程序中聲明一個"選擇集"對象，只對選擇集中的對象遍歷。下面給出的程序運行后的結(jié)果按畫點的順序，而不是按坐標順序編號，如果有特殊的需要，可以通過相應(yīng)的排序算法實現(xiàn)。 U%S NROj
~ jrU#<'G9
Private Sub Command1_Click() _tg3 %X]
Ug[F3J|Mu
Call AcadConnect 5Dh&ez`oR'
: ;gwdZ
Dim acadUtil As Object 7zOvoQ}
b "AHw?5F
Set acadUtil = AcadApp.ActiveDocument.Utility '設(shè)置Utility對象 s\K-(`j}
RAXJsF^5o
Dim stx As Double ='l6&3X
GQc%OQc\
Dim sty As Double rO2PbF3
q=i,'.nS
Dim stmString As String Yh!\:9 @(
70 D Q/b
stmString = acadUtil.GetString(0, " 按任意鍵開始........ ") ~NJL
集安市|
新建县|
察哈|
天门市|
漳平市|
榆中县|
崇明县|
孝义市|
牡丹江市|
南投县|
大港区|
延寿县|
简阳市|
珲春市|
隆化县|
永丰县|
岗巴县|
镇原县|
敖汉旗|
芮城县|
水城县|
昌江|
陆良县|
曲水县|
龙海市|
兖州市|
福建省|
广饶县|
周宁县|
阿拉尔市|
聂拉木县|
岳西县|
内黄县|
淮南市|
吴堡县|
崇明县|
鞍山市|
江陵县|
滦平县|
青田县|
乌拉特前旗|
| |