autolisp求助！导出坐标怎么实现最后一行重复首行坐标

gaics

世界的一滴 发表于 2020-4-19 15:56
大神 这段代码运行后显示 错误: 参数类型错误: numberp: nil  请问是哪里的问题啊
(defun c:sbzb (/ ffn f ...

2. (defun c:sbzb (/ ffn ff ss mh pp n i mj xh tx ty)
   
3.   (setvar "cmdecho" 0)
   
4.   (vl-load-com)
   
5.   (setq ss (ssget '((0 . "*LINE"))))
   
6.   (setq        ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)
   
7.         ff  (open ffn "w")
   
8.   )
   
9.   (write-line "[属性描述]" ff)
   
10.   (write-line "格式版本号=1.01版本" ff)
    
11.   (write-line "数据产生单位=" ff)
    
12.   (write-line "数据产生日期=20" ff)
    
13.   (write-line "坐标系=国家大地坐标系" ff)
    
14.   (write-line "几度分带=3" ff)
    
15.   (write-line "投影类型=高斯克吕格" ff)
    
16.   (write-line "计量单位=米" ff)
    
17.   (write-line "带号=41" ff)
    
18.   (write-line "精度=3" ff)
    
19.   (write-line "转换参数=0,0,0,0,0,0,1" ff)
    
20.   (write-line "[地块坐标]" ff)
    
21.   (setq i 0)
    
22.   (repeat (sslength ss)
    
23.     (command "area" "o" (ssname ss i))
    
24.     (setq mj (getvar "area"))
    
25.     (setq mj (rtos (* mj 0.0001) 2 4)
    
26.           mh (strcat (itoa (1+ i))
    
27.                      ","
    
28.                      mj
    
29.                      ",1,开发区,面,J51G067033J51G067034,仓储用地,063,@"
    
30.              )
    
31.     )
    
32.     (write-line mh ff)
    
33.     (setq ssdata (entget (ssname ss i))
    
34.           n         0
    
35.           xh         0
    
36.     )
    
37.     (repeat (length ssdata)
    
38.       (setq pp        (nth n ssdata)
    
39.             key        (car pp)
    
40.       )
    
41.       (if (= key 10)
    
42.         (progn
    
43.           (setq        tx (strcat "J"
    
44.                            (itoa (1+ xh))
    
45.                            ","
    
46.                            "1"
    
47.                            ","
    
48.                            (rtos (caddr pp) 2 3)
    
49.                            ","
    
50.                            (rtos (cadr pp) 2 3)
    
51.                    )
    
52.           )
    
53.           (write-line tx ff)
    
54.           (if (= xh 0)
    
55.             (setq ty tx)
    
56.           )
    
57.           (setq xh (1+ xh))
    
58.         )
    
59.       )
    
60.       (setq n (1+ n))
    
61.     )
    
62.     (write-line ty ff)
    
63.     (setq i (1+ i))
    
64.   )
    
65.   (close ff)
    
66.   (setvar "cmdecho" 1)
    
67.   (princ (strcat "\n 坐标写至=>" ffn))
    
68.   (princ (strcat "\n 共提取" (itoa xh) "个坐标点"))
    
69.   (princ)
    
70. )

(defun c:sbzb (/ ffn ff ss mh pp n i mj xh tx ty)<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   (setq ss (ssget '((0 . "*LINE"))))<br />   (setq        ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)<br />         ff  (open ffn "w")<br />   )<br />   (write-line "[属性描述]" ff)<br />   (write-line "格式版本号=1.01版本" ff)<br />   (write-line "数据产生单位=" ff)<br />   (write-line "数据产生日期=20" ff)<br />   (write-line "坐标系=国家大地坐标系" ff)<br />   (write-line "几度分带=3" ff)<br />   (write-line "投影类型=高斯克吕格" ff)<br />   (write-line "计量单位=米" ff)<br />   (write-line "带号=41" ff)<br />   (write-line "精度=3" ff)<br />   (write-line "转换参数=0,0,0,0,0,0,1" ff)<br />   (write-line "[地块坐标]" ff)<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (command "area" "o" (ssname ss i))<br />     (setq mj (getvar "area"))<br />     (setq mj (rtos (* mj 0.0001) 2 4)<br />           mh (strcat (itoa (1+ i))<br />                      ","<br />                      mj<br />                      ",1,开发区,面,J51G067033J51G067034,仓储用地,063,@"<br />              )<br />     )<br />     (write-line mh ff)<br />     (setq ssdata (entget (ssname ss i))<br />           n         0<br />           xh         0<br />     )<br />     (repeat (length ssdata)<br />       (setq pp        (nth n ssdata)<br />             key        (car pp)<br />       )<br />       (if (= key 10)<br />         (progn<br />           (setq        tx (strcat "J"<br />                            (itoa (1+ xh))<br />                            ","<br />                            "1"<br />                            ","<br />                            (rtos (caddr pp) 2 3)<br />                            ","<br />                            (rtos (cadr pp) 2 3)<br />                    )<br />           )<br />           (write-line tx ff)<br />           (if (= xh 0)<br />             (setq ty tx)<br />           )<br />           (setq xh (1+ xh))<br />         )<br />       )<br />       (setq n (1+ n))<br />     )<br />     (write-line ty ff)<br />     (setq i (1+ i))<br />   )<br />   (close ff)<br />   (setvar "cmdecho" 1)<br />   (princ (strcat "\n 坐标写至=>" ffn))<br />   (princ (strcat "\n 共提取" (itoa xh) "个坐标点"))<br />   (princ)<br /> )

世界的一滴

gaics 发表于 2020-4-19 18:58

大神 我想问两个问题 1是  把字符串转数值的语句是什么 例如  把 “5” 变成5
                               2是  获取多段线顶点个数的语句是什么    可否帮忙解惑

gaics

(rtos "5" 2 "精度")
顶点数可以通过代码中的“xh”获得。总的顶点数是xh*i

世界的一滴

gaics 发表于 2020-4-19 20:05
(rtos "5" 2 "精度")
顶点数可以通过代码中的“i”获得

感谢大神为小白答疑解惑
然吾资历尚浅，仍需时日以顿悟，
今之所言，甚是感激~

gaics

世界的一滴 发表于 2020-4-19 20:09
感谢大神为小白答疑解惑
然吾资历尚浅，仍需时日以顿悟，
今之所言，甚是感激~

刚看了一下，i和xh搞反了，现在更正过来，代码见11楼。
i是选择的多段线数量，xh是顶点数量。
但是(princ (strcat "\n 共提取" (itoa xh) "个坐标点"))返回的只是最后一条多段线的顶点数量，不知你想得到的是每一条多段线的顶点数，还是所有顶点数。

世界的一滴

gaics 发表于 2020-4-19 20:34
刚看了一下，i和xh搞反了，现在更正过来，代码见11楼。
i是选择的多段线数量，xh是顶点数量。
但是(pri ...

是一条多段线所有顶点的个数 比如矩形 就是4个顶点

世界的一滴

gaics 发表于 2020-4-19 20:34
刚看了一下，i和xh搞反了，现在更正过来，代码见11楼。
i是选择的多段线数量，xh是顶点数量。
但是(pri ...

是一条多段线所有顶点的个数 比如矩形 就是4个顶点

世界的一滴

gaics 发表于 2020-4-19 20:34
刚看了一下，i和xh搞反了，现在更正过来，代码见11楼。
i是选择的多段线数量，xh是顶点数量。
但是(pri ...

是一条多段线所有顶点的个数 比如矩形 就是4个顶点

niqiu8

你这个是用LISP导出报部里的界址点坐标TXT功能吧，CAD做这个有个问题，不能识别环洞，还有就是不能解决自相交的问题。

屋檐下的路人

学习~~~~~~~~~~~~~~~~~~~~~~~~