Kubotek Forum

KeyCreator CAD & CKD Viewer Technical discussion of CAD/CAM and integrated partner products
Customer Forum > KeyCreator CAD & CKD Viewer > Solids Copy & Paste View modes: 
User avatar
Valued member
Valued member
Manolo - 9/10/2022 1:20:31 PM
   
Solids Copy & Paste
From: Ctl + C
To; Ctl + V

Give us the option to move the solid level.
F1 - Original Level
F2 - Current Level
F3 - Select Level (selecting entity or input)

User avatar
Advanced member
Advanced member
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
Solomon Steinberg,
Israel

DELL OPTIPLEX 7050
NVIDIA QUADRO P2000
KEYCREATOR 13.5
KEYCREATOR 2022 SP0



User avatar
Advanced member
Advanced member
Dana - 9/30/2022 9:32:14 AM
   
RE:Solids Copy & Paste
Or use this utility to quickly set the CCP and Xform level options:


rem xfopt.kxl
rem utility to set xform and cut-copy-paste level options
rem Dana Hague 3/31/11

// (0xAAB8) Toggle the display of toolbar 13
//CallFunc 43705

GET XFLEVOPT, xopt
rem 0 is entity level, 1 is active level
get CCPGroup, ccpgopt
rem 0 is single level, 1 is original levels
get CCPParent, ccppopt
rem 0 is root levels, 1 is active level

IF (xopt == 0)
    $xopt = "Entity"
IF (xopt == 1)
    $xopt = "Active"
IF (ccppopt == 0)
    $ccppopt = "Root"
IF (ccppopt == 1)
    $ccppopt = "Active"
IF (ccpgopt == 0)
    $ccpgopt = "-Single"
IF (ccpgopt == 1)
    $ccpgopt = "+Original"

$menustring = "Select level option for XFORM ( "
STRCAT $menustring, $xopt
STRCAT $menustring, ") or CCP ("
STRCAT $menustring, $ccppopt
STRCAT $menustring, $ccpgopt
STRCAT $menustring, ")"

:menu
GETMENU $menustring, "--XFORM:--|Entity|Active| |---CCP:---|Root-Single|Root+Orig|Active-Single|Active+Orig",
ON (@key+6) GOTO end, end, end, end, end, end, end, menu, xent, xact, menu, menu, ccprs, ccpro, ccpas, ccpao

:xent
SET XFLEVOPT, 0
PROMPT "XFORM set to entity level."
goto optchosen

:xact
SET XFLEVOPT, 1
PROMPT "XFORM set to active level."
goto optchosen

:ccprs
SET CCPParent, 0
SET CCPGroup, 0
PROMPT "CCP set to Root - Single level."
goto optchosen

:ccpro
SET CCPParent, 0
SET CCPGroup, 1
PROMPT "CCP set to Root plus Original sublevels."
goto optchosen

:ccpas
SET CCPParent, 1
SET CCPGroup, 0
PROMPT "CCP set to Active - Single level."
goto optchosen

:ccpao
SET CCPParent, 1
SET CCPGroup, 1
PROMPT "CCP set to Active plus Original sublevels."
goto optchosen

:optchosen
WAIT 2

:end
CLEAR $menustring, $xopt, $ccpgopt, $ccppopt
CLEAR xopt, ccppopt, ccpgopt

1
Login