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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
On Error Resume Next
( i* A+ E9 V' G5 \# K0 MSet Excel = GetObject(, "Excel.Application")
+ \& g- d2 ~0 f( J$ A# W5 E1 uIf Err <> 0 Then
9 r  J9 J# C& V  NErr.Clear
  u, S' f) G9 I7 C" z1 g( LSet Excel = CreateObject("Excel.Application")
$ ]8 y+ L2 V7 o/ z: mEnd If
On Error GoTo 0
'Excel.Visible = True
  e7 M& d3 v% b8 j* }7 g$ ]1 mExcel.Workbooks.open("D:\acad_d.xls")
: @* J* N) U7 L+ yExcel.Sheets("Sheet1").Select
" ]' K& F. s$ J& eSet excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
0 G( U9 W5 {/ d5 N% n
6 C4 p* D2 }, n$ o, y- wP_D1_A(0)= excelSheet.cells(2,1).value
P_D1_A(1)= excelSheet.cells(2,2).value
P_D1_A(2)= excelSheet.cells(2,3).value
: K# S% V6 {' l
P_D1_B(0)= excelSheet.cells(3,1).value
7 [: Q6 v+ t! D% [; ?P_D1_B(1)= excelSheet.cells(3,2).value
. k9 U" R1 _, A* bP_D1_B(2)= excelSheet.cells(3,3).value

% i* L; I9 r. O* ?' \: w" @: k
2 P# M( E# Z; ~; G7 I: n" ECall drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
: ]1 @$ J1 u2 b% b是在Excel中作好就直接可用吗？