乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 28|回复： 7

[编程交流] 操作系统磁贴参考

[复制链接]
Baber62

33

主题

117

帖子

85

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
170
发表于 2022-7-5 18:21:37 | 显示全部楼层 |阅读模式
我的一位同事向我转发了一个lisp例程，该例程确定OS TQ平铺引用，然而，平铺引用显示在命令栏中。是否有一种方法可以在模型空间的屏幕上打印参考。
 
提供的编码如下：
 
  3. ;*** TQMAP
  4. ; prog to work which tq square is req
  5. ; the path to the tq 
  6. sqs is in the prog
  7. ;if location of maps changes then this line has to change 
  8. @
  9. ;***
  12. (defun C:TQ ()
  13. (command "setvar" "insunits" "0")
  14. (command "setvar" 
  15. "insunitsdefsource" "0")
  16. (command "setvar" "insunitsdeftarget" 
  17. "0")
  18. (graphscr)
  19. (command "expert" "5")
  20. (command "ucs" "save" "UCS1" 
  21. )
  22. (command "ucs" "w" )   
  23. (setq P1 (getpoint "Pick suitable 
  24. point "))    ;co ord
  25. (setq PEAST (car 
  26. P1))       ;eastings
  27. (setq PNORTH (cadr 
  28. P1))       ;northings
  29. (setq PEASTF (rtos 
  30. PEAST 2 0))      ;conversion to string
  31. (setq 
  32. PNORTHF (rtos PNORTH 2 0))     
  34. (setq 
  35. TQEAST (substr PEASTF 2 2))     ;parts of 
  36. coords
  37. (setq TQNORTH (substr PNORTHF 2 2))
  38. (setq TQSQ (strcat TQEAST 
  39. TQNORTH))     ;name of map
  40. (setq TQEASTSQ (atoi 
  41. (substr PEASTF 4 2)))
  42. (setq TQNORTHSQ (atoi (substr PNORTHF 4 2)))
  46.  (if (and (<= TQEASTSQ 50)(<= TQNORTHSQ 50))
  47.  (setq 
  48. MAP "SW")
  49.  )
  52.  (if (and (<= TQEASTSQ 50)(> TQNORTHSQ 50))
  53.  (setq MAP 
  54. "NW")
  55.  )
  58.  (if (and (> TQEASTSQ 50)(<= TQNORTHSQ 50))
  59.  (setq MAP 
  60. "SE")
  61.  )
  64.  (if (and (> TQEASTSQ 50)(> TQNORTHSQ 50))
  65.  (setq MAP 
  66. "NE")
  67.  )
  70.       ;
  71. (setq REPLY (strcat 
  72. "Co-ordinates give TQ" TQSQ MAP))   
  73. (princ REPLY)
  74. (print)
  80. (setq MPATH 
  81. "//Regensw2k-svr01/basemaps/1250/")    ;@  path for os 
  82. maps
  83. (setq DPATH (strcat MPATH "TQ" TQSQ MAP))
  86. (command "-layer" "make" "xrefs" "")
  87. (command "-xref" "O" DPATH "0,0" "" 
  88. "" "")
  89. (command "ucs" "restore" "UCS1" )
  90. (command "-LAYER" "F" 
  91. "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "252" "*tq*" "C" 
  92. "251" "*road" "C" "250" "*buildout,buildpk" "")
  93. (command "-LAYER" "F" 
  94. "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" 
  95. "C" "252" "*G80*" "C" "251" "*8010021" "C" "250" "*8010001" "" )
  96. )
  100. ;*** TQMAP
  101. ; prog to work which tq square is req
  102. ; the path to the 
  103. tq sqs is in the prog
  104. ;if location of maps changes then this line has to 
  105. change @
  106. ;***
  109. (defun C:TQL ()
  110. (command "setvar" "insunits" "0")
  111. (command "setvar" 
  112. "insunitsdefsource" "0")
  113. (command "setvar" "insunitsdeftarget" 
  114. "0")
  115. (graphscr)
  116. (command "expert" "5")
  117. (command "ucs" "save" "UCS1" 
  118. )
  119. (command "ucs" "w" )    
  120. (setq P1 (getpoint "Pick 
  121. suitable point "))    ;co ord
  122. (setq PEAST (car 
  123. P1))       ;eastings
  124. (setq PNORTH (cadr 
  125. P1))       ;northings
  126. (setq PEASTF (rtos 
  127. PEAST 2 0))      ;conversion to string
  128. (setq 
  129. PNORTHF (rtos PNORTH 2 0))     
  131. (setq 
  132. TQEAST (substr PEASTF 2 2))     ;parts of 
  133. coords
  134. (setq TQNORTH (substr PNORTHF 2 2))
  135. (setq TQSQ (strcat TQEAST 
  136. TQNORTH))     ;name of map
  137. (setq TQEASTSQ (atoi 
  138. (substr PEASTF 4 2)))
  139. (setq TQNORTHSQ (atoi (substr PNORTHF 4 2)))
  143.  (if (and (<= TQEASTSQ 50)(<= TQNORTHSQ 50))
  144.  (setq 
  145. MAP "SW")
  146.  )
  149.  (if (and (<= TQEASTSQ 50)(> TQNORTHSQ 50))
  150.  (setq MAP 
  151. "NW")
  152.  )
  155.  (if (and (> TQEASTSQ 50)(<= TQNORTHSQ 50))
  156.  (setq MAP 
  157. "SE")
  158.  )
  161.  (if (and (> TQEASTSQ 50)(> TQNORTHSQ 50))
  162.  (setq MAP 
  163. "NE")
  164.  )
  167.       ;
  168. (setq REPLY (strcat 
  169. "Co-ordinates give TQ" TQSQ MAP))
  170. (princ REPLY)
  171. (print)
  174. (setq MPATH 
  175. "P:/CGG/CAD/Data/Mapping/LBI/TQ-May2005/")    ;@  path 
  176. for os maps
  177. (setq DPATH (strcat MPATH "TQ" TQSQ MAP))
  180. (command "-layer" "make" "xrefs" "")
  181. (command "-xref" "O" DPATH "0,0" "" 
  182. "" "")
  183. (command "ucs" "restore" "UCS1" )
  184. (command "-LAYER" "F" 
  185. "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "252" "*tq*" "C" 
  186. "251" "*road" "C" "250" "*buildout,buildpk" "")
  187. (command "-LAYER" "F" 
  188. "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" 
  189. "C" "252" "*G80*" "C" "251" "*8010021" "C" "250" "*8010001" "" )
  192. (command "expert" "0")
  195. )
  199. ;*** TQMAP
  200. ; prog to work which tq square is req
  201. ; the path to the 
  202. tq sqs is in the prog
  203. ;if location of maps changes then this line has to 
  204. change @
  205. ;***
  208. (defun C:TQQl ()
  209. (command "setvar" "insunits" "0")
  210. (command "setvar" 
  211. "insunitsdefsource" "0")
  212. (command "setvar" "insunitsdeftarget" 
  213. "0")
  214. (graphscr)
  215. (COMMAND "UCS" "W")
  216. (SETQ TQ (getstring "\n TQ NUMBER ? 
  217. "))     ;eastings
  218.     
  222. (setq MPATH 
  223. "P:/CGG/CAD/Data/Mapping/LBI/TQ-May2005/")    ;@  path 
  224. for os maps
  225. (setq DPATH (strcat MPATH TQ))
  228. (command "-layer" "make" "xrefs" "")
  229. (command "-xref" "O" DPATH "0,0" "" 
  230. "" "")
  231. (COMMAND "UCS" "P") 
  234. )
  238. ;*** TQMAP
  239. ; prog to work which tq square is req
  240. ; the path to the 
  241. tq sqs is in the prog
  242. ;if location of maps changes then this line has to 
  243. change @
  244. ;***
  247. (defun C:TQQ ()
  248. (command "setvar" "insunits" "0")
  249. (command "setvar" 
  250. "insunitsdefsource" "0")
  251. (command "setvar" "insunitsdeftarget" 
  252. "0")
  253. (graphscr)
  254. (COMMAND "UCS" "W")
  255. (SETQ TQ (getstring "\n TQ NUMBER ? 
  256. "))     ;eastings
  257.  
  258. (setq MPATH 
  259. "P:/CGG/CAD/Resources/OS-Data/")    ;@  path for os 
  260. maps
  261. (setq DPATH (strcat MPATH TQ))
  264. (command "-layer" "make" "xrefs" "")
  265. (command "-xref" "O" DPATH "0,0" "" 
  266. "" "")
  267. (COMMAND "UCS" "P")
  268. (command "-LAYER" "F" 
  269. "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "253" "*tq*" "C" 
  270. "252" "*road" "")
  271. (command "-LAYER" "F" 
  272. "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" 
  273. "C" "253" "*G80*" "C" "251" "*8010021" "")
  274. )

 
 
谢谢你们的帮助。
回复

使用道具 举报

Least

2

主题

53

帖子

57

银币

初来乍到

Rank: 1

铜币
14
发表于 2022-7-5 18:34:17 | 显示全部楼层
这是怎么回事？
  1. ;;;http://www.cadtutor.net/forum/showthread.php?94664-OS-tile-references
  3. ;*** TQMAP
  4. ; prog to work which tq square is req
  5. ; the path to the tq 
  6. sqs is in the prog
  7. ;if location of maps changes then this line has to change 
  8. @
  9. ;***
  12. (defun C:TQ ()
  13. (command "setvar" "insunits" "0")
  14. (command "setvar" 
  15. "insunitsdefsource" "0")
  16. (command "setvar" "insunitsdeftarget" 
  17. "0")
  18. (graphscr)
  19. (command "expert" "5")
  20. (command "ucs" "save" "UCS1" 
  21. )
  22. (command "ucs" "w" )   
  23. (setq P1 (getpoint "Pick suitable 
  24. point "))    ;co ord
  25. (setq PEAST (car 
  26. P1))       ;eastings
  27. (setq PNORTH (cadr 
  28. P1))       ;northings
  29. (setq PEASTF (rtos 
  30. PEAST 2 0))      ;conversion to string
  31. (setq 
  32. PNORTHF (rtos PNORTH 2 0))     
  34. (setq 
  35. TQEAST (substr PEASTF 2 2))     ;parts of 
  36. coords
  37. (setq TQNORTH (substr PNORTHF 2 2))
  38. (setq TQSQ (strcat TQEAST 
  39. TQNORTH))     ;name of map
  40. (setq TQEASTSQ (atoi 
  41. (substr PEASTF 4 2)))
  42. (setq TQNORTHSQ (atoi (substr PNORTHF 4 2)))
  46.  (if (and (<= TQEASTSQ 50)(<= TQNORTHSQ 50))
  47.  (setq 
  48. MAP "SW")
  49.  )
  52.  (if (and (<= TQEASTSQ 50)(> TQNORTHSQ 50))
  53.  (setq MAP 
  54. "NW")
  55.  )
  58.  (if (and (> TQEASTSQ 50)(<= TQNORTHSQ 50))
  59.  (setq MAP 
  60. "SE")
  61.  )
  64.  (if (and (> TQEASTSQ 50)(> TQNORTHSQ 50))
  65.  (setq MAP 
  66. "NE")
  67.  )
  70.       ;
  71. (setq REPLY (strcat 
  72. "Co-ordinates give TQ" TQSQ MAP))   
  73. (princ REPLY)
  74. (print)
  76. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  PB - Metrix 2015
  78. (SETQ DFLT 0)
  79. (SETQ TXTHG (GETVAR "textsize"))
  80. (PRINC "\nText Height: <")
  81. (PRIN1 TXTHG)
  82. (PRINC ">: ")
  83. (SETQ THGT (GETDIST))
  84. (IF (= THGT nil)
  85. (SETQ THGT TXTHG)
  86. )
  90. ; (SETQ PTXT (GETPOINT "\nLocate Text: "))
  92. (setq old_layer (getvar "clayer")); Get current Layer
  94. (SETVAR "cmdecho" 0)
  96. ;(setq PTXT (getvar "viewctr"))
  98. (COMMAND "layer" "se" "text" "")
  100. (COMMAND "text" P1 THGT "" REPLY)
  101. (command "move" "last" "" PTXT pause)
  103. (command "_layer" "S" old_layer ""); reset Layer
  104. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  108. (setq MPATH 
  109. "//Regensw2k-svr01/basemaps/1250/")    ;@  path for os 
  110. maps
  111. (setq DPATH (strcat MPATH "TQ" TQSQ MAP))
  114. (command "-layer" "make" "xrefs" "")
  115. (command "-xref" "O" DPATH "0,0" "" 
  116. "" "")
  117. (command "ucs" "restore" "UCS1" )
  118. (command "-LAYER" "F" 
  119. "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "252" "*tq*" "C" 
  120. "251" "*road" "C" "250" "*buildout,buildpk" "")
  121. (command "-LAYER" "F" 
  122. "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" 
  123. "C" "252" "*G80*" "C" "251" "*8010021" "C" "250" "*8010001" "" )
  124. )
  128. ;*** TQMAP
  129. ; prog to work which tq square is req
  130. ; the path to the 
  131. tq sqs is in the prog
  132. ;if location of maps changes then this line has to 
  133. change @
  134. ;***
  137. (defun C:TQL ()
  138. (command "setvar" "insunits" "0")
  139. (command "setvar" 
  140. "insunitsdefsource" "0")
  141. (command "setvar" "insunitsdeftarget" 
  142. "0")
  143. (graphscr)
  144. (command "expert" "5")
  145. (command "ucs" "save" "UCS1" 
  146. )
  147. (command "ucs" "w" )    
  148. (setq P1 (getpoint "Pick 
  149. suitable point "))    ;co ord
  150. (setq PEAST (car 
  151. P1))       ;eastings
  152. (setq PNORTH (cadr 
  153. P1))       ;northings
  154. (setq PEASTF (rtos 
  155. PEAST 2 0))      ;conversion to string
  156. (setq 
  157. PNORTHF (rtos PNORTH 2 0))     
  159. (setq 
  160. TQEAST (substr PEASTF 2 2))     ;parts of 
  161. coords
  162. (setq TQNORTH (substr PNORTHF 2 2))
  163. (setq TQSQ (strcat TQEAST 
  164. TQNORTH))     ;name of map
  165. (setq TQEASTSQ (atoi 
  166. (substr PEASTF 4 2)))
  167. (setq TQNORTHSQ (atoi (substr PNORTHF 4 2)))
  171.  (if (and (<= TQEASTSQ 50)(<= TQNORTHSQ 50))
  172.  (setq 
  173. MAP "SW")
  174.  )
  177.  (if (and (<= TQEASTSQ 50)(> TQNORTHSQ 50))
  178.  (setq MAP 
  179. "NW")
  180.  )
  183.  (if (and (> TQEASTSQ 50)(<= TQNORTHSQ 50))
  184.  (setq MAP 
  185. "SE")
  186.  )
  189.  (if (and (> TQEASTSQ 50)(> TQNORTHSQ 50))
  190.  (setq MAP 
  191. "NE")
  192.  )
  195.       ;
  196. (setq REPLY (strcat 
  197. "Co-ordinates give TQ" TQSQ MAP))
  198. (princ REPLY)
  199. (print)
  202. (setq MPATH 
  203. "P:/CGG/CAD/Data/Mapping/LBI/TQ-May2005/")    ;@  path 
  204. for os maps
  205. (setq DPATH (strcat MPATH "TQ" TQSQ MAP))
  208. (command "-layer" "make" "xrefs" "")
  209. (command "-xref" "O" DPATH "0,0" "" 
  210. "" "")
  211. (command "ucs" "restore" "UCS1" )
  212. (command "-LAYER" "F" 
  213. "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "252" "*tq*" "C" 
  214. "251" "*road" "C" "250" "*buildout,buildpk" "")
  215. (command "-LAYER" "F" 
  216. "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" 
  217. "C" "252" "*G80*" "C" "251" "*8010021" "C" "250" "*8010001" "" )
  220. (command "expert" "0")
  223. )
  227. ;*** TQMAP
  228. ; prog to work which tq square is req
  229. ; the path to the 
  230. tq sqs is in the prog
  231. ;if location of maps changes then this line has to 
  232. change @
  233. ;***
  236. (defun C:TQQl ()
  237. (command "setvar" "insunits" "0")
  238. (command "setvar" 
  239. "insunitsdefsource" "0")
  240. (command "setvar" "insunitsdeftarget" 
  241. "0")
  242. (graphscr)
  243. (COMMAND "UCS" "W")
  244. (SETQ TQ (getstring "\n TQ NUMBER ? 
  245. "))     ;eastings
  246.     
  250. (setq MPATH 
  251. "P:/CGG/CAD/Data/Mapping/LBI/TQ-May2005/")    ;@  path 
  252. for os maps
  253. (setq DPATH (strcat MPATH TQ))
  256. (command "-layer" "make" "xrefs" "")
  257. (command "-xref" "O" DPATH "0,0" "" 
  258. "" "")
  259. (COMMAND "UCS" "P") 
  262. )
  266. ;*** TQMAP
  267. ; prog to work which tq square is req
  268. ; the path to the 
  269. tq sqs is in the prog
  270. ;if location of maps changes then this line has to 
  271. change @
  272. ;***
  275. (defun C:TQQ ()
  276. (command "setvar" "insunits" "0")
  277. (command "setvar" 
  278. "insunitsdefsource" "0")
  279. (command "setvar" "insunitsdeftarget" 
  280. "0")
  281. (graphscr)
  282. (COMMAND "UCS" "W")
  283. (SETQ TQ (getstring "\n TQ NUMBER ? 
  284. "))     ;eastings
  285.  
  286. (setq MPATH 
  287. "P:/CGG/CAD/Resources/OS-Data/")    ;@  path for os 
  288. maps
  289. (setq DPATH (strcat MPATH TQ))
  292. (command "-layer" "make" "xrefs" "")
  293. (command "-xref" "O" DPATH "0,0" "" 
  294. "" "")
  295. (COMMAND "UCS" "P")
  296. (command "-LAYER" "F" 
  297. "*B_PT,*E_BY,*T_BY,*BMER,*G_PT,*PL_B,*GRID,*HTPT,*R_CL" "C" "253" "*tq*" "C" 
  298. "252" "*road" "")
  299. (command "-LAYER" "F" 
  300. "*8010010,*8010098,*8010321,*8010570,*8010571,*8010572,*8010573,*8010574,*8010575" 
  301. "C" "253" "*G80*" "C" "251" "*8010021" "")
  302. )
回复

使用道具 举报

Least

2

主题

53

帖子

57

银币

初来乍到

Rank: 1

铜币
14
发表于 2022-7-5 18:45:44 | 显示全部楼层
你有一个Lisp程序的其他瓷砖吗？
P
回复

使用道具 举报

Baber62

33

主题

117

帖子

85

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
170
发表于 2022-7-5 18:50:53 | 显示全部楼层
嗨，至少，
 
不过，只要稍微修改一下，就需要一个箭头来指向单击的位置。文本可以是带arial字体的多行文本吗？
 
谢谢
回复

使用道具 举报

Baber62

33

主题

117

帖子

85

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
170
发表于 2022-7-5 18:57:58 | 显示全部楼层
我目前没有访问任何其他瓷砖以外的TQ瓷砖，然而，当我今晚回家时，我应该可以访问英国各地的其他瓷砖，我会试试，并让你知道结果。
回复

使用道具 举报

Least

2

主题

53

帖子

57

银币

初来乍到

Rank: 1

铜币
14
发表于 2022-7-5 19:09:59 | 显示全部楼层
唯一可行的方法是制作一个属性块并将其插入到“P1”中，属性包含变量“REPLY”。
 
也许有人会来，我现在有点忙。
 
P
回复

使用道具 举报

Baber62

33

主题

117

帖子

85

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
170
发表于 2022-7-5 19:18:44 | 显示全部楼层
嗨，至少，
 
尝试使用这些坐标548237099194，这是一个位于南部靠近海岸的Seaford。它在屏幕上显示坐标，得到TQ4891NW，而使用英国网格查找器，得到“TV 48237 99194”，因此TQ的值随TV而变化。因此，这个Lisp程序虽然可以说是伦敦地区，但它并没有覆盖整个英国。我将尝试获得每个TQ、TV或T的转角坐标？然后从那里拿走。
 
谢谢你的帮助。
回复

使用道具 举报

eldon

8

主题

1133

帖子

1164

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 19:29:52 | 显示全部楼层
您使用的lisp程序超出了其引用的参数。它的标题仅适用于TQ互动程序，因此您不应该期望它为您提供电视互动程序
 
如果您查看工作，它期望北距为六个有效数字，而您的示例只有五个有效数字（前导零不是有效数字），因此难怪它会给出意外的结果。
 
操作系统有一个很好的在线瓷砖查找器
192143uzt2v73cytllfqqu.png
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-12 19:39 , Processed in 0.497784 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表