QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本人曾学习过一段时间的EXCEL VBA,在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画,但因图形较多而且修改频繁,被迫使用ACAD的VBA,因此规划了一个专用的EXCEL表用于保存图形的座标等参数,再用ACAD的VBA访问EXCEL的单元格,做相应的画图动作,程序正在设计中ing...部分代码:
& `; b7 L: u; q3 N, h( ROn Error Resume Next: t* q3 `7 ?8 r$ {5 J
Set Excel = GetObject(, "Excel.Application"), Y9 {7 T- `0 [
If Err <> 0 Then: [! @0 \7 g9 z
Err.Clear% c1 m8 J" ]: A2 Z$ k6 l
Set Excel = CreateObject("Excel.Application")
0 `0 Z5 ~7 c7 [( TEnd If
7 j7 C. t$ E4 R; `2 @! ]On Error GoTo 0
2 e3 D3 U; s  }3 D" ~'Excel.Visible = True) o) O3 J2 u. G$ i0 O
Excel.Workbooks.open("D:\acad_d.xls")5 ~% h, e  F- d$ e
Excel.Sheets("Sheet1").Select
7 |* u( h8 _% F2 M. [4 FSet excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")+ D+ ^& q% ]- \( F7 g  A( a; |

* Y! U! k0 l+ pP_D1_A(0)= excelSheet.cells(2,1).value; v& i7 F4 G3 |3 ]3 I; k% J7 j' q6 i" r4 r
P_D1_A(1)= excelSheet.cells(2,2).value, `: h( x- n1 G6 ~' m
P_D1_A(2)= excelSheet.cells(2,3).value, V; M8 b! ?6 [) p+ v7 P
' D: X' f8 X; g: m5 u5 S9 E' x* T
P_D1_B(0)= excelSheet.cells(3,1).value0 m& q/ Y! g# D5 w
P_D1_B(1)= excelSheet.cells(3,2).value, E1 v- I- G$ d
P_D1_B(2)= excelSheet.cells(3,3).value) a2 _. P( B( P1 k, r

) X  [  J) _4 ^3 Y, H- e. ]! K! S$ g% q
Call drawbox(P_D1_A,P_D1_B)
发表于 2009-3-17 19:39:58 | 显示全部楼层 来自: 中国北京
等候你做好程序的好消息
发表于 2009-3-20 13:21:42 | 显示全部楼层 来自: 中国四川成都
看不清怎么用的呢?* L2 K. n9 r! v2 n5 x6 h; @
是在Excel中作好就直接可用吗?) m0 ]. [3 P( u& Q  F
   
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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