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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
1 F. L6 }8 `$ O9 q7 H0 [6 e6 d1 IOn Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
# m* h+ T! C/ E& A$ [Err.Clear
+ N: U  a! a7 }) x6 g  nSet Excel = CreateObject("Excel.Application")
End If
3 P7 P  p; x/ k9 j) _, BOn Error GoTo 0
/ M/ Y6 W  `) \* B$ V2 D. n. s'Excel.Visible = True
% V" Q8 X) o$ c; sExcel.Workbooks.open("D:\acad_d.xls")
( \  R" [5 ?0 A' s  o5 n' I( Y1 ^Excel.Sheets("Sheet1").Select
' W/ U! ]8 I' a9 W* }Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")

P_D1_A(0)= excelSheet.cells(2,1).value
5 B6 U7 ]3 F& p. l, \6 w0 d& P+ GP_D1_A(1)= excelSheet.cells(2,2).value
, h9 B" f/ J$ UP_D1_A(2)= excelSheet.cells(2,3).value
) a+ g% H$ @$ `# ]
: Y+ o8 k7 s' }8 e4 tP_D1_B(0)= excelSheet.cells(3,1).value
P_D1_B(1)= excelSheet.cells(3,2).value
P_D1_B(2)= excelSheet.cells(3,3).value

& {" i5 [  ^) h; n6 [
( O' g$ k" Z, }. w8 I: K# |Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
# ]# b* y( ^' J是在Excel中作好就直接可用吗？