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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
# O. A& E. g3 O& bOn Error Resume Next
8 n* B. a' i* d) \8 M8 L6 q9 ESet Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
Err.Clear
Set Excel = CreateObject("Excel.Application")
1 G8 z9 W' s% \3 Z! r1 pEnd If
On Error GoTo 0
2 O( ~4 U1 o; e: B'Excel.Visible = True
Excel.Workbooks.open("D:\acad_d.xls")
Excel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")

5 a' V* \8 Z* K. ]3 P+ I' u( kP_D1_A(0)= excelSheet.cells(2,1).value
6 X, m* z2 u. ]% yP_D1_A(1)= excelSheet.cells(2,2).value
$ M2 I0 S4 A; r) y! qP_D1_A(2)= excelSheet.cells(2,3).value
) Z/ g# A6 R6 p
" d7 |; d. F2 |8 `P_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
3 ]3 ?! V" e+ q2 b1 U4 I8 o

. j8 p6 g5 p/ }; ]; E1 c. V2 ?Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
% _1 k7 |9 Y- e$ c7 F0 a& M' Z& c# c是在Excel中作好就直接可用吗？
9 |& Z& i2 I' `. ^  P