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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
1 S. I$ }) ^# _- wIf Err <> 0 Then
) O7 \5 _8 N% g0 |, R& c* u" kErr.Clear
1 Y( D6 L( O( L. Z3 c$ P8 V2 d# RSet Excel = CreateObject("Excel.Application")
1 a" P5 i7 ?" H* FEnd If
On Error GoTo 0
'Excel.Visible = True
Excel.Workbooks.open("D:\acad_d.xls")
Excel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
$ @1 ~( q( a3 J4 b
P_D1_A(0)= excelSheet.cells(2,1).value
& ~! r" {1 Y4 X  x  L, ]7 SP_D1_A(1)= excelSheet.cells(2,2).value
P_D1_A(2)= excelSheet.cells(2,3).value
$ ?9 {6 {; K# C& @& G6 n% H
P_D1_B(0)= excelSheet.cells(3,1).value
, g: `" K) [5 M8 O0 \P_D1_B(1)= excelSheet.cells(3,2).value
P_D1_B(2)= excelSheet.cells(3,3).value

1 h' q6 T& g$ s) @3 ]
Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
8 n5 A2 e* c) T  c9 ?: C$ a1 y2 K是在Excel中作好就直接可用吗？
2 M" f* a( L- m7 y  _