QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本人曾学习过一段时间的EXCEL VBA,在设计ACAD的平面图时喜欢用EXCEL先将座标计算好再画,但因图形较多而且修改频繁,被迫使用ACAD的VBA,因此规划了一个专用的EXCEL表用于保存图形的座标等参数,再用ACAD的VBA访问EXCEL的单元格,做相应的画图动作,程序正在设计中ing...部分代码:
/ H. }4 u& w, c9 DOn Error Resume Next
0 u/ F/ v* u  r3 `2 n- w+ \. k  l) \* uSet Excel = GetObject(, "Excel.Application")
2 }, `  l. P4 C: [6 \5 h7 b/ ]If Err <> 0 Then
3 Y9 E( Q' Q1 ~! @5 @Err.Clear9 D( t0 i* f1 f5 V$ r% A% \
Set Excel = CreateObject("Excel.Application")- P8 c. ~/ u* ~: n. H# h
End If
- f- S3 z2 a" J9 a9 v& ?$ k$ c  [) gOn Error GoTo 0( t8 N2 C/ g$ P: Q
'Excel.Visible = True
9 ^6 D2 F! Y6 zExcel.Workbooks.open("D:\acad_d.xls")
8 S9 [. b3 M; `7 ^* Y- |Excel.Sheets("Sheet1").Select/ a" P, z) M1 f
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1"): h. a% _6 Y$ K8 h0 i- W) {

; R' z# h  X1 Q: z# |P_D1_A(0)= excelSheet.cells(2,1).value0 t) E- [7 Y" ~
P_D1_A(1)= excelSheet.cells(2,2).value
6 Z3 A3 f; r' _6 Q; |5 eP_D1_A(2)= excelSheet.cells(2,3).value
. D/ {, |, q$ ^. N3 n
; B& @4 T# L" [0 K& nP_D1_B(0)= excelSheet.cells(3,1).value: W4 v5 i+ @# j( a3 X' \/ v
P_D1_B(1)= excelSheet.cells(3,2).value5 y( `% K8 s! \( o. M1 R" v
P_D1_B(2)= excelSheet.cells(3,3).value3 ]% m- Z1 r, o1 l* Y1 D8 Z: B
" y; H5 T1 a5 ?4 [8 h/ m) S8 O/ }
: ]# J' _8 D" y. Z, Y; V3 {) t
Call drawbox(P_D1_A,P_D1_B)
发表于 2009-3-17 19:39:58 | 显示全部楼层 来自: 中国北京
等候你做好程序的好消息
发表于 2009-3-20 13:21:42 | 显示全部楼层 来自: 中国四川成都
看不清怎么用的呢?5 k2 h  p) P0 y
是在Excel中作好就直接可用吗?0 }+ Q/ @: Y# S7 e$ X
   
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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