Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

rotation problem

Created by: murukesh at: 6/1/2011 9:21 AM (14 Replies)

Rating (6)

Thanks 12

Result pages:: |; 1 | 2; |

15 Entries

Entries per page: 10 | all

6/2/2011 11:05 AM	Rate (4)
Komi Posts: 291 Rating: (71)	Dear All, Here's coming the VBA codes for creating Poly_Gear, Poly_Fan, Poly_Star...,etc in WinCC Graphics (VBA). Please just paste the code into your Graphics VBA module, you'll know soon about the parameters! [quote ] Sub Making_APolyGear() Dim MyGear1 As HMIObject 'For creating a PolyLine-Gear Dim MyGear2 As HMIObject 'For creating a Polygon-Gear Set MyGear1 = Create_PolygonGear(ThisDocument, 450, 100, 30, 60, 60, RGB(0, 255, 0), True) 'This shape will be a "Fan" ha ha! Set MyGear1 = Nothing Set MyGear1 = Create_PolygonGear(ThisDocument, 100, 200, 10, 50, 15, RGB(255, 0, 0), True) Set MyGear1 = Nothing Set MyGear2 = Create_PolygonGear_Another(ThisDocument, 450, 100, 20, 60, 45, RGB(0, 255, 132), True) 'This one is for murukesh! (The shape he wants.) Set MyGear2 = Nothing End Sub Function Create_PolygonGear(ByRef PG_DOC As Document, ByVal X_Left As Double, ByVal Y_Top As Double, _ ByVal G_Deepth As Double, ByVal G_rs As Double, ByVal The_KeyGap As Long, ByVal The_Color As Long, _ Optional ByVal With_BorderLine As Boolean = True) As HMIPolygon Dim KomiPoly_Gear As HMIPolygon 'or HMIPolyLine Dim X_Cordinates(4) As Single Dim Y_Cordinates(4) As Single Dim Angle_Idx As Integer Dim Corner_Idx As Integer Const PAI = 3.14159265358979 'pi() X_Cordinates(0) = X_Left Y_Cordinates(0) = Y_Top Set KomiPoly_Gear = PG_DOC.HMIObjects.AddHMIObject("Komi_TestGear", "HMIPolygon") With KomiPoly_Gear Point_idx = 1 .index = Point_idx .ActualPointLeft = X_Cordinates(0) + G_rs .ActualPointTop = Y_Cordinates(0) For Angle_Idx = 0 To (360 - The_KeyGap) Step The_KeyGap ' Don't use 0 to 360, because this will draw an overlap at degree 360/0. X_Cordinates(1) = G_rs * Cos((Angle_Idx + 5) * PAI / 180) X_Cordinates(2) = (G_rs + G_Deepth) * Cos((Angle_Idx + 7.5) * PAI / 180) X_Cordinates(3) = (G_rs + G_Deepth) * Cos((Angle_Idx + 12.5) * PAI / 180) X_Cordinates(4) = G_rs * Cos((Angle_Idx + 15) * PAI / 180) Y_Cordinates(1) = G_rs * Sin((Angle_Idx + 5) * PAI / 180) Y_Cordinates(2) = (G_rs + G_Deepth) * Sin((Angle_Idx + 7.5) * PAI / 180) Y_Cordinates(3) = (G_rs + G_Deepth) * Sin((Angle_Idx + 12.5) * PAI / 180) Y_Cordinates(4) = G_rs * Sin((Angle_Idx + 15) * PAI / 180) For Corner_Idx = 1 To 4 Point_idx = Point_idx + 1 If .PointCount < Point_idx Then .PointCount = Point_idx End If .index = Point_idx .ActualPointLeft = X_Cordinates(0) + X_Cordinates(Corner_Idx) .ActualPointTop = Y_Cordinates(0) - Y_Cordinates(Corner_Idx) Next Next If With_BorderLine = True Then .GlobalColorScheme = vbFalse .GlobalShadow = vbFalse .BorderWidth = 1 .BorderColor = The_Color End If End With Set Create_PolygonGear = KomiPoly_Gear Set KomiPoly_Gear = Nothing End Function Function Create_PolygonGear_Another(ByRef PG_DOC As Document, ByVal X_Left As Double, ByVal Y_Top As Double, _ ByVal G_Deepth As Double, ByVal G_rs As Double, ByVal The_KeyGap As Long, ByVal The_Color As Long, _ Optional ByVal With_BorderLine As Boolean = True) As HMIPolygon Dim KomiPoly_Gear As HMIPolygon 'or HMIPolyLine Dim X_Cordinates(4) As Single Dim Y_Cordinates(4) As Single Dim Angle_Idx As Integer Dim Corner_Idx As Integer Const PAI = 3.14159265358979 'pi() X_Cordinates(0) = X_Left Y_Cordinates(0) = Y_Top Set KomiPoly_Gear = PG_DOC.HMIObjects.AddHMIObject("Komi_TestGear", "HMIPolygon") With KomiPoly_Gear Point_idx = 1 .index = Point_idx .ActualPointLeft = X_Cordinates(0) + G_rs .ActualPointTop = Y_Cordinates(0) For Angle_Idx = 0 To (360 - The_KeyGap) Step The_KeyGap ' Don't use 0 to 360, because this will draw an overlap at degree 360/0. X_Cordinates(1) = G_rs * Cos((Angle_Idx + (The_KeyGap / 3)) * PAI / 180) X_Cordinates(2) = (G_rs + G_Deepth) * Cos((Angle_Idx + (The_KeyGap / 2)) * PAI / 180) X_Cordinates(3) = (G_rs + G_Deepth) * Cos((Angle_Idx + (The_KeyGap * 5 / 6)) * PAI / 180) X_Cordinates(4) = G_rs * Cos((Angle_Idx + The_KeyGap) * PAI / 180) Y_Cordinates(1) = G_rs * Sin((Angle_Idx + (The_KeyGap / 3)) * PAI / 180) Y_Cordinates(2) = (G_rs + G_Deepth) * Sin((Angle_Idx + (The_KeyGap / 2)) * PAI / 180) Y_Cordinates(3) = (G_rs + G_Deepth) * Sin((Angle_Idx + (The_KeyGap * 5 / 6)) * PAI / 180) Y_Cordinates(4) = G_rs * Sin((Angle_Idx + The_KeyGap) * PAI / 180) For Corner_Idx = 1 To 4 Point_idx = Point_idx + 1 If .PointCount < Point_idx Then .PointCount = Point_idx End If .index = Point_idx .ActualPointLeft = X_Cordinates(0) + X_Cordinates(Corner_Idx) .ActualPointTop = Y_Cordinates(0) - Y_Cordinates(Corner_Idx) Next Next If With_BorderLine = True Then .GlobalColorScheme = vbFalse .GlobalShadow = vbFalse .BorderWidth = 1 .BorderColor = The_Color End If End With Set Create_PolygonGear_Another = KomiPoly_Gear Set KomiPoly_Gear = Nothing End Function Best regards, Komi
Komi Posts: 291 Rating: (71)
Suggestion To thank Quote Answer
This contribution was helpful to 3 thankful Users Phantom75 Ayman Elotaify SteBo

6/2/2011 11:11 AM	Rate (0)
oggy_m Posts: 1 Rating: (0)	hi dear u can rotate some features but specified me what u want to rotate thanks
oggy_m Posts: 1 Rating: (0)
Suggestion To thank Quote Answer

6/2/2011 1:04 PM	Rate (0)
murukesh Experienced Member Joined: 4/30/2010 Last visit: 10/24/2024 Posts: 43 Rating: (0)	hi thanks that script worked

Suggestion To thank Quote Answer

6/3/2011 3:44 AM	Rate (0)
Komi Posts: 291 Rating: (71)	You're welcome! Thank you all for liking the Polys'. My colleague is against my 'moving house & goods' in SCADA by drawing a poly_house & goods..,etc. I do feel glad if it's useful to you. I forgot to tell ~ please draw a circle in front of the gear center... it looks more like a wheel with cranking shaft. Greetings, Komi
Komi Posts: 291 Rating: (71)
Suggestion To thank Quote Answer
This contribution was helpful to 2 thankful Users siemensireland Reza2015

4/1/2021 7:23 AM
EdwardMW Posts: 23 Rating: (0)	Phantom75 Komi . . . I think my "poly_gear" & "poly_fan" looks much more beautiful than yours! . . . I agree, excellent! Please post the scripts, that way we do not have to reinvent the wheel! Regards
EdwardMW Posts: 23 Rating: (0)
Suggestion Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

WinCC Picture Controls

Follow us on