设为首页收藏本站积分自助充值

3DST技术网

 找回密码
 快速注册

QQ登录

只需一步,快速开始

3DST技术网 专业的3D设计技术学习网站 求助必看 - 论坛公告 - 技术求助

Solid Edge软件下载及安装 Solid Edge最新资源 软件下载-插件中心-模型下载-教程下载

3DST产品与购买 您的支持是我们成长和发展的动力 软件询价 - 月租订购 - 积分充值

Solid Edge高级应用教程的光盘(二次开发)

发布者: godmoning | 发布时间: 2008-11-16 21:31| 查看数: 10558| 评论数: 51|帖子模式|复制链接

最新评论

tangchao 发表于 2014-8-26 15:33
这个必须拿
Mercedes 发表于 2014-9-28 12:17
谢谢共享太棒了,正需要,感谢楼主!
wasw888 发表于 2014-11-28 16:31
沙发~消灭零回复,楼主您是好样的!
tendysign 发表于 2015-4-20 16:02
没影片的话看的很痛苦
aug365 发表于 2015-5-2 12:54
mark
标记
aug365 发表于 2015-5-2 13:03
Sub 提取属性()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objModel As SolidEdgePart.Model
    Dim objProfile As SolidEdgePart.Profile
    Dim dblMass As Double
    Const Filename_TEST = "D:\设备处理\水平段端法兰.par"
    Const PI = 3.14159265358979
    On Error Resume Next
    Set objApp = GetObject(, "SolidEdge.Application")
    If Err Then
        Err.Clear
        Set objApp = CreateObject("SolidEdge.Application")
        Set objDoc = objApp.Documents.Add("SolidEdge.PartDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    Call objDoc.Close
    Set objDoc = objApp.Documents.Open(Filename:=Filename_TEST)
    Set objModel = objDoc.Models(1)
    dblDensity = 1
    dblAccuracyIn = 0.0001
    Call objModel.ComputePhysicalProperties(Density:=dblDensity, Accuracy:=dblAccuracyIn, Volume:=dblVolume, _
         Area:=dblArea, Mass:=dblMass, CenterOfGravity:=dblCofGravity, _
         CenterOfVolume:=dblCofVolume, _
         GlobalMomentsOfInteria:=dblGlobalMoments, _
         PrincipalMomentsOfInteria:=dblPrincipalMoments, _
         PrincipalAxes:=dblPrincipalAxes, _
         RadiiOfGyration:=dblRadiiOfGyration, _
         RelativeAccuracyAchieved:=dblAccuracyOut, Status:=lngStatus)
    Sheet1.Range("C1") = dblMass
    Call objDoc.Close
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objModel = Nothing
End Sub
为何我的程序无法读取质量呢?
lolzz 发表于 2015-5-27 13:09
为什么你这个老提示找不到cip文件呢
天地弃子 发表于 2015-6-24 22:07
感谢分享,下来看看
king410327 发表于 2015-12-23 08:22
看起来不错  下载下来看看先
18043215720 发表于 2017-9-1 15:22
好东西呀
快速回复 返回列表 客服中心 搜索 官方QQ群 3DST技术网积分充值
快速回复 返回顶部 返回列表