找回密码 注册 QQ登录
开思网工业级高精度在线3D打印服务

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 4359|回复: 12
打印 上一主题 下一主题

[求助] sw开发自动建模

[复制链接]
跳转到指定楼层
1
发表于 2016-9-12 16:38:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
小弟初学开发,发现个问题发现如下代码运行和实际不符,主要为倒圆角的位置,请赐教
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
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 0.1, 0#, 0#)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0#, 30 / 2000 + 0.005, 0#)
Set skSegment = Part.SketchManager.CreateLine(0#, 30 / 2000 + 0.005, 0#, 0.004, 30 / 2000 + 0.005, 0#)
Set skSegment = Part.SketchManager.CreateLine(0.004, 30 / 2000 + 0.005, 0#, 0.004, 30 / 2000, 0#)
Set skSegment = Part.SketchManager.CreateLine(0.004, 30 / 2000, 0#, 69 / 1000, 30 / 2000, 0#)
Set skSegment = Part.SketchManager.CreateLine(69 / 1000, 30 / 2000, 0#, 69 / 1000, 0#, 0#)
Set skSegment = Part.SketchManager.CreateLine(69 / 1000, 0#, 0#, 0#, 0#, 0#)
Part.ClearSelection2 True

Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureRevolve2(True, True, False, False, False, False, 0, 0, 6.2831853071796, 0, False, False, 0.01, 0.01, 0, 0, 0, True, True, True)

boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.004, 0.015, 0, False, 0, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureFillet2(195, 0.003, 0, 0, 0, 0, 0)
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
 楼主| 发表于 2016-9-12 16:58:34 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
3
发表于 2016-9-13 09:53:17 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
4
 楼主| 发表于 2016-9-13 09:58:05 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
5
发表于 2016-9-13 10:01:17 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
6
发表于 2016-9-13 10:07:10 | 只看该作者

本帖子中包含更多资源

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

x
7
 楼主| 发表于 2016-9-13 10:32:01 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
8
 楼主| 发表于 2016-9-13 10:35:26 | 只看该作者

本帖子中包含更多资源

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

x
9
发表于 2016-9-13 10:56:39 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
10
 楼主| 发表于 2016-9-13 11:43:44 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

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

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-15 04:57 , Processed in 0.025896 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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