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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
On Error Resume Next
# T8 C; ]1 k$ a: S/ bSet Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
, m( |" s0 H/ y6 Q6 R6 `Err.Clear
Set Excel = CreateObject("Excel.Application")
End If
( P& o( x6 l5 B" t: F1 C, U: \On Error GoTo 0
' C; F7 b" W/ F) s5 j'Excel.Visible = True
Excel.Workbooks.open("D:\acad_d.xls")
% N: Y( r. y! M  P$ M1 _Excel.Sheets("Sheet1").Select
! m( O4 i/ R8 O) }4 NSet excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")

, Z* ^1 H0 f1 r; JP_D1_A(0)= excelSheet.cells(2,1).value
! N+ b2 `$ b+ a, \" Q' ^' QP_D1_A(1)= excelSheet.cells(2,2).value
P_D1_A(2)= excelSheet.cells(2,3).value
5 R+ J. |( G$ ?
" x* c1 m$ @4 d- P3 ~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


9 r7 z2 b7 E: ~# {- @Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
是在Excel中作好就直接可用吗？
$ ?. x2 y2 I0 q1 X( ]