Kubotek Forum

KeyCreator CAD & CKD Viewer Technical discussion of CAD/CAM and integrated partner products
Subscribe to post
User avatar
Soli - (9/10/2022 2:42:32 PM)
RE:Solids Copy & Paste
Manolo,

With this utility, you can move selected entities to the level of other entity.


clear hEnt , hLev 
HENTITY hEnt
HLEVEL hLev 
 
int nSelFlag = 0
Int  nSelParent = 1
Int  bSelRefEnts = 0
Int  bAccept = 1
bActiveInstFlag = 1
 
GetEnt "SELECT THE ENTITY FOR DESINATION LEVEL", hEnt ,  , nSelFlag, nSelParent, bSelRefEnts,  , bAccept, bActiveInstFlag 
if (@key == -3)
exit
ENTLEVEL hEnt, hLev 
GETLEVELINFO hLev
 
CLEAR nNumSel
INT nNumSel
HLEVEL hLev
// This will invoke the Universal Selection Menu
GENSEL "SELECT THE ENTITIES TO MOVE TO DESINATION LEVEL", nNumSel, 0, 1, 0, 0, 0, 0
if (@error != 0)
    EXIT
 
CLEAR aGenSelEnts
//Populate variable with the entities just selected
GETSELECTED aGenSelEnts
             
  LevelMoveEntities  hLev, aGenSelEnts
  NoteState

Soli
Login