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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
2 t+ V$ z) E4 x. c1 m3 c! }" TIf Err <> 0 Then
; m3 ~, i% j- QErr.Clear
$ a5 J4 g  }8 p- ESet Excel = CreateObject("Excel.Application")
End If
On Error GoTo 0
: T$ T0 [6 F# q: B1 q1 e" \9 B( e6 B'Excel.Visible = True
Excel.Workbooks.open("D:\acad_d.xls")
. E1 x$ @  `( f; f. W4 \Excel.Sheets("Sheet1").Select
1 `$ o5 b: s# q8 \0 N; USet excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")

P_D1_A(0)= excelSheet.cells(2,1).value
& u; k7 L: a9 n6 C( I/ WP_D1_A(1)= excelSheet.cells(2,2).value
P_D1_A(2)= excelSheet.cells(2,3).value
  R$ i( T/ H" x+ z6 `7 s
P_D1_B(0)= excelSheet.cells(3,1).value
5 H  J9 j! k/ X" g! D, s$ k# vP_D1_B(1)= excelSheet.cells(3,2).value
P_D1_B(2)= excelSheet.cells(3,3).value
) i. y1 v  B5 B' b5 [& o

Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
是在Excel中作好就直接可用吗？
9 t6 @9 S  }5 @- F9 n