地形图查询脚本代码修改失败，求帮助

yukyman

各位大神，我现在有个脚本，是这样运行的：
在CAD中，输入“dxt” ，然后鼠标单击获取一点，根据点的位置计算出编码，以编码为文件名，对应一个文件，然后以外部参照的形式插入文件。现成有一个可用的脚本，但是现在有新的文件，文件名称编码不一样，我现在已经修改了编码的方式，但是脚本运行不起来，提示说“参数类型错误: stringp nil”。已经检查好几遍了，我是菜鸟，但是找不出问题所在，请大家帮忙看下，在线等

ZZXXQQ

不知道行不行

2. ;;; 命令tuh dxt rdx dx5k rdx5k tuh5k
   
3. ;;; 引入地形图，先引用1:500，没有再引用1:1000
   
4. (defun c:dxt (/ po x y mpname1000)
   
5.   (setvar "cmdecho" 0)
   
6.   (while (setq po (getpoint "\n拾取一点插入地形，右键退出："))
   
7.     (setq x (car po) y (cadr po))
   
8.     (calth1000 y x)
   
9.     (setq mpname1000 (strcat "E:/2014/2/" strmapname ".dwg"))
   
10.     (if (findfile mpname1000)
    
11.       (command "xref" "" mpname1000 "0,0,0" "" "" "")
    
12.       (princ "\nSorry,无此处1000比例的地形图\n")
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    
17. ;;; 退出引用的地形图
    
18. (defun c:rdx (/ po1 x y mpname1000 strmapname1000 )
    
19.   (setvar "cmdecho" 0)
    
20.   (while (setq po1 (getpoint "\n拾取一点卸载地形，右键退出："))
    
21.     (setq x (car po1) y (cadr po1))
    
22.     (calth1000 y x)
    
23.     (setq mpname1000 strmapname)
    
24.     (setq strmapname1000 (strcat "E:/2014/2/" strmapname ".dwg" ))
    
25.     (if (findfile strmapname1000)
    
26.       (command "xref" "d" mpname1000)
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. ;;; ===========
    
32. ;;; make sure this point within the map,so as to calculate the tkname correctly
    
33. ;;; 图名
    
34. (defun sheetid (); calculate the first letter of the sheetID
    
35.   (setq istate1 (fix (/ fy 1000)))
    
36.   (setq strmapname (itoa istate1))
    
37.   (setq istate2 (fix (/ fx 100)))
    
38.   (setq istate00 (/ (- istate2 672) 8))
    
39.   (if (/= istate00 (fix istate00))
    
40.     (setq strmapname (strcat strmapname "-" (itoa (fix (+ (* (fix istate00) 0.8) 67.2)))))
    
41.     (setq strmapname (strcat strmapname "-" (itoa istate2)))
    
42.   )
    
43. )
    
44. ;;; 计算1000的图号
    
45. (defun calth1000 (fx fy / istate5 istate3 istate4)
    
46.   (sheetid)
    
47.   (setq istate5 (- (fix (/ fx 80)) (* (fix (/ fx 800)) 10)))
    
48.   (setq istate3 (- (fix (/ fy 100)) (* (fix (/ fy 1000)) 10)))
    
49.   (if (and (= istate5 7) (= istate3 0)) (setq istate4 "1"))
    
50.   (if (and (= istate5 7) (= istate3 2)) (setq istate4 "2"))
    
51.   (if (and (= istate5 7) (= istate3 5)) (setq istate4 "3"))
    
52.   (if (and (= istate5 7) (= istate3 7)) (setq istate4 "4"))
    
53.   (if (and (= istate5 5) (= istate3 0)) (setq istate4 "5"))
    
54.   (if (and (= istate5 5) (= istate3 2)) (setq istate4 "6"))
    
55.   (if (and (= istate5 5) (= istate3 5)) (setq istate4 "7"))
    
56.   (if (and (= istate5 5) (= istate3 7)) (setq istate4 "8"))
    
57.   (if (and (= istate5 2) (= istate3 0)) (setq istate4 "9"))
    
58.   (if (and (= istate5 2) (= istate3 2)) (setq istate4 "10"))
    
59.   (if (and (= istate5 2) (= istate3 5)) (setq istate4 "11"))
    
60.   (if (and (= istate5 2) (= istate3 7)) (setq istate4 "12"))
    
61.   (if (and (= istate5 0) (= istate3 0)) (setq istate4 "13"))
    
62.   (if (and (= istate5 0) (= istate3 2)) (setq istate4 "14"))
    
63.   (if (and (= istate5 0) (= istate3 5)) (setq istate4 "15"))
    
64.   (if (and (= istate5 0) (= istate3 7)) (setq istate4 "16"))
    
65.   (setq strmapname (strcat strmapname "-" istate4))
    
66. ;(princ (strcat "图号" strmapname "ok\n"))
    
67. )
    
68. (princ)
    

;;; 命令tuh dxt rdx dx5k rdx5k tuh5k<br /> ;;; 引入地形图，先引用1:500，没有再引用1:1000<br /> (defun c:dxt (/ po x y mpname1000)<br />   (setvar "cmdecho" 0)<br />   (while (setq po (getpoint "\n拾取一点插入地形，右键退出："))<br />     (setq x (car po) y (cadr po))<br />     (calth1000 y x)<br />     (setq mpname1000 (strcat "E:/2014/2/" strmapname ".dwg"))<br />     (if (findfile mpname1000)<br />       (command "xref" "" mpname1000 "0,0,0" "" "" "")<br />       (princ "\nSorry,无此处1000比例的地形图\n")<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;; 退出引用的地形图<br /> (defun c:rdx (/ po1 x y mpname1000 strmapname1000 )<br />   (setvar "cmdecho" 0)<br />   (while (setq po1 (getpoint "\n拾取一点卸载地形，右键退出："))<br />     (setq x (car po1) y (cadr po1))<br />     (calth1000 y x)<br />     (setq mpname1000 strmapname)<br />     (setq strmapname1000 (strcat "E:/2014/2/" strmapname ".dwg" ))<br />     (if (findfile strmapname1000)<br />       (command "xref" "d" mpname1000)<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;; ===========<br /> ;;; make sure this point within the map,so as to calculate the tkname correctly<br /> ;;; 图名<br /> (defun sheetid (); calculate the first letter of the sheetID<br />   (setq istate1 (fix (/ fy 1000)))<br />   (setq strmapname (itoa istate1))<br />   (setq istate2 (fix (/ fx 100)))<br />   (setq istate00 (/ (- istate2 672) 8))<br />   (if (/= istate00 (fix istate00))<br />     (setq strmapname (strcat strmapname "-" (itoa (fix (+ (* (fix istate00) 0.8) 67.2)))))<br />     (setq strmapname (strcat strmapname "-" (itoa istate2)))<br />   )<br /> )<br /> ;;; 计算1000的图号<br /> (defun calth1000 (fx fy / istate5 istate3 istate4)<br />   (sheetid)<br />   (setq istate5 (- (fix (/ fx 80)) (* (fix (/ fx 800)) 10)))<br />   (setq istate3 (- (fix (/ fy 100)) (* (fix (/ fy 1000)) 10)))<br />   (if (and (= istate5 7) (= istate3 0)) (setq istate4 "1"))<br />   (if (and (= istate5 7) (= istate3 2)) (setq istate4 "2"))<br />   (if (and (= istate5 7) (= istate3 5)) (setq istate4 "3"))<br />   (if (and (= istate5 7) (= istate3 7)) (setq istate4 "4"))<br />   (if (and (= istate5 5) (= istate3 0)) (setq istate4 "5"))<br />   (if (and (= istate5 5) (= istate3 2)) (setq istate4 "6"))<br />   (if (and (= istate5 5) (= istate3 5)) (setq istate4 "7"))<br />   (if (and (= istate5 5) (= istate3 7)) (setq istate4 "8"))<br />   (if (and (= istate5 2) (= istate3 0)) (setq istate4 "9"))<br />   (if (and (= istate5 2) (= istate3 2)) (setq istate4 "10"))<br />   (if (and (= istate5 2) (= istate3 5)) (setq istate4 "11"))<br />   (if (and (= istate5 2) (= istate3 7)) (setq istate4 "12"))<br />   (if (and (= istate5 0) (= istate3 0)) (setq istate4 "13"))<br />   (if (and (= istate5 0) (= istate3 2)) (setq istate4 "14"))<br />   (if (and (= istate5 0) (= istate3 5)) (setq istate4 "15"))<br />   (if (and (= istate5 0) (= istate3 7)) (setq istate4 "16"))<br />   (setq strmapname (strcat strmapname "-" istate4))<br /> ;(princ (strcat "图号" strmapname "ok\n"))<br /> )<br /> (princ)<br />

yukyman

ZZXXQQ 发表于 2014-9-11 19:50
不知道行不行

谢谢，帮我纠正了一些错误，我自己又修改了一些代码，现在可以用了