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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
On Error Resume Next
" |9 z* G( I- USet Excel = GetObject(, "Excel.Application")
) A" A4 [# Z  C( g( Q% s1 z! UIf Err <> 0 Then
Err.Clear
8 l/ }# T  x  OSet Excel = CreateObject("Excel.Application")
End If
On Error GoTo 0
- O1 T) ?( @$ Q% ^  i; c'Excel.Visible = True
  _7 L# N3 {5 C2 rExcel.Workbooks.open("D:\acad_d.xls")
Excel.Sheets("Sheet1").Select
( {4 L. X. A9 z0 ~Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
. T" B6 h* k3 C' L1 C1 J
2 k2 j. T7 f; }; p6 p: c* @P_D1_A(0)= excelSheet.cells(2,1).value
, S' q  B# m& m! A  c- _! jP_D1_A(1)= excelSheet.cells(2,2).value
) a6 P. d5 y' v" qP_D1_A(2)= excelSheet.cells(2,3).value
3 K/ r! X1 T" M
P_D1_B(0)= excelSheet.cells(3,1).value
" d" h* t6 B1 \. ~, D6 MP_D1_B(1)= excelSheet.cells(3,2).value
P_D1_B(2)= excelSheet.cells(3,3).value
9 Z& S, L- e( E) Z

Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
是在Excel中作好就直接可用吗？
! h( r: N) s8 g2 s8 `5 z