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

chq_cn

本人曾学习过一段时间的EXCEL　VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
/ H. }4 u& w, c9 DOn Error Resume Next
0 u/ F/ v* u  r3 `2 n- w+ \. k  l) \* uSet Excel = GetObject(, "Excel.Application")
2 }, `  l. P4 C: [6 \5 h7 b/ ]If Err <> 0 Then
3 Y9 E( Q' Q1 ~! @5 @Err.Clear
Set Excel = CreateObject("Excel.Application")
End If
- f- S3 z2 a" J9 a9 v& ?$ k$ c  [) gOn Error GoTo 0
'Excel.Visible = True
9 ^6 D2 F! Y6 zExcel.Workbooks.open("D:\acad_d.xls")
8 S9 [. b3 M; `7 ^* Y- |Excel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")

; R' z# h  X1 Q: z# |P_D1_A(0)= excelSheet.cells(2,1).value
P_D1_A(1)= excelSheet.cells(2,2).value
6 Z3 A3 f; r' _6 Q; |5 eP_D1_A(2)= excelSheet.cells(2,3).value
. D/ {, |, q$ ^. N3 n
; B& @4 T# L" [0 K& nP_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


Call drawbox(P_D1_A,P_D1_B)

3dpxf

等候你做好程序的好消息

cayok111

看不清怎么用的呢？
是在Excel中作好就直接可用吗？