明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1614|回复: 8

[原创]请AUTOCAD VBA高手进来看看!!

[复制链接]
发表于 2007-5-11 21:56:00 | 显示全部楼层 |阅读模式

       我现在正在做一个软件包!要求用AutoCAD VBA绘制应力弧垂曲线!现已经把EXCEL数据给我,要求开发的程序引用EXCEL后,运行程序能够获得曲线!我大致编了程序,界面已做好,运行后提示说用户定义类型未定义,我刚学了半个多月,实在不指导怎么处理!希望好手帮帮忙!一起探讨!我的QQ号码是323208679,能帮忙的请联系我,我将把程序包括数据一起共享,来探讨,也请助我一力!

加我好友时请注明身份!谢谢!

发表于 2007-5-11 22:31:00 | 显示全部楼层

你引用CAD相应版本的类型库了么?还是Excel的类型库?

是哪句出的问题?写出来。

发表于 2007-5-11 22:57:00 | 显示全部楼层

看了你下面的贴,你没有引用Excel的类型库,

点击:工程-引用,如果你机器已安装Excel,那么会有Microsoft Excel x.0 Object Library的项,其中x跟你安装的Excel版本有关,选上这项就行了。

 楼主| 发表于 2007-5-11 23:24:00 | 显示全部楼层

我选择了啊!确定后还是不能实现!

 楼主| 发表于 2007-5-11 23:31:00 | 显示全部楼层

我后来重新用同样的方法做了一个界面!再代码窗口输入同样的代码!运行都他提示说用户定义类型未定义义!!出现阴影的地方还是如下中的xlsApp As Excel.Application,只是不想上次那样说是不存在工程或库了!我茫然了!

Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim AllCount_row As Integer  'Excel表中数据行数
Dim AllCount_column As Integer 'Excel表中数据列数
Dim XX(0 To MAX_row) As Variant  '档距值(XX(0)为文字说明)
Dim YY(0 To MAX_row, 1 To MAX_column) As Variant '应力及

 楼主| 发表于 2007-5-11 23:33:00 | 显示全部楼层

还有就是再AUTOCAD VBA的选项栏力好像没有工程这一选项!VB力是有!

发表于 2007-5-12 06:57:00 | 显示全部楼层
没有工程,但在工具菜单下有“引用”项
 楼主| 发表于 2007-5-12 12:19:00 | 显示全部楼层
我在工具菜单下引用了!我的版本是2004的,让后在引用项里是microsoft excel 10.0 object library,我选择了他!但是出现的以下提示:“名称与已在模块 ,工程,对象冲突!”请问这是不是版本问题!!该怎么解决!
发表于 2007-5-12 12:55:00 | 显示全部楼层
建议把工程发上来
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 15:38 , Processed in 0.167932 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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