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:


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) Reply \| Quote \| Subscribe to post

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

Reply | Quote | Subscribe to post

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

Reply | Quote | Subscribe to post