用EXCEL表辅助ACAD进行参数化设计

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
: u7 v8 ]  F& d3 `. VIf Err <> 0 Then
1 M  ]& `7 q% c& p, |$ T* }Err.Clear
, v1 V/ m$ B- }$ VSet Excel = CreateObject("Excel.Application")
End If
4 P* @) @& _$ G- _) e1 TOn Error GoTo 0
'Excel.Visible = True
Excel.Workbooks.open("D:\acad_d.xls")
Excel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
' c* x9 ^! f1 Z! [8 h, i
P_D1_A(0)= excelSheet.cells(2,1).value
+ b) }) `8 v: n6 |3 ~P_D1_A(1)= excelSheet.cells(2,2).value
8 M8 T' E7 E5 \  ?: ]: {  F' p" g9 pP_D1_A(2)= excelSheet.cells(2,3).value

P_D1_B(0)= excelSheet.cells(3,1).value
- I& y+ J" `6 JP_D1_B(1)= excelSheet.cells(3,2).value
0 o- y* U/ `- h! I# qP_D1_B(2)= excelSheet.cells(3,3).value
8 X1 W% s/ v" _8 h6 O
% Z- P9 E& O; G3 i* V* V( P
: o# r& y) H+ T$ gCall drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
: o$ L' ~- }7 q" P# v是在Excel中作好就直接可用吗？