QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2255|回复: 2
收起左侧

[分享] 用EXCEL表辅助ACAD进行参数化设计

[复制链接]
发表于 2009-3-17 16:38:34 | 显示全部楼层 |阅读模式 来自: 中国广东深圳

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本人曾学习过一段时间的EXCEL VBA,在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画,但因图形较多而且修改频繁,被迫使用ACAD的VBA,因此规划了一个专用的EXCEL表用于保存图形的座标等参数,再用ACAD的VBA访问EXCEL的单元格,做相应的画图动作,程序正在设计中ing...部分代码:
# O. A& E. g3 O& bOn Error Resume Next
8 n* B. a' i* d) \8 M8 L6 q9 ESet Excel = GetObject(, "Excel.Application")/ P1 x$ [7 m1 B3 ~# ?$ I+ i+ K$ r" `
If Err <> 0 Then6 B' z4 {, g  F% q7 E
Err.Clear* a3 B/ J! D4 k4 F
Set Excel = CreateObject("Excel.Application")
1 G8 z9 W' s% \3 Z! r1 pEnd If8 U, f# s+ M6 `, |, l
On Error GoTo 0
2 O( ~4 U1 o; e: B'Excel.Visible = True+ I" |  J8 \1 ]: }( a
Excel.Workbooks.open("D:\acad_d.xls")* L6 K9 b% L; c6 v) S
Excel.Sheets("Sheet1").Select: r0 P$ m$ A$ G6 o7 P# D2 ~) U# V
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")* R. Y! [8 B8 m: y2 G; D" ?3 P; J

5 a' V* \8 Z* K. ]3 P+ I' u( kP_D1_A(0)= excelSheet.cells(2,1).value
6 X, m* z2 u. ]% yP_D1_A(1)= excelSheet.cells(2,2).value
$ M2 I0 S4 A; r) y! qP_D1_A(2)= excelSheet.cells(2,3).value
) Z/ g# A6 R6 p
" d7 |; d. F2 |8 `P_D1_B(0)= excelSheet.cells(3,1).value, q3 {9 E7 k) z; w
P_D1_B(1)= excelSheet.cells(3,2).value9 z4 b. w5 p8 W% m; m
P_D1_B(2)= excelSheet.cells(3,3).value
3 ]3 ?! V" e+ q2 b1 U4 I8 o0 B5 k  f) K. ?' K7 k

. j8 p6 g5 p/ }; ]; E1 c. V2 ?Call drawbox(P_D1_A,P_D1_B)
发表于 2009-3-17 19:39:58 | 显示全部楼层 来自: 中国北京
等候你做好程序的好消息
发表于 2009-3-20 13:21:42 | 显示全部楼层 来自: 中国四川成都
看不清怎么用的呢?
% _1 k7 |9 Y- e$ c7 F0 a& M' Z& c# c是在Excel中作好就直接可用吗?
9 |& Z& i2 I' `. ^  P   
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表