linedir.qry

  Download

More scripts: Style By Script

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes
            
######################################################
# This was a script written for me by D. Frolov on   #
# Dec 8 98.  This script will draw arrows indicating #
# the order in which lines were created.             #
#                                                    #
# J Rader, Technical Support                         #
######################################################
Size = 3
LineStyleSetColor(0,0,0)
LineStyleDrawLine()
LineStyleSetCoordType(0)
LineStyleSetPosition(0.5)
LineStyleMoveTo(0,0)
LineStyleDrawArrow(0,Size/100.0,Size,45,0)
LineStyleMoveTo(90,Size)
IDLabel$ = sprintf("%d",Internal.ElemNum)
LineStyleDrawText(IDLabel$,Size,0.0,1,nextx,nexy,length)