https://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1468680&b_id=5

Dim  CENTER,ARC,ARCLINE

Dim ixCenter,iyCenter,ixArc,iyArc,iRadius

 Set CENTER=ScreenItems("圆2")

 Set ARC=ScreenItems("圆1")

Set ARCLINE=ScreenItems("C_ACRLINE")//这个没有在你原文上找到对应

     iRadius=150'旋转半径

    ixCenter=CENTER.Left+CENTER.Radius

    iyCenter=CENTER.Top+CENTER.Radius

'    

'     '获取旋转对象0度时的圆心坐标

 '   ixArc=ixCenter+iRadius*Sin(value/180*3.1415926)

 '   iyArc=iyCenter+iRadius*Cos(value/180*3.1415926)'

    '设置旋转对象的坐标

 '   ARC.Left=ixArc-ARC.adius

 '   ARC.Top=iyArc-ARC.Radius

 '   ARCLINE.Left=ixCenter-ARCLINE.Radius

 '   ARCLINE.Top=iyCenter-ARCLINE.Radius

     ScreenItems("JIAO").text=value