hi Andrew, I tried to debug with SKILL IDE tool and it show clearly that it didn't call my procedure i include my 3 procedure: procedure(yhwInfo(yhwText) let((cv winBox edgeAdjustX edgeAdjustY textAdjust x y textSize yhwLabel) cv=geGetWindowCellView() yhwLabelsDelete(cv) leSetLayerVisible(list("ALPHA" "drawing") t) winBox = geGetWindowBox(hiGetCurrentWindow()) edgeAdjustX=0.02 ; 2% of horizontal display size edgeAdjustY=0.04 textAdjust=0.023 ; 2.3% of vertical display size x=leftEdge(winBox)+(rightEdge(winBox)-leftEdge(winBox))*edgeAdjustX y=topEdge(winBox)-(topEdge(winBox)-bottomEdge(winBox))*edgeAdjustY textSize=(topEdge(winBox)-bottomEdge(winBox))*textAdjust yhwLabel = dbCreateLabel(cv "ALPHA" x:y yhwText "centerLeft" "R0" "roman" textSize) dbCreateProp(yhwLabel "track" "boolean" t) hiRegTimer("yhwDeleteLabel(yhwText)" 10) ) ) procedure(yhwLabelsDelete(cv) let((yhwLabels) yhwLabels = setof(l cv~>shapes l~>objType=="label" && l~>track) if(yhwLabels then foreach(item yhwLabels dbDeleteObject(item) ) ) ) ) procedure(yhwDeleteLabel(yhwText) let((yhwCV yhwFindLabel) info("\n*****%s*****\n" yhwText) yhwCV = geGetWindowCellView() yhwFindLabel = setof(l yhwCV~>shapes l~>theLabel==yhwText && l~>track) if(yhwFindLabel then info("DELETE\n") dbDeleteObject(car(yhwFindLabel)) ) yhwText = nil hiRedraw() ) ) from the IDE tool message: >> on explicit 'break' request Entering new debug toplevel due to breakpoint: stopped before evaluating (winBox = geGetWindowBox(hiGetCurrentWindow())) stopped before evaluating (edgeAdjustX = 0.02) stopped before evaluating (edgeAdjustY = 0.04) stopped before evaluating (textAdjust = 0.023) stopped before evaluating (x = (leftEdge(winBox) + ((& - &) * edgeAdjustX))) stopped before evaluating (y = (topEdge(winBox) - ((& - &) * edgeAdjustY))) stopped before evaluating (textSize = ((topEdge(winBox) - bottomEdge(winBox)) * textAdjust)) stopped before evaluating (yhwLabel = dbCreateLabel(cv "ALPHA" (x:y) yhwText "centerLeft" ... )) stopped before evaluating dbCreateProp(yhwLabel "track" "boolean" t) stopped before evaluating hiRegTimer("yhwDeleteLabel(yhwText)" 10) >> for some reason, it didn't call my procedure yhwDeleteLabel. Thanks Tony![]()
↧