- 积分
- 3
UID949347
主题
在线时间 小时
注册时间2009-3-17
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本人曾学习过一段时间的EXCEL VBA,在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画,但因图形较多而且修改频繁,被迫使用ACAD的VBA,因此规划了一个专用的EXCEL表用于保存图形的座标等参数,再用ACAD的VBA访问EXCEL的单元格,做相应的画图动作,程序正在设计中ing...部分代码:
2 a" T0 Z/ x) e* ?8 l0 @: O8 NOn Error Resume Next2 B. L5 C8 F7 y- y% l
Set Excel = GetObject(, "Excel.Application"): F3 n/ {2 @4 ^$ O ^2 v
If Err <> 0 Then; Z }" v$ j; c i9 ?
Err.Clear- P% c; b& T7 N4 M
Set Excel = CreateObject("Excel.Application")
6 m4 k5 A4 E8 JEnd If
0 y0 }: P' N% g6 r8 aOn Error GoTo 0/ q' Z+ v$ O7 a; N+ U
'Excel.Visible = True6 X& j- P% U, C1 r, Q; f x% i
Excel.Workbooks.open("D:\acad_d.xls")
" @3 s. I# a. a& v% a+ F* O; h( z0 r: G) EExcel.Sheets("Sheet1").Select
& m. D/ j' N; q8 }: }( i- @Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")
7 T# X0 z% }$ h4 x2 z
" U7 R; g1 M; VP_D1_A(0)= excelSheet.cells(2,1).value; n: s* h9 |# m. l/ \, e1 B4 \) ^
P_D1_A(1)= excelSheet.cells(2,2).value
8 Z0 k6 z7 o# O8 \: O6 _P_D1_A(2)= excelSheet.cells(2,3).value) N6 B( n6 {1 V- S7 m" [8 S
w7 A) s9 R S) j
P_D1_B(0)= excelSheet.cells(3,1).value1 M' c, C! Z! U7 \$ I
P_D1_B(1)= excelSheet.cells(3,2).value
2 v }) n' J! cP_D1_B(2)= excelSheet.cells(3,3).value! v, u) O7 S; v% K. i) c4 D5 Z
- h4 M& G9 ~9 z$ j9 ~7 m9 `1 t
2 [) w# T# ~7 {: K. J! y" `2 w3 sCall drawbox(P_D1_A,P_D1_B) |
|