'### Bounding Box Character finder #### '### by Andi Schulz, www.andialias.de '### appliziert erst einen Custom Slider Pro Child - Muss noch verbunden werden! Set PSelList = GetValue( "SelectionList" ) ' Expand the parent down the branch osel=PSelList(0) deselectall '### Inpout Pivot Position #### ihpos=InputBox("Horizontal Pivot Position Left = 0 ... Right = 1",,"0") ivpos=InputBox("Vertical Pivot Position Bottom = 0 ... Top = 1",,"0") CreateGroup "MyTXT","" CreateMeshPartitionClusters osel & ".polymsh.CurveListToMesh" ExtractFromComponents "ExtractPolygonsOp", , , , siPersistentOperation, siKeepGenOpInputs set list = Selection(0).children GetPrim "Null","Hold_Characters" AddProp "Custom_parameter_list","Hold_Characters" , , "Write_On" SIAddCustomParameter "Hold_Characters.Write_On", "Percentage", siDouble, 0, 0, 1000, , 5, 0, 100 SIAddCustomParameter "Hold_Characters.Write_On", "Faktor", siDouble, 1, -500, 500, , 5, -180, 180 SIAddCustomParameter "Hold_Characters.Write_On", "Speed", siDouble, 1, 0, 100, , 5, 0, 10 for i = 0 to list.count -1 oName= "CHR"& i &"_" cName= list.Item(i) '### bewegt das >Center auf BoundingBox unten links GetBBox list.Item(i), FALSE, xmin, ymin, zmin, xmax, ymax, zmax '### Für Text nur in z und X verschieben Translate list.Item(i), xmin,ymin,zmin, siAbsolute, siGlobal, siCtr, siXYZ, , , , , , , , , , 0 oHname="hold_" & oName logmessage oName GetPrim "Null",oHname ,"Hold_Characters" Translate oHname , xmin,,zmin, siAbsolute, siGlobal, siCtr, siXYZ, , , , , , , , , , 0 ParentObj oHname , list.Item(i) '### CustomParam pro Child!! AddProp "Custom_parameter_list",cName , , "Indx" SIAddCustomParameter cName &".Indx" , "IND", siInt4, i, 0, 1000, , 2053, 0, 1000 '### GROUP SIAddToGroup "MyTXT",cName '### for Expression next '### Add OVERRIDE AddProp "Override","MyTXT" SIAddEntryToOverride "MyTXT.Override", "Hold_Characters.visibility.hidemaster"