iCAx开思工具箱

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 26797|回复: 2
打印 上一主题 下一主题

SOLIDWORKS2007中用VBA二次开发- 画圆问题

[复制链接]
跳转到指定楼层
楼主
发表于 2008-10-15 17:40:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册登录,享用更多网站功能!

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

x
为什么画圆的直径不对?圆心位置也不对?
是我的程序有问题吗?
请明人指点。多谢!

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.SetUserPreferenceToggle swFileExplorerShowSamples, False
Part.SetUserPreferenceIntegerValue swImageQualityWireframe, swWireframeImageQualityCustom
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", -0.06650507042254, 0.05942169014085, 0, False, 0, Nothing, 0)
Part.InsertSketch
Part.ClearSelection2 True
Part.CreateCircle 0, 0, 0, 0, 50 / 2000, 0
Part.CreateCircle 0, 1.3 / 1000, 0, 60 / 2000, 0, 0

End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 支持支持
沙发
发表于 2008-10-30 20:50:20 | 只看该作者

马上注册登录,享用更多网站功能!

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

x
板凳
发表于 2009-2-23 14:34:55 | 只看该作者

马上注册登录,享用更多网站功能!

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

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

本版积分规则

手板模型制作,在线3D打印服务

QQ|小黑屋|手机版|开思工具箱 CAD工具箱_CAM工具箱  

GMT+8, 2024-11-13 00:15 , Processed in 0.014553 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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