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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
( L( y. ?" `( d2 P: m9 bOn Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
; x! U. I  K# ZErr.Clear
9 L3 Q. U4 i: l3 \/ w4 S, T. F9 ]Set Excel = CreateObject("Excel.Application")
* k7 E( u$ Y: j5 O- N" fEnd If
  V; l4 r; H8 C( j! ^3 E' gOn Error GoTo 0
/ d- r8 g$ Z7 j( ?: |'Excel.Visible = True
Excel.Workbooks.open("D:\acad_d.xls")
Excel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
2 T( `" u/ _; X( I) A# Z
P_D1_A(0)= excelSheet.cells(2,1).value
3 y; C/ T# [7 X  m; q" `7 m2 zP_D1_A(1)= excelSheet.cells(2,2).value
P_D1_A(2)= excelSheet.cells(2,3).value

P_D1_B(0)= excelSheet.cells(3,1).value
P_D1_B(1)= excelSheet.cells(3,2).value
+ p- L' `6 T( e9 R& ^; OP_D1_B(2)= excelSheet.cells(3,3).value
3 A. v* ]1 D- r* T0 K& }& ^1 x

Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
是在Excel中作好就直接可用吗？
6 x4 H( S: y& Z' Q/ P% f. U