Search the Community

This routine was functional a couple of weeks ago. Now it's giving me the following error: *Invalid* ; error: Function cancelled I have tried changing the path of where the OS tiles are stored but nothing seems to be working. I would appreciate if someone could look into this. (defun C:TQL () (command "setvar" "insunits" "0") (command "setvar" "insunitsdefsource" "0") (command "setvar" "insunitsdeftarget" "0") (graphscr) (command "expert" "5") (command "ucs" "save" "UCS1" ) (command "ucs" "w" ) (setq P1 (getpoint "\nPick suitable point ")) ;co ord (setq PEAST (car P1)) ;eastings (setq PNORTH (cadr P1)) ;northings (setq PEASTF (rtos PEAST 2 0)) ;conversion to string (setq PNORTHF (rtos PNORTH 2 0)) (setq TQEAST (substr PEASTF 2 2)) ;parts of coords (setq TQNORTH (substr PNORTHF 2 2)) (setq TQSQ (strcat TQEAST TQNORTH)) ;name of map (setq TQEASTSQ (atoi (substr PEASTF 4 2))) (setq TQNORTHSQ (atoi (substr PNORTHF 4 2))) (if (and (<= TQEASTSQ 50)(<= TQNORTHSQ 50)) (setq MAP "SW") ) (if (and (<= TQEASTSQ 50)(> TQNORTHSQ 50)) (setq MAP "NW") ) (if (and (> TQEASTSQ 50)(<= TQNORTHSQ 50)) (setq MAP "SE") ) (if (and (> TQEASTSQ 50)(> TQNORTHSQ 50)) (setq MAP "NE") ) ; (setq REPLY (strcat "Co-ordinates give TQ" TQSQ MAP)) (princ REPLY) (print) (setq MPATH "D:/LB SOUTHWARK/Southwark CAD files/Latest 500m2 tiles") ;"//lbs-spatial01/spatialdata/Mapping/Raw_Data/OS MasterMap/Southwark and environs coverage/DWG/Latest 500m2 tiles/") ;@ path for os maps (setq DPATH (strcat MPATH "TQ" TQSQ MAP)) (command "-layer" "make" "xrefs" "") (command "-xref" "O" DPATH "0,0" "" "" "") (command "ucs" "restore" "UCS1" ) (command "-LAYER" "F" "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "252" "*tq*" "C" "251" "*road" "C" "250" "*buildout,buildpk" "") (command "-LAYER" "F" "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" "C" "252" "*G80*" "C" "251" "*8010021" "C" "250" "*8010001" "" ) (command "expert" "0") )

A colleague of mine forwarded me a lisp routine which determines the OS TQ tile reference, however, the tile reference is displayed in the command bar. Is there a way that the reference can be printed on the screen in model space. The coding provided is as below: ;*** TQMAP ; prog to work which tq square is req ; the path to the tq sqs is in the prog ;if location of maps changes then this line has to change @ ;*** (defun C:TQ () (command "setvar" "insunits" "0") (command "setvar" "insunitsdefsource" "0") (command "setvar" "insunitsdeftarget" "0") (graphscr) (command "expert" "5") (command "ucs" "save" "UCS1" ) (command "ucs" "w" ) (setq P1 (getpoint "Pick suitable point ")) ;co ord (setq PEAST (car P1)) ;eastings (setq PNORTH (cadr P1)) ;northings (setq PEASTF (rtos PEAST 2 0)) ;conversion to string (setq PNORTHF (rtos PNORTH 2 0)) (setq TQEAST (substr PEASTF 2 2)) ;parts of coords (setq TQNORTH (substr PNORTHF 2 2)) (setq TQSQ (strcat TQEAST TQNORTH)) ;name of map (setq TQEASTSQ (atoi (substr PEASTF 4 2))) (setq TQNORTHSQ (atoi (substr PNORTHF 4 2))) (if (and (<= TQEASTSQ 50)(<= TQNORTHSQ 50)) (setq MAP "SW") ) (if (and (<= TQEASTSQ 50)(> TQNORTHSQ 50)) (setq MAP "NW") ) (if (and (> TQEASTSQ 50)(<= TQNORTHSQ 50)) (setq MAP "SE") ) (if (and (> TQEASTSQ 50)(> TQNORTHSQ 50)) (setq MAP "NE") ) ; (setq REPLY (strcat "Co-ordinates give TQ" TQSQ MAP)) (princ REPLY) (print) (setq MPATH "//Regensw2k-svr01/basemaps/1250/") ;@ path for os maps (setq DPATH (strcat MPATH "TQ" TQSQ MAP)) (command "-layer" "make" "xrefs" "") (command "-xref" "O" DPATH "0,0" "" "" "") (command "ucs" "restore" "UCS1" ) (command "-LAYER" "F" "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "252" "*tq*" "C" "251" "*road" "C" "250" "*buildout,buildpk" "") (command "-LAYER" "F" "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" "C" "252" "*G80*" "C" "251" "*8010021" "C" "250" "*8010001" "" ) ) ;*** TQMAP ; prog to work which tq square is req ; the path to the tq sqs is in the prog ;if location of maps changes then this line has to change @ ;*** (defun C:TQL () (command "setvar" "insunits" "0") (command "setvar" "insunitsdefsource" "0") (command "setvar" "insunitsdeftarget" "0") (graphscr) (command "expert" "5") (command "ucs" "save" "UCS1" ) (command "ucs" "w" ) (setq P1 (getpoint "Pick suitable point ")) ;co ord (setq PEAST (car P1)) ;eastings (setq PNORTH (cadr P1)) ;northings (setq PEASTF (rtos PEAST 2 0)) ;conversion to string (setq PNORTHF (rtos PNORTH 2 0)) (setq TQEAST (substr PEASTF 2 2)) ;parts of coords (setq TQNORTH (substr PNORTHF 2 2)) (setq TQSQ (strcat TQEAST TQNORTH)) ;name of map (setq TQEASTSQ (atoi (substr PEASTF 4 2))) (setq TQNORTHSQ (atoi (substr PNORTHF 4 2))) (if (and (<= TQEASTSQ 50)(<= TQNORTHSQ 50)) (setq MAP "SW") ) (if (and (<= TQEASTSQ 50)(> TQNORTHSQ 50)) (setq MAP "NW") ) (if (and (> TQEASTSQ 50)(<= TQNORTHSQ 50)) (setq MAP "SE") ) (if (and (> TQEASTSQ 50)(> TQNORTHSQ 50)) (setq MAP "NE") ) ; (setq REPLY (strcat "Co-ordinates give TQ" TQSQ MAP)) (princ REPLY) (print) (setq MPATH "P:/CGG/CAD/Data/Mapping/LBI/TQ-May2005/") ;@ path for os maps (setq DPATH (strcat MPATH "TQ" TQSQ MAP)) (command "-layer" "make" "xrefs" "") (command "-xref" "O" DPATH "0,0" "" "" "") (command "ucs" "restore" "UCS1" ) (command "-LAYER" "F" "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "252" "*tq*" "C" "251" "*road" "C" "250" "*buildout,buildpk" "") (command "-LAYER" "F" "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" "C" "252" "*G80*" "C" "251" "*8010021" "C" "250" "*8010001" "" ) (command "expert" "0") ) ;*** TQMAP ; prog to work which tq square is req ; the path to the tq sqs is in the prog ;if location of maps changes then this line has to change @ ;*** (defun C:TQQl () (command "setvar" "insunits" "0") (command "setvar" "insunitsdefsource" "0") (command "setvar" "insunitsdeftarget" "0") (graphscr) (COMMAND "UCS" "W") (SETQ TQ (getstring "\n TQ NUMBER ? ")) ;eastings (setq MPATH "P:/CGG/CAD/Data/Mapping/LBI/TQ-May2005/") ;@ path for os maps (setq DPATH (strcat MPATH TQ)) (command "-layer" "make" "xrefs" "") (command "-xref" "O" DPATH "0,0" "" "" "") (COMMAND "UCS" "P") ) ;*** TQMAP ; prog to work which tq square is req ; the path to the tq sqs is in the prog ;if location of maps changes then this line has to change @ ;*** (defun C:TQQ () (command "setvar" "insunits" "0") (command "setvar" "insunitsdefsource" "0") (command "setvar" "insunitsdeftarget" "0") (graphscr) (COMMAND "UCS" "W") (SETQ TQ (getstring "\n TQ NUMBER ? ")) ;eastings (setq MPATH "P:/CGG/CAD/Resources/OS-Data/") ;@ path for os maps (setq DPATH (strcat MPATH TQ)) (command "-layer" "make" "xrefs" "") (command "-xref" "O" DPATH "0,0" "" "" "") (COMMAND "UCS" "P") (command "-LAYER" "F" "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "253" "*tq*" "C" "252" "*road" "") (command "-LAYER" "F" "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" "C" "253" "*G80*" "C" "251" "*8010021" "") ) Thanks for your assist in advance guys.