Kubotek Forum

KeyCreator CAD & CKD Viewer Technical discussion of CAD/CAM and integrated partner products
Subscribe to post
User avatar
Dana - (9/15/2021 11:19:41 AM)
RE:kxl notestate issue
OK, now I have one more minor issue.  Updated version here:

:start
INT hundo
NoteState hundo

MASKCLEAR
MASKENTITY 3  //arcs and circles

// Prompt the user to select an entity
GetEnt "Select arc to modify", hArc, hArci, 0, 0, 1, 0
if (@error != 0)
    GOTO end
MASKCLEAR

arcdia = @dbldat[0] * 2
arcx = @matrix[9]
arcy = @matrix[10]
arcz = @matrix[11]

CLEAR diminfo1
INT diminfo1[0]
ARRAY diminfo1[40] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
diminfo1[0] = 1
diminfo1[1] = 3
diminfo1[8] = 46
diminfo1[9] = 1
diminfo1[10] = 1
diminfo1[14] = 1
diminfo1[16] = 7
diminfo1[29] = 14
diminfo1[30] = 8
diminfo1[31] = 14
diminfo1[32] = 8

double txtatt[13] = {0, arcdia/10, 1, .6, 0, 1, 0, 0, 0, 0, 0, 0, 1}

CIRDIM 2, , ,arcx ,arcy ,arcz ,hArc,,,0,,,,,diminfo1,,txtatt
Redraw

GETDBL "Enter new diameter (%f)", arcdia, newdia
on (@key + 3) goto finish, finish,

MASKCLEAR

CLEAR hDim
HEntity hDim
LastEnt hDim

CLEAR adPickPt
Double adPickPt[3] = { 0, 0, 0 }
CLEAR aAddFaces
HEntity aAddFaces[0]
CLEAR aRemoveFaces
HEntity aRemoveFaces[0]
DIMENSIONDRIVENEDIT hDim, adPickPt, newdia, aAddFaces, aRemoveFaces

:finish
DelEnt hDim
Redraw
purgeto hundo

:end
MASKCLEAR


When the dimension is created, it should use the values in diminfo1 and txtatt... but it doesn't; the dimension is created using the current system values.  Any ideas on why it doesn't work?
Login