Hi,
I have my drawings for ordnance survey tiles saved in a directory located at G:\LB SOUTHWARK\Southwark CAD files\TQ Mastermap. The drawings are labelled in the format TQ3474NE, TQ3474NW, TQ3474SE, TQ3474SW. I have a routine which can determine the ordnance tile required, however, rather than letting me know the tile required I would like the tile to be inserted into the drawing as an xref with base point as 0,0,0.
Please note that I'm only interested in the TQ command in the coding given below:
;; TQ tile ref
;;
;;
;;
;;;http://www.cadtutor.net/forum/showthread.php?94664-OS-tile-references
;*** 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)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PB - Metrix 2015
(SETQ DFLT 0)
(SETQ TXTHG (GETVAR "textsize"))
(PRINC "\nText Height: <")
(PRIN1 TXTHG)
(PRINC ">: ")
(SETQ THGT (GETDIST))
(IF (= THGT nil)
(SETQ THGT TXTHG)
)
; (SETQ PTXT (GETPOINT "\nLocate Text: "))
(setq old_layer (getvar "clayer")); Get current Layer
(SETVAR "cmdecho" 0)
;(setq PTXT (getvar "viewctr"))
(COMMAND "layer" "se" "text" "")
(COMMAND "text" P1 THGT "" REPLY)
(command "move" "last" "" PTXT pause)
(command "_layer" "S" old_layer ""); reset Layer
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 in advance for your assist.
