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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
On Error Resume Next
8 }- J$ u, W0 C& {$ uSet Excel = GetObject(, "Excel.Application")
, N, J/ w1 ^! ~3 R  [If Err <> 0 Then
5 Z4 s4 z- {- ]8 \Err.Clear
! ^( |+ s- m0 o8 kSet Excel = CreateObject("Excel.Application")
End If
  I. E: f. E1 ~: vOn Error GoTo 0
'Excel.Visible = True
Excel.Workbooks.open("D:\acad_d.xls")
  C4 }. V$ X7 x0 t$ RExcel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
- o) l8 j# r; H, [- D" l
P_D1_A(0)= excelSheet.cells(2,1).value
+ ^" v7 h5 F4 XP_D1_A(1)= excelSheet.cells(2,2).value
P_D1_A(2)= excelSheet.cells(2,3).value

# p1 c% T5 M2 r. MP_D1_B(0)= excelSheet.cells(3,1).value
5 b3 Q/ x" s2 f& R1 TP_D1_B(1)= excelSheet.cells(3,2).value
P_D1_B(2)= excelSheet.cells(3,3).value


3 K8 u4 J" n% u) @- p* o7 i8 V+ sCall drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
  r* r8 Q( T+ o' r: ~是在Excel中作好就直接可用吗？
. j, `6 y. a! r/ x8 J6 _