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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
+ B- J8 R$ I/ b+ xOn Error Resume Next
  T$ Q- M% F- R7 k/ KSet Excel = GetObject(, "Excel.Application")
7 ^$ o& E/ K& [" u0 u1 `3 {- D2 {# @If Err <> 0 Then
: x7 g, b/ \: L8 oErr.Clear
3 N7 z5 p( \5 SSet Excel = CreateObject("Excel.Application")
' a1 d* u3 i0 S% }* S- bEnd If
8 Q6 j9 h( V: D: N3 OOn Error GoTo 0
'Excel.Visible = True
# T6 N( ~4 [" i0 u7 U9 b/ M& rExcel.Workbooks.open("D:\acad_d.xls")
6 ?+ M) U- D- W( Z' E- r' y8 qExcel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
5 m* [. V+ S- h' y5 R. p' ]
" |1 K! H2 N9 {! A) JP_D1_A(0)= excelSheet.cells(2,1).value
P_D1_A(1)= excelSheet.cells(2,2).value
; \) K% @6 R6 w3 A. `P_D1_A(2)= excelSheet.cells(2,3).value

& w( R7 z3 s' X. ?9 w6 p' y% oP_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
1 f! w+ ~' T# ~; x7 F; ^
. O  X9 g1 k# f" y6 |! S" u; E! M
$ ]$ K( G! T# ]/ c  yCall drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
1 p* [4 B: `" T- s" j% Z  E是在Excel中作好就直接可用吗？
; X- F6 }  `/ s+ ]5 R. A