24小时热门版块排行榜    

查看: 471  |  回复: 0

2457

铁虫 (小有名气)

[求助] sollidworks 编程求助

用solidworks对一条直线进行编程,直线长度是18mm,但是使用程序画出来的却只有16mm,极偶尔的时候会画出18mm,感觉程序是没有错的,请问哪位大神知道是怎么回事呢?程序如下:
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateLine(-0.031079, 0.017157, 0#, -0.046837, 0.025856, 0#)
Part.SketchManager.InsertSketch True
End Sub

sollidworks 编程求助
原图.jpg


sollidworks 编程求助-1
理论结果.jpg


sollidworks 编程求助-2
使用程序.jpg
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子,希望有用哦~

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 2457 的主题更新
信息提示
请填处理意见