3D Framework
Overview
Framework Customer Story
CIMdata e-Book
CAD Utilities
Validate
Revision
View/Convert
Customer Stories
CAD Data Risks Whitepaper
Focus: Aerospace
KeyCreator CAD
Meet KeyCreator
What Is Direct Modeling
KeyCreator Reviews
KeyCreator Customer Stories
Focus: Drafting
Schools & Students
CKD Viewer
About
Company
International Resellers
All Customer Stories
Referral Program
Partners
News
Blog
Webinars
Contact
Store
Revision/Validate
View/Convert
KeyCreator CAD
Shopping Cart
Support
Login
Software
Users
Submit Request
Remote Assist
Forum
Kubotek University
Help
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
Please enter an e-mail. E-mail is required.
Login