QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本人曾学习过一段时间的EXCEL VBA,在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画,但因图形较多而且修改频繁,被迫使用ACAD的VBA,因此规划了一个专用的EXCEL表用于保存图形的座标等参数,再用ACAD的VBA访问EXCEL的单元格,做相应的画图动作,程序正在设计中ing...部分代码:& `+ d6 V, c3 O# F5 c
On Error Resume Next
# T8 C; ]1 k$ a: S/ bSet Excel = GetObject(, "Excel.Application")  [5 e; h8 R6 E
If Err <> 0 Then
, m( |" s0 H/ y6 Q6 R6 `Err.Clear5 Q' p$ P# T& c- a! N. T
Set Excel = CreateObject("Excel.Application")( T+ f3 V0 R+ T) l. @6 Y( w1 H
End If
( P& o( x6 l5 B" t: F1 C, U: \On Error GoTo 0
' C; F7 b" W/ F) s5 j'Excel.Visible = True3 P5 }/ _! e: ?* ^: b% `+ R
Excel.Workbooks.open("D:\acad_d.xls")
% N: Y( r. y! M  P$ M1 _Excel.Sheets("Sheet1").Select
! m( O4 i/ R8 O) }4 NSet excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")* ]1 }1 w( |$ G& `, m6 x; x. e, V

, Z* ^1 H0 f1 r; JP_D1_A(0)= excelSheet.cells(2,1).value
! N+ b2 `$ b+ a, \" Q' ^' QP_D1_A(1)= excelSheet.cells(2,2).value' x) @( D, y$ Z: q+ Q
P_D1_A(2)= excelSheet.cells(2,3).value
5 R+ J. |( G$ ?
" x* c1 m$ @4 d- P3 ~P_D1_B(0)= excelSheet.cells(3,1).value( S4 N& e; b( k$ Z! I* I! ^
P_D1_B(1)= excelSheet.cells(3,2).value* T1 U4 k3 B/ c5 D* T
P_D1_B(2)= excelSheet.cells(3,3).value5 }( T7 e* }2 v% ~
9 d6 Y' N% D' N) q

9 r7 z2 b7 E: ~# {- @Call drawbox(P_D1_A,P_D1_B)
发表于 2009-3-17 19:39:58 | 显示全部楼层 来自: 中国北京
等候你做好程序的好消息
发表于 2009-3-20 13:21:42 | 显示全部楼层 来自: 中国四川成都
看不清怎么用的呢?6 g+ e9 `5 M7 X, L
是在Excel中作好就直接可用吗?
$ ?. x2 y2 I0 q1 X( ]   
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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