使用lisp插入操作系统互动程序
这一例行程序在几周前就开始发挥作用了。现在它给了我以下错误：*无效*
; 错误：功能已取消
我尝试过改变操作系统磁贴的存储路径，但似乎没有任何效果。如果有人能调查此事，我将不胜感激。
(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")
) 也许MPATH值应该以路径分隔符结尾？ 谢谢Roy_043，成功了。
更改了以下行：
(setq MPATH "D:/LB SOUTHWARK/Southwark CAD files/Latest 500m2 tiles")
到
(setq MPATH "D:/LB SOUTHWARK/Southwark CAD files/Latest 500m2 tiles/")
页:
[1]