API画一个圆。

mwlxl · 发表于 2011-8-13 16:17:01

经典图书

Dim swApp As Object
Dim Part As SldWorks.ModelDoc2
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
'在功能模块中bas中，用上面的定义比较好。
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
With Part
Set SelMgr = .SelectionManager
boolstatus = .Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
.InsertSketch2 True
'以上三行→鼠标放到上视基准面，插入草图。
.CreateCircleByRadius2 0.2, 0, 0, 0.02
.InsertSketch2 True
' Pt(200mm,0,0)画半径为20mm的圆。
End With
End Sub

edongliang · 发表于 2011-8-13 16:22:23

在上面程序基础上，增加圆周阵列
With Part
Set SelMgr = .SelectionManager
boolstatus = .Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
.InsertSketch2 True
.CreateCircleByRadius2 0.2, 0, 0, 0.02
.CreateCircularSketchStepAndRepeat 0.2, 3.14159265359, 8, 0.7853981633975, 1, ""
.InsertSketch2 True
End With
--------------------
关键语句→ModelDoc2::CreateCircularSketchStepAndRepeat
retval = ModelDoc2.CreateCircularSketchStepAndRepeat ( arcRadius, arcAngle, patternNum, patternSpacing, patternRotate, deleteInstances )
Input:
(double) arcRadius→双精度Arc半径
Radius to be used in the circular sketch pattern
在草图模式下的圆的半径。
Input:
(double) arcAngle
Angle relative to the sketch entities being patterned
在草图实体模式下关联的角度。

Input:
(long) patternNum
Total number of instances, including the seed geometry
包括种子几何构件，生成实体的全部数量，
Input:
(double) patternSpacing
Spacing between pattern elements in radians
？？

Input:
(BOOL) patternRotate→逻辑判断。
Rotate the pattern→旋转模式

Input:
(BSTR) deleteInstances
Instance numbers to delete passed as a string in the format: "(a) (b) (c) "
这段话一直不理解？
----------
Return:
(BOOL) retval
TRUE if the sketch pattern was created successfully, FALSE otherwise
如何草图模式圆周阵列成功，返回True

1124038307 · 发表于 2011-8-13 16:22:35

经典图书

图示结果关键程序如下。附件(由SldPrt+Swp文件组成)

圆周阵列示例.rar (15.48 KB, 下载次数: 12)
Dim swApp As Object
Dim Part As SldWorks.ModelDoc2
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
  With Part
Set SelMgr = .SelectionManager
boolstatus = .Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
.InsertSketch2 True
.CreateCircleByRadius2 0.2, 0, 0, 0.02
.CreateCircularSketchStepAndRepeat 0.2, 3.14159265359, 8, 0.7853981633975, 1, ""
.FeatureManager.FeatureCut False, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
.SelectionManager.EnableContourSelection = 0
.InsertSketch2 True
  End With
End Sub
---------------------------

Sub main()
Set swApp = Application.SldWorks
  Set Part = swApp.ActiveDoc
  With Part
Set SelMgr = .SelectionManager
boolstatus = .Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
.InsertSketch2 True
.CreateCircleByRadius2 0.24, 0, 0, 0.01
.CreateCircularSketchStepAndRepeat 0.24, 3.14159265359, 8, 0.7853981633975, 1, ""
.FeatureManager.FeatureCut False, False, False, 0, 0, 0.1, 0.1, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
.ClearSelection2 True
.InsertSketch2 True
.SelectionManager.EnableContourSelection = 0
.InsertSketch2 True
  End With
End Sub

chengzhang · 发表于 2011-8-13 16:30:26

HNHOUTAO · 发表于 2011-8-13 16:40:39

经典案例图书

楼主前辈,在下想做个宏,不知实现起来难吗,请指教,如何做,求助!
具体功能:
1.针对装配图档或零件图档
2.执行宏实现:自动将每个零件的文件--属性--摘要信息--特定配置里的 "sheet name" "Description" "Material" 属性名称和评估的值分别输出到excel文档中.

		自动登录	找回密码
密码			立即注册

API画一个圆。

相关帖子