SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: SolidWorks的二次开发中的一个小问题! [打印本页]

作者: maotou25    时间: 2011-5-31 15:06
标题: SolidWorks的二次开发中的一个小问题!
用VB做SolidWorks的二次开发,做的是轴类的,在画轴时,第一段输入的是半径14,长度55,第二段输入的是半径15,长度50,为什么画好了。两段轴的半径看起来一样啊,两段轴看起来就是一段啊,是哪里出了问题啊?代码如下:
Dim diameter As Double
Dim depth As Double
diameter = Val(Text1.Text) / 1000
depth = Val(Text2.Text) / 1000
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.CreateCircle 0, 0, 0, 0, diameter, 0
'利用API函数画圆
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, depth, 0.01, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1
'利用API拉伸
谢谢!!!




欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/) Powered by Discuz! X3.2