sw二次开发中旋转运动实现问题

wtjvyjfisi

   经典图书

在装配体环境下，只能获取Component的位置，可以通过setXform实现运动，
但是Component中又有很多body，我想对其中一个body实现旋转，可是body没有setXform这个方法
就是想在已经建好模的装备体中选一个零件，然后通过编程使他旋转起来
请高手指点，拜托
志同道和者，请加QQ 460431336

秋天很美

零件里插入一个移动实体特征，就可以移动单个实体了

c8x460f31o

   经典图书

谢谢，可是这要在零件设计时就要做的吧
我的目的是要在随意的装配体下
实现其中零件的旋转运动
还有能用编程的方法吗

tonyhj

能。你查看想关的函数。用VBA就能实现的。
SW二次开发的功能还是挺强的，
如果你对SW二次开发刚入门的话。建议你
在补习一个月的SW函数看相关的例子然后再编写你的程序。

毒蛇花花

   经典案例图书

我看了
就只找到了component的setXform方法
如果你知道一些，请帮助一下
用什么函数可以实现

ffddjj

新建一个装配体环境，在其中插入的是两个装配体
这是实现一个装配体旋转两周的VBA编程，问怎么修改可以实现这个装配体中一个小零件的旋转
transform只使用于component
Option Explicit
Const PI                As Double = 3.14159
Const RadPerDeg         As Double = PI / 180
Sub main()
    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim swAssy                  As SldWorks.AssemblyDoc
    Dim swDragOp                As SldWorks.DragOperator
    Dim swSelMgr                As SldWorks.SelectionMgr
    Dim swComp                  As SldWorks.Component2
    Dim swXform                 As SldWorks.MathTransform
    Dim Arraydata               As Variant
    Dim swMathUtil              As SldWorks.MathUtility
    Dim i                       As Double
    Dim bRet                    As Boolean
   
    Dim a As Double
    Dim b As Double
    Dim c As Double
   
    Dim x As Double
    Dim y As Double
    Dim z As Double
    Dim s As Double
    Dim h As Double
    Dim e As Double
    Dim f As Double
         
    Dim aa As Double
    Dim bb As Double
    Dim cc As Double
    Dim dd As Double
    Dim gg As Double
    Dim ss As Double
    Dim hh As Double
    Dim ee As Double
    Dim ff As Double
    Dim xx As Double
    Dim yy As Double
    Dim zz As Double
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swAssy = swModel
    Set swDragOp = swAssy.GetDragOperator
    Set swSelMgr = swModel.SelectionManager
    Set swComp = swSelMgr.GetSelectedObjectsComponent(1)
    swModel.ClearSelection2 (False)
    Set swMathUtil = swApp.GetMathUtility
   
    Set swXform = swComp.Transform2
    Arraydata = swXform.Arraydata
   
    aa = Arraydata(0)
    bb = Arraydata(1)
    cc = Arraydata(2)
    dd = Arraydata(3)
   
   
    ss = Arraydata(4)
    hh = Arraydata(5)
    ee = Arraydata(6)
    ff = Arraydata(7)
    gg = Arraydata(8)
    xx = Arraydata(9)
    yy = Arraydata(10)
    zz = Arraydata(11)
   
    i = 0
   
    Do
        s = Sin(-i * RadPerDeg)
        h = -Cos(i * RadPerDeg)
        e = Cos(i * RadPerDeg)
        f = Sin(-i * RadPerDeg)
        
        
        Arraydata(0) = s
        Arraydata(2) = h
        Arraydata(6) = e
        Arraydata(8) = f
        
         Set swXform = swMathUtil.CreateTransform(Arraydata)
        swComp.Transform2 = swXform
   
        swModel.GraphicsRedraw2
        
        i = i + 0.5
        
        DoEvents
    Loop Until i >= 720
      End Sub

naked-boy

   经典案例图书

Set swDragOp = swAssy.GetDragOperator
改成  Set swDragOp = swModel .GetDragOperator
看看结果

0303king

不行
改了就出错了，swModel没有GetDragOperator方法