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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
On Error Resume Next
3 b1 U9 m# C8 XSet Excel = GetObject(, "Excel.Application")
4 A1 i% C# S' Q+ z; q1 J) GIf Err <> 0 Then
Err.Clear
Set Excel = CreateObject("Excel.Application")
End If
On Error GoTo 0
* f. n* j& W5 n8 J# ^. J+ S'Excel.Visible = True
7 ?) u% e' \+ DExcel.Workbooks.open("D:\acad_d.xls")
. D/ g3 \% ^. xExcel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")

/ E1 X2 U, _' _( ]. R. T4 p1 KP_D1_A(0)= excelSheet.cells(2,1).value
, j" c5 x2 g/ M6 o5 MP_D1_A(1)= excelSheet.cells(2,2).value
, q9 r2 \& g$ HP_D1_A(2)= excelSheet.cells(2,3).value

P_D1_B(0)= excelSheet.cells(3,1).value
! T& d- k! t+ p, f5 F' L6 qP_D1_B(1)= excelSheet.cells(3,2).value
P_D1_B(2)= excelSheet.cells(3,3).value

8 e) ~2 n  K- L9 H5 }
" F( s# |! S$ ~( n$ a  Q; _Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
是在Excel中作好就直接可用吗？
% G0 G7 F9 s+ ~4 J  D4 @" M