不同CAD版本間也可以引用的Library(clsACAD)
一般常用的CAD大多是 AutoCAD ，關於AutoCAD VBA的資源也滿多可以搜尋的到，因此起初開發的主力通常是AutoCADVBA。 另外還有一種常用的CAD叫做 ZWCAD (中望CAD)，本來筆者的機關還沒有改制前還可以使用，但自從被政府接收之後就不能使用了，在轉換期間我意外發現，ZWCAD專業版竟然也有支援VBA的功能，雖然安裝程序跟AutoCAD不太一樣，而且重點是引用物件只要把AutoCAD改成ZWCAD即可，還有一些要判斷物件名稱的時候可能會稍微不一樣。 一直到筆者機關改制之後，我們又換了一個新的CAD，叫做 PorgeCAD ，更讓我意外的是，他竟然也有支援VBA，看到這裡，果然VBA還是一個很有用途的工具，但天不從人願，他的物件已經不是改幾個字就能處理了，筆者在研究了一陣子，做了一個轉換的工具，將AutoCAD、ZwCAD、PorgeCAD，之間所有可以引用的項目，把他們串起來了，只需要透過一開始的選單去決定便可以呼叫裡面各式功能。 PorgeCAD跟AutoCAD最主要的差異就在於點跟點群組的物件概念不同，其他都大同小異，因此只要把點資料處理好，基本上其他就能直接沿用。 Private mo As Object Private pa As Object Public acaddoc As Object Public CADVer As String Private Sub Class_Initialize() If Sheets("總表").optAutoCAD = True Then strCAD = "AutoCAD.application" CADVer = "AUTOCAD" ElseIf Sheets("總表").optZWCAD = True Then strCAD = "ZWCAD.Application" CADVer = "ZWCAD" ElseIf Sheets("總表").optICAD = True Then strCAD = "ICAD.application" CADVer =