- 积分
- 3
UID949347
主题
在线时间 小时
注册时间2009-3-17
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本人曾学习过一段时间的EXCEL VBA，在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画，但因图形较多而且修改频繁，被迫使用ACAD的VBA，因此规划了一个专用的EXCEL表用于保存图形的座标等参数，再用ACAD的VBA访问EXCEL的单元格，做相应的画图动作，程序正在设计中ing...部分代码：
8 F3 X: P p9 @* x/ pOn Error Resume Next
: n, Q# f/ ?- mSet Excel = GetObject(, "Excel.Application")4 ~( ?, _7 V$ W& |% D' u
If Err <> 0 Then
$ A% S# {& j" t" c6 w) o% FErr.Clear
$ e+ M' d2 ~* _5 N [; ~Set Excel = CreateObject("Excel.Application")9 W- h# i; a% n# `' E
End If. W. U9 p5 p9 K! f( ?0 }6 Z
On Error GoTo 0
0 ^6 A5 Q6 ?$ T5 |/ T'Excel.Visible = True! d" U5 F, E, v) i( Y
Excel.Workbooks.open("D:\acad_d.xls")
$ W9 p/ y% A: P m6 M8 s) w& v [Excel.Sheets("Sheet1").Select% m$ I0 W! g. y) ?
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
+ n5 |$ B& l4 {) g& j
+ Z% C4 ?0 s8 ~! V( _P_D1_A(0)= excelSheet.cells(2,1).value
5 Z4 U# H6 Z: P; {5 q" |. lP_D1_A(1)= excelSheet.cells(2,2).value; p$ g: F3 u4 X) U9 z2 k$ }, E2 ?
P_D1_A(2)= excelSheet.cells(2,3).value
, b# V7 H( \$ m+ s( f: q3 n7 N! \9 |: O
P_D1_B(0)= excelSheet.cells(3,1).value
$ q; _1 f$ `- n' J. Q' m. f% HP_D1_B(1)= excelSheet.cells(3,2).value$ k/ l8 E3 E _1 f# O3 n7 G
P_D1_B(2)= excelSheet.cells(3,3).value2 x9 O% ^8 }, d; v' _% @4 q
2 @" i3 f W& G# [. y- V7 w
$ ~- O( n! l p3 f2 MCall drawbox(P_D1_A,P_D1_B) |
|
发表于 2009-3-17 16:38:34
