Kubotek Forum

KeyCreator CAD & CKD Viewer Technical discussion of CAD/CAM and integrated partner products

Subscribe to post

Soli - (10/7/2018 7:19:33 AM)
RE:KXL: Level sets as pictures

Dna Hello,

Interesting, We are thinking in a similar way.

I also have a similar macro:

-------------------------------------------------------------------------------------------------------

clear $$acsLevelSets
SList $$acsLevelSets

LevelSetList $$acsLevelSets

Int bAllowNew = 0
Int bSort = 1
clear $LevelSetName
string $LevelSetName

SelectString "SELECT THE SET LEVELS TO BE DISPLAYED" , $$acsLevelSets , bAllowNew , bSort , $LevelSetName

clear apLevels
HLevel apLevels[0]

LevelSetGetDisplayedLevels $LevelSetName , apLevels

LevelMod NDISP
notestate

clear $$levels_numbers
slist $$levels_numbers
int counter=0

:loop
GetLevelInfo apLevels[counter] , , $$levels_numbers[counter]
LevelMod DISP , $$levels_numbers[counter]
notestate
counter = counter+1
if (counter < sizeof (apLevels))
goto loop

exit
------------------------------------------------------------------------------------------------------------

I use also a macro that creates a level set for an actual map of levels:

------------------------------------------------------------------------------------------------------------

clear $$existLevelSets
slist $$existLevelSets
clear $$acsLevelSets
SList $$acsLevelSets

LevelSetList $$existLevelSets

counter_search=0
:loop_search
sprint $$acsLevelSets[counter_search+2] , "%s" , $$existLevelSets[counter_search]
counter_search = counter_search+1
if (counter_search < sizeof ($$existLevelSets))
goto loop_search

$$acsLevelSets[0] = "EXISTING SETS LEVELS; DON'T USE THEM"
$$acsLevelSets[1] = "******************************************"

Int bAllowNew = 1
Int bSort = 0
clear $LevelSetName
string $LevelSetName

SelectString "CREATE NEW SET LEVELS" , $$acsLevelSets , bAllowNew , bSort , $LevelSetName

counter=0
:loop_compare
strcmp $$acsLevelSets[counter] , $LevelSetName , result

if (result == 0)
pause "THE LEVEL SET --- %s --- EXIST; PRESS ENTER TO EXIT ",$LevelSetName
if (result == 0)
EXIT

counter = counter + 1
if (counter < sizeof ($$acsLevelSets))
goto loop_compare
goto create_set

:create_set
clear $message_string
string $message_string
sprint $message_string , "Create new set named = %s" , $LevelSetName

Int nType = 4
MessageBox $message_string , nType
error=@error
if (error == 6)
goto continue
if (error == 7)
exit

:continue
Clear bPopulate
Int bPopulate = 1
LevelSetCreate $LevelSetName , bPopulate

notestate
exit

-----------------------------------------------------------------------------------------------------------

Regards,
Solomon Steinberg

P.S.
I don't forget how you helped in the past, with levels map.

E-mail:	Given e-mail is not valid