coloring pins

Below is a skill function to read an ascii csv file containing pin coordinates to color the pins...

procedure(csv_coord_import( @optional (x_col nil) (y_col nil) (color nil))
   prog((FileName inport DataLine DataList Color Status LineCnt Pin_x Pin_y Pins Assigned ErrorCnt)
      unless(x_col
         (DataLine = axlEnterString(?prompts  ,"Enter X_col number:"))
         (x_col = charToInt(DataLine))
         unless(x_col
            (axlMsgPut "Invalid number entered")
            return()
         )
      )
      unless(y_col
         (DataLine = axlEnterString(?prompts  ,"Enter Y_col number:"))
         (y_col = charToInt(DataLine))
         unless(y_col
            (axlMsgPut "Invalid number entered")
            return()
         )
      )
      unless(color
         (DataLine = axlEnterString(?prompts  ,"Enter Color Index number:"))
         (color = charToInt(DataLine))
         unless(color
            (axlMsgPut "Invalid number entered")
            return()
         )
      )
      when(stringp(x_col) (x_col = atoi(x_col)))
      when(stringp(y_col) (y_col = atoi(y_col)))
      when(stringp(color) (color = atoi(color)))
      (LineCnt = 0)
      (ErrorCnt = 0)
      (Assigned = 0)
      (Pins = list())
      (FileName = axlDMFileBrowse( nil nil ?optFilters " files(*.csv)|*.csv|"))
      if(( stringp(FileName) && (isFile(FileName) == t)) then
         (inport = infile(FileName))
         (axlClearSelSet)
         (axlSetFindFilter ?enabled list("noall" "pins") ?onButtons list("noall" "pins"))
         while(gets(DataLine inport)
            (LineCnt++)
            (DataList=parseString(DataLine ",\n\r"))
            if( length(DataList) > y_col then
               (Pin_x = atof(nthelem(x_col DataList)))
               (Pin_y = atof(nthelem(y_col DataList)))
               when(floatp(Pin_x) && floatp(Pin_y)
                   (axlClearSelSet)
                   (axlSingleSelectPoint (Pin_x:Pin_y))
                   when((axlGetSelSet)
                       (Pins = cons(car(axlGetSelSet()) Pins))
                   )
               )
            )
         )
         close(inport)
         drain()
         (Assigned = length(Pins))
         axlCustomColorObject(Pins color)
         axlMsgPut("%d lines read, %d color assignments made, %d errors found" LineCnt Assigned ErrorCnt)
      else
         axlMsgPut("No valid file selected")
      )
   )
)
axlCmdRegister("csv_coord_import" 'csv_coord_import  ?cmdType "general")

thank u, david, to create the skill code.

when i run the csv_coord_import command, i get this.

when i enter the x coordinate, -7411.15, i get this error message,

*Error* charToInt: argument #1 should be a symbol (type template = "s") - "-7411.15"

when i enter the csv file name, i get this.

*Error* charToInt: argument #1 should be a symbol (type template = "s") - "Book1.csv"

regards

masa

Masa,

This skill code was created to read an ASCII comma separated file ( i.e. csv files ) for the pin location data...

The initial Prompt for 'Enter X_col number:' is asking for which column in the ASCII file contains the 'X' coordinate of the Pin.

The 2nd Prompt for  'Enter Y_col_number:' is asking for which column in the ASCII file contains the 'X' coordinate of the Pin.

The 3rd prompt for "Enter Color Index number:" is asking for which Allegro color number to use as the pin highlight color.

Lastly a file browser will appear for you to select the ASCII file to parse for the coordinate data:

After this, it will read the file & color the pins, a summary message is written:

32 lines read, 28 color assignments made, 0 errors found

An updated version of the code is provided below:

procedure(csv_coord_import( @optional (x_col nil) (y_col nil) (color nil))
prog((FileName inport DataLine DataList Color Status LineCnt Pin_x Pin_y Pins Assigned ErrorCnt)
unless(x_col
(DataLine = axlEnterString(?prompts ,"Enter X_col number:"))
(x_col = atoi(DataLine))
unless(x_col
(axlMsgPut "Invalid number entered")
return()
)
)
unless(y_col
(DataLine = axlEnterString(?prompts ,"Enter Y_col number:"))
(y_col = atoi(DataLine))
unless(y_col
(axlMsgPut "Invalid number entered")
return()
)
)
unless(color
(DataLine = axlEnterString(?prompts ,"Enter Color Index number:"))
(color = atoi(DataLine))
unless(color
(axlMsgPut "Invalid number entered")
return()
)
)
when(stringp(x_col) (x_col = atoi(x_col)))
when(stringp(y_col) (y_col = atoi(y_col)))
when(stringp(color) (color = atoi(color)))
(LineCnt = 0)
(ErrorCnt = 0)
(Assigned = 0)
(Pins = list())
(FileName = axlDMFileBrowse( nil nil ?optFilters " files(*.csv)|*.csv|"))
if(( stringp(FileName) && (isFile(FileName) == t)) then
(inport = infile(FileName))
(axlClearSelSet)
(axlSetFindFilter ?enabled list("noall" "pins") ?onButtons list("noall" "pins"))
while(gets(DataLine inport)
(LineCnt++)
(DataList=parseString(DataLine ",\n\r"))
if( length(DataList) > y_col then
(Pin_x = atof(nthelem(x_col DataList)))
(Pin_y = atof(nthelem(y_col DataList)))
when(floatp(Pin_x) && floatp(Pin_y)
(axlClearSelSet)
(axlSingleSelectPoint (Pin_x:Pin_y))
when((axlGetSelSet)
(Pins = cons(car(axlGetSelSet()) Pins))
)
)
)
)
close(inport)
drain()
(Assigned = length(Pins))
axlCustomColorObject(Pins color)
axlMsgPut("%d lines read, %d color assignments made, %d errors found" LineCnt Assigned ErrorCnt)
else
axlMsgPut("No valid file selected")
)
)
)
axlCmdRegister("csv_coord_import" 'csv_coord_import ?cmdType "general")

thank u, again, david, for the explanation.

for testing, i use this csv file.

then i get this message.

what is the color index number that i should enter?

regards

masa

So with that file you use column 1 for the X_col number & 2 for the Y_col number

The color index  numbers can be found by opening the Color dialog window,

as you browse the colors in the 'available colors' area it will show the color index as shown in the image below: