VB控制AUTOCAD求隔热型材截面特性提取特性值问题

逆风的香 · 发表于 2013-10-4 22:44:25

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

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

x

woaishuijia版主！在您的帮助下我的隔热型材惯性矩计算已经有很大进展！但还有一些未解决的问题！第一个面域及第二个面域提取特性正确，但求并集后截面特性提取错误！我把需解决的问题在附件中都有完整描述！衷心感谢您对我这位老“菜鸟"的支持！

woaishuijia · 发表于 2013-10-5 10:40:00

简单看了下你的问题和程序,并集后的面域变量名是 RoomObjects(0),你在求截面特性时的参数仍然用的是 MyEnty,问题应该出在这里.

suke0012 · 发表于 2013-10-5 20:22:09

woaishuijia 发表于 2013-10-5 10:40 static/image/common/back.gif
2 q/ R. ]" {+ k简单看了下你的问题和程序,并集后的面域变量名是 RoomObjects(0),你在求截面特性时的参数仍然用的是 MyEnty ...

我下午改变方式拿源程序琢磨了一下！如果我求并集时先选择两个大截面中的一个（不先选择隔热条）出来的结果是正确的！出来的结果正确我再把根据正确参数计算的一些公式带入就能完全解决求隔热型材惯性矩的问题！我把全部的程序编辑完成后再发给您！我就奇怪求并集时为什么必须先输两大截面中一个，而不能先选隔热条！

suke0012 · 发表于 2013-10-5 20:43:44

您好！我刚才试验了一下！加上set MyEnty=RoomObjects(0)就没问题了！您觉得源代码还是不是能简化好多！这样重复的地方太多！

woaishuijia · 发表于 2013-10-5 22:25:30

suke0012 发表于 2013-10-5 20:43 static/image/common/back.gif
* d4 k0 p3 ]5 \! u0 L3 L2 I您好！我刚才试验了一下！加上set MyEnty=RoomObjects(0)就没问题了！您觉得源代码还是不是能简化好多！这样 ...

加上这一行是正确的,但不是最好的.可优化的地方很多,呵呵.
你程序的功能,基本就是打开文档,创建面域并查询,面域并集并查询,保存关闭文档等.用VBA最合适不过了,用VB简直是自寻烦恼.
你的CAD2005是完全安装吗?如果在安装时把VBA功能添加上,就可以用VBA,比用VB间接控制CAD方便很多.
不过,CAD2005的VBA不太好,就是运行时CPU太累了,换个高版本的CAD,比如2008,效果很不错的

逆风的香 · 发表于 2013-10-6 07:58:51

woaishuijia 发表于 2013-10-5 22:25 static/image/common/back.gif
; Z/ A) y* v+ e, Y加上这一行是正确的,但不是最好的.可优化的地方很多,呵呵.
* Z, r/ i* C: a; f. |% S3 O你程序的功能,基本就是打开文档,创建面域并查 ...

woaishuijia您好！我现在就是想用VB去控制！VBA只能在AUTOCAD运行后去控制！数据很难直接提取到VB中！我的力学计算等都必须在VB中进行！今天我把后面计算部分的源代码设计完后问题就完全解决了！前面做的只是提取每个截面的数据，但隔热型材惯性矩计算还是较复杂的，这些数据是根本！谢谢您出的主意不断开阔我的思路！

逆风的香 · 发表于 2013-10-7 14:58:32

woaishuijia版主，您好！还有一个问题向您请教！发的源代码是计算竖向截面特性的源代码！如果我把截面旋转90度计算横向截面的怎样去编写代码简单呢！

woaishuijia · 发表于 2013-10-8 06:34:19

逆风的香发表于 2013-10-7 14:58 static/image/common/back.gif
- L8 X5 d5 Q$ u$ u$ X# d6 b* [woaishuijia版主，您好！还有一个问题向您请教！发的源代码是计算竖向截面特性的源代码！如果我把截面旋转9 ...

首先我认为没有必要.因为你已经把截面的X轴和Y轴惯性矩及上下左右四个方向的抵抗矩,面积矩都计算出来了,旋转90度只不过是计算结果互换一下而已.
如果一定要重新计算,当然是在CAD上把截面面域以其形心为基点旋转90度再计算最为简单.方法是在把面域以其形心为基点移动到坐标原点后,以坐标原点(即截面形心)为基点旋转

'将质心移到原点
T4 C: c5 k* i, ^: T! H5 F
MoveFrom(0) = Xc.Centroid(0): MoveFrom(1) = Xc.Centroid(1): MoveFrom(2) = 0
3 b1 y7 h: G% G& q0 Y$ W
MoveTo(0) = 0: MoveTo(1) = 0: MoveTo(2) = 0* y* }: v7 l1 P, W ^: W7 f2 }
Xc.Move MoveFrom, MoveTo
2 R0 Y2 A F, t% y+ ^* g& ^
Xc.Rotate MoveTo, SelDoc.Utility.AngleToReal(90, acDegrees)
( d/ {7 r* K: r$ `0 J3 \9 T: p
'算出外框最左下角及右上角
: x+ V8 F" m( b, h& l# v. E; A
Xc.GetBoundingBox MinPo, MaxPo

复制代码

Xc.Rotate MoveTo, SelDoc.Utility.AngleToReal(90, acDegrees) 这一行使用了CAD图元的 Rotate 方法,它有两个参数,第一个参数是基点,第二个参数是角度,单位是弧度.在这里又使用了CAD文档对象的 Utility 集合(可称为"实用工具集")中的 AngleToReal 方法,它的作用是把其它单位制的角度转换为弧度,它有两个参数,第一个是其它单位制的角度,第二个指出这个角度的单位(命名常量).
其实使用 Utility.AngleToReal 只是为了程序的可读性,如果图代码简单,可以直接写成

Xc.Rotate MoveTo, 1.5707963267949

复制代码

另外,对你代码中有一点不理解

'取出各轴惯性矩' q( p0 b; Q. Y2 q+ j! A
If Round(Abs(Xc.MomentOfInertia(1)), 0) = 1 Then
- u- Z; Y8 x+ c+ K2 D
Ix = Xc.MomentOfInertia(1)
0 t/ N/ y1 j- r6 K3 k l' C
Iy = Xc.MomentOfInertia(0)
* |2 t& z d) O- O, H
Else+ A% m/ o; ]9 e/ A, l
Ix = Xc.MomentOfInertia(0): T5 n9 [ ~6 y3 P
Iy = Xc.MomentOfInertia(1)/ K4 }! A: m3 ?
End If

复制代码

为什么要在Y轴惯性矩在0.5到1.5之间时,把X轴和Y轴惯性矩互换过来使用,后面的力学计算不是就错了吗?

逆风的香 · 发表于 2013-10-8 16:11:38

woaishuijia 发表于 2013-10-8 06:34 static/image/common/back.gif, U3 H! H4 h8 \8 v F
首先我认为没有必要.因为你已经把截面的X轴和Y轴惯性矩及上下左右四个方向的抵抗矩,面积矩都计算出来了,旋 ...

woaishuijia版主，您好！我好好琢磨一下吧！您给我的思路很有启发性！其实旋转90度的惯性矩与不旋转90度惯性矩是完全一样的！只是坐标轴方向有根本变化！我把源代码编好后给您审核！谢谢您！

逆风的香 · 发表于 2013-10-31 10:53:11

woaishuijia，您好！计算隔热型材惯性矩的源代码我十月初根据您的建议已经编写好了！但现在有没有办法解决两个问题：一、原来选择截面时选择方式为：先选择一侧截面，再选择另外一侧截面，最后选择隔热条及一侧另一侧截面求并集。能不能调整为这种方式呢：直接选择一侧截面，另一侧截面，再选择隔热条求并集后输出截面特性。二、怎么解决CAD版本的问题，比方说我现在在引用中设置为autocad 2010 type library，就能实现打开2004,2006,2008,2010几个版本的CAD格式的文件！我把计算隔热型材的理论依据及我计算的源代码都发给您！麻烦您看看我提出的两个问题怎么解决好！能编写出这源代码多亏您的指教！谢谢您！

逆风的香 · 发表于 2013-11-3 15:01:18

woaishuijia，您好！还有一个问题向您请教！点击“生成autocad对象“按钮后，经常启动不了AUTOCAD,提示”切换到“”重试“,只有先启动AUTOCAD，再点击“生成autocad对象“才能正常运行！这个问题怎么解决!谢谢您!

woaishuijia · 发表于 2013-11-7 16:02:49

这段时间我工作太忙了，过几天抽时间看看你的程序。对不起啊

逆风的香 · 发表于 2013-11-7 18:08:46

woaishuijia 发表于 2013-11-7 16:02 static/image/common/back.gif
5 i, S& R t2 Y8 a4 r这段时间我工作太忙了，过几天抽时间看看你的程序。对不起啊

woaishuijia，您好！
我知道您这几天在展会上！呵呵！辛苦您了！没有您帮忙我写不出隔热型材的计算源代码来！

逆风的香 · 发表于 2013-11-15 07:53:46

逆风的香发表于 2013-11-7 18:08 static/image/common/back.gif& n; I9 v9 Q! N4 b
woaishuijia，您好！
, E0 K/ }" S5 g- ^0 C$ N9 H 我知道您这几天在展会上！呵呵！辛苦您了！没有您帮忙我写不出隔热型材的计算源 ...

woaishuijia版主！您好！我忘了说明一个问题！两根隔热条是面域为一体的，操作中先选择上截面，再选择下截面，最后一步是选择两根一体的隔热条及上截面及下截面，这样才最终取得结果！竖料方向为图示方向，横料是旋转90度后再执行上面的操作！辛苦您了！麻烦您看看哪些地方还能简化！谢谢您！

woaishuijia · 发表于 2013-11-24 06:30:43

逆风的香发表于 2013-10-31 10:53 static/image/common/back.gif
6 J' E) Y. z9 xwoaishuijia，您好！计算隔热型材惯性矩的源代码我十月初根据您的建议已经编写好了！但现在有没有办法解决两 ...

原来选择截面时选择方式为：先选择一侧截面，再选择另外一侧截面，最后选择隔热条及一侧另一侧截面求并集。能不能调整为这种方式呢：直接选择一侧截面，另一侧截面，再选择隔热条求并集后输出截面特性。

当然可以.先选择并分别把三个面域赋值给三个变量,最后再统一运算就行了啊.

怎么解决CAD版本的问题，比方说我现在在引用中设置为autocad 2010 type library，就能实现打开2004,2006,2008,2010几个版本的CAD格式的文件！

后期绑定.编程完成后,把对CAD类库的引用取消,程序中涉及CAD类的对象型变量声明一律改为Object类型.

点击“生成autocad对象“按钮后，经常启动不了AUTOCAD,提示”切换到“”重试“,只有先启动AUTOCAD，再点击“生成autocad对象“才能正常运行！

这是因为启动CAD需要一定的时间,在过程没有结束之前你让VB做其它事,就会出现这种情况.解决的办法就是不要让VB在CAD启动写成之前接受其它指令.
比如在过程的开始部分把窗体隐藏起来,在过程的结尾(CAD启动完成后程序才能运行到这里)再显示;或者把窗体的Enabled属性先改为False,然后再改为True;或者直接把启动CAD的代码放到Form_Load()过程中,只有启动并绑定了CAD才能显示程序窗体,等等.

PS:你电脑中有CAD病毒,压缩包中的"acaddoc.lsp"就是,本版区有网友上传的专杀工具,自己搜索下载杀一下吧

逆风的香 · 发表于 2013-11-24 07:53:58

woaishuijia 发表于 2013-11-24 06:30 static/image/common/back.gif
. \% q& R V; _+ ~( M当然可以.先选择并分别把三个面域赋值给三个变量,最后再统一运算就行了啊.- i! u) G2 G, Y9 _
后期绑定.编程完成后,把对C ...

woaishuijia，您好！谢谢您指明方向！我把编程的方式整理好后再发给您！我觉得我这位新手在您的指导下已经有很大的进步了！由衷感激您的支持！谢谢您！

逆风的香 · 发表于 2013-11-24 08:17:21

woaishuijia，您好！您能不能发一点版本后期绑定的源代码给我参考一下！后期绑定我没接触过，我也不知道看那些书能找到相关内容！谢谢您！

woaishuijia · 发表于 2013-11-24 10:45:44

逆风的香发表于 2013-11-24 08:17 static/image/common/back.gif
! X8 ^& {' X4 K2 S2 T/ wwoaishuijia，您好！您能不能发一点版本后期绑定的源代码给我参考一下！后期绑定我没接触过，我也不知道看那 ...

新建一个工程,在"引用"对话框中引用CAD2010类库并输入代码如下图

Dim CAD As AcadApplication, DOC As AcadDocument, C As AcadCircle1 q; }/ A0 Y1 n+ a
Dim P(2) As Double0 v8 \" a5 U6 N& A5 G6 n8 D
On Error Resume Next
! j: }% B8 g) s: v6 |
Set CAD = GetObject(, "autocad.application.18")
3 V9 o. G" h0 G: b3 h
If Err Then8 F' c7 [1 x' R# x- G) \
Err.Clear
. N$ Z4 E, E" _7 |8 M2 b2 h2 N
Set CAD = CreateObject("autocad.application.18")
* a) i6 S' W% p9 c) b
End If0 D; _# b4 Q* H2 y1 w1 t* j
CAD.Visible = True$ r" n( y1 a' n5 b& v! e% B
Set DOC = CAD.ActiveDocument- x& a9 d+ f9 ~' E
Set C = DOC.ModelSpace.AddCircle(P, 100)

复制代码

代码中CAD类名称中包含了版本号,这是因为我电脑中有几个版本的CAD软件,不指定版本号会出错.
运行代码,程序打开了CAD2010并在其模型空间画了一个圆,如下图

这种方法叫"前期绑定".它是特点是引用了指定的应用程序类库,使用中只能调用该应用程序软件.

现在做一下修改
在"引用"对话框中取消对CAD类库的引用,并把代码中变量声明语句中的CAD对象类型的变量改为Object类型,如下图

Dim CAD As Object, DOC As Object, C As Object" s. K, S0 D# C; A/ b
Dim P(2) As Double
! j! x2 x9 w9 F3 @
On Error Resume Next$ p# \- N% Q. b, L4 \
Set CAD = GetObject(, "autocad.application")6 ~$ B! ]# {) A( `$ v- a
If Err Then+ Z" D" Y _' M( s" J
Err.Clear- o6 v$ _+ u. D' ^5 r
Set CAD = CreateObject("autocad.application"): g! n0 u8 w9 h) ?" |/ a( H
End If( H, u8 ]! l% s! _ P1 k
CAD.Visible = True% Y: B7 ^+ z; n. a
Set DOC = CAD.ActiveDocument
+ E0 q' r0 \7 S3 k" o
Set C = DOC.ModelSpace.AddCircle(P, 100)

复制代码

代码中不需要版本号了,因为它能自动绑定到我最后一次使用的我电脑中的CAD版本.
我运行了CAD2005,然后关掉它.再运行代码,程序打开了CAD2005并在其模型空间画了一个圆,如下图

这就是所谓"后期绑定",它不针对特定的CAD版本,只要你电脑中有CAD软件就行.

再次修改代码,在其中加上CAD2014的版本号

运行代码的结果是它打开了我的CAD2014,并在其模型空间画了一个圆.因为版本号约束了程序必须调用CAD2014.

逆风的香 · 发表于 2013-11-24 12:59:39

woaishuijia，您好！太感激您啦！原来我是一点都不通CAD二次开发的人，最近几个月在您的帮助下我解决了我们这行业很少有人能解决的隔热型材惯性矩计算的问题！谢谢您！

逆风的香 · 发表于 2013-11-24 13:19:48

每次的进步都有热心朋友的支持！这就是学习的乐趣！

逆风的香 · 发表于 2013-11-24 20:15:26

woaishuijia，您好！我试了试！我发现我这个后期绑定不简单，里面相关的地方太多了！我改了改不管用！麻烦您帮检查一下源代码！我发的上一个完全能正常运行！但这个绑定的可能我改得不对！麻烦您帮查查看到底怎么回事！谢谢您！！！

逆风的香 · 发表于 2013-11-24 20:36:16

woaishuijia版主！您好！我把计算隔热型材惯性矩的过程录像了！用原来的隔热型材面域并集及截面特性计算源文件横料计算(20131020).rar计算的，我是想让您看到计算的过程！计算结果是正确的，我用手算计算过！但这个的后期绑定我还是搞不定！麻烦您看看我上次发的源代码按照这个录像的操作怎么才能把后期绑定搞定！谢谢您了！问题太多！不好意思老麻烦您！谢谢您！我的QQ515127998

woaishuijia · 发表于 2013-11-25 04:36:22

本帖最后由 woaishuijia 于 2013-11-25 05:08 编辑

逆风的香发表于 2013-11-24 20:15 http://www.3dportal.cn/discuz/static/image/common/back.gif5 w j6 A' I8 y' N8 X6 m. s" f
woaishuijia，您好！我试了试！我发现我这个后期绑定不简单，里面相关的地方太多了！我改了改不管用！麻烦您 ...

"Command1_Click"过程中下图亮显的这一行有错误,应该是你用"查找/替换"时弄错的

这一行改为

AppActivate CAD.Caption

复制代码

就可以了.
PS:建议你把"CAD","DOC"和"DOCS"三个全局变量改回你以前用过的变量名"acadApp","acadDoc"等,"Command1_Click"过程中的也改回去,否则你其它过程都要改,量太大了

"Command15_Click"过程中有六个CAD类型变量,"Module1"模块的"Xcdm"过程中有两个(见下面四个图中亮显部分),也要改成Object类型,否则计算截面特性时会出错

"Command15_Click"过程中还有一个错误,共出现了八处,见下图

"≤"不是VB的运算符,正确的VB运算符"小于或等于"是"<="
由于你在VB编辑器中未设置强制变量声明,程序运行到这里时,会把"SSx1≤SSx2"当做一个隐式声明的新变量,默认值为"False".条件判断语句永远执行"Else"后面的部分.

建议你在现有代码窗口的第一行加上

Option Explicit

复制代码

就像这样

这会避免很多不必要的错误.
在"选项"对话框中把"要求变量声明"复选框勾选上,以后新建代码窗口时,第一行会自动添加"Option Explicit"

逆风的香 · 发表于 2013-11-25 07:45:07

woaishuijia，您好！我做梦也没想到清晨就看到您给的答案！您做事的诚心永远让我这位菜鸟感动！我们搞技术的都有共性，没解决的问题一定要解决掉！谢谢您！

逆风的香 · 发表于 2013-11-25 09:04:31

woaishuijia，您好！麻烦您把调整完的源代码再发给我一下，最好是按“PS:建议你把"CAD","DOC"和"DOCS"三个全局变量改回你以前用过的变量名"acadApp","acadDoc"等,"Command1_Click"过程中的也改回去,否则你其它过程都要改,量太大了! ”这种方式调整完的代码！谢谢您啦！

		自动登录	找回密码
密码			注册

通知

[已解决] VB控制AUTOCAD求隔热型材截面特性提取特性值问题

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

浏览过的版块