乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 80|回复: 5

关于惯性矩计算cad2002中运行正常,2004/5/6中运行出错

[复制链接]

3

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2005-9-29 15:13:00 | 显示全部楼层 |阅读模式
关于惯性矩计算cad2002中运行正常,2004/5/6中运行出错,代码为
Private Sub CommandButton_Click()
UserForm1.Hide
Dim temp(0 To 2) As Double
Dim currUCS As AcadUCS
Dim origin(0 To 2) As Double
Dim Centroid As Variant
Dim momentOflnertia As Variant
Dim sset As AcadSelectionSet 'Define sset as a SelectionSet object
'Set sset to a new selection set namaed SS1 (the name doesn't matter here)
Set sset = ThisDrawing.SelectionSets.Add("SS1")
sset.SelectOnScreen 'Prompt user to selet objects
'save cuurent UCS origin
temp(0) = ThisDrawing.ActiveUCS.origin(0)
temp(1) = ThisDrawing.ActiveUCS.origin(1)
temp(2) = ThisDrawing.ActiveUCS.origin(2)
Dim ent As Object 'Define ent as an object For Each ent In sset
'Loop throught the SelectionSet collection
If ent.EntityName = "AcDbRegion" Then
Centroid = ent.Centroid
'Create a UCS and makes it current
Set currUCS = ThisDrawing.ActiveUCS
origin(0) = Centroid(0): origin(1) = Centroid(1): origin(2) = 0
currUCS.origin = origin
ThisDrawing.ActiveUCS = currUCS
momentOflnertia = ent.momentOflnertia
MsgBox "lx=" & Format(momentOflnetia(0) / 10000, "######.00") & "cm^4: ly=" & Format(momentOflnetia(1) / 10000, "######.00") & "cm^4", , "被选择物体的惯性矩"
currUCS.origin = temp
ThisDrawing.ActiveUCS = currUCS 'restore ActiveUCS origin
End If
Next ent
sset.Delete
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

nijce3ypor3.gif

nijce3ypor3.gif

回复

使用道具 举报

3

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2005-9-29 15:18:00 | 显示全部楼层
第二次运行时出现另一行错误

tfqwsr415jq.gif

tfqwsr415jq.gif

回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2005-9-29 21:45:00 | 显示全部楼层
很多键入错误,主要是momentOfInertia错了
这段程序在2002也不运行正常,问问题应该说实话!
回复

使用道具 举报

3

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2005-9-30 09:41:00 | 显示全部楼层
[b]alin发表于2005-9-29 21:45:00

我把dvb文件传上来,alin能否帮看看?
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2005-9-30 14:33:00 | 显示全部楼层
问题应该不在版本,是UCS的问题,凑合用着吧...

请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:54osg25xxog.rar 
下载次数:0  文件大小:20.43 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

3

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2005-9-30 15:01:00 | 显示全部楼层

非常感谢!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-4 15:49 , Processed in 0.545767 second(s), 69 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表