现已知大量的两点坐标(数据),需要分别把这两点连成直线.

myfreemind

数据格式是怎样的？发一个上来，程序才好做！

meflying

好歹也给个说明啊。。。


怎么别人问你一点你就说一点，你不想一次都说清楚点吗？

meflying

就是要问你，那些字母表示什么，别人跟你的行业不同，一些符号是看不懂的

meflying

注意文本的书写格式保持一致

2. (defun DelSpace(a / n i str strtmp)
3.    (setq n (strlen a))
4.    (setq i 1)
5.    (setq str (substr a 1 1))
6.    (while (= (substr a i 1) " ")
7.        (setq str (substr a (1+ i) 1))
8.        (setq i (1+ i))
9.    )
10.    (setq i (1+ i))
11.    (while (<= i n)
12.        (setq strtmp (substr a i 1))
13.        (if (/= strtmp " ")
14.            (setq str (strcat str strtmp))
15.        )
16.        (setq i (1+ i))
17.    )
18.    str
19. )(defun ReadStr(str_line / str i ch strtmp lst ch_old)
20.    (setq str str_line)
21.    (setq i 1)
22.    (setq strtmp "")
23.    (setq lst nil)
24.    (repeat (strlen str)
25.        (setq ch (substr str i 1))
26.        (if (or (and (>= (ascii ch) 48) (<= (ascii ch) 57)) (= ch "."))
27.            (if (or (and (>= (ascii ch_old) 48) (<= (ascii ch_old) 57)) (= ch_old ".") (= ch_old "="))
28.   (setq strtmp (strcat strtmp ch))
29.            )
30.            (progn
31.   (if (/= strtmp "")
32.      (setq lst (append lst (list (atof strtmp))))
33.   )
34.   (setq strtmp "")  
35.            )
36.        )
37.        (setq ch_old ch)
38.        (setq i (1+ i))
39.    )
40.    (if (or (and (>= (ascii ch) 48) (<= (ascii ch) 57)) (= ch "."))
41.        (setq lst (append lst (list (atof strtmp))))
42.    )
43.    lst
44. )
45.       
46. ;函数ReadTet
47. ;功能:选择文本文件,将文件中数据读入程序
48. (defun ReadText( / fname f str pt_lst)
49.    (setq fname (getfiled "选择输入文件" "" "txt" 0));选择文件
50.    (if fname
51.        (progn
52.            (setq f (open fname "r"));打开文件
53.            ;循环读取数据,每组以X\t\tY\t\tZ标识,读取前要保证文本格式的正确性,以程序生成的为准
54.            (while (setq str (read-line f))
55.   (setq str (delspace str))
56.   (if (= (strcase (substr str 1 1)) "X")
57.      (progn
58.          (setq pt (ReadStr str))
59.          (setq pt1 (list (car pt) (cadr pt)))
60.          (setq pt2 (list (caddr pt) (cadddr pt)))
61.          (setq pt_lst (append pt_lst (list (list pt1 pt2))))
62.      )
63.   )
64.            );while
65.            (close f);关闭文件
66.        );progn
67.    );if
68.    pt_lst
69. )(defun c:test( / pt_lst os)
70.    (setq pt_lst (ReadText))
71.    (setq os (getvar "osmode"))
72.    (setvar "osmode" 0)
73.    (mapcar '(lambda(e) (command "_.line" (car e) (cadr e) "")) pt_lst)
74.    (setvar "osmode" os)
75.    (princ)
76. )

(defun DelSpace(a / n i str strtmp)    (setq n (strlen a))    (setq i 1)    (setq str (substr a 1 1))    (while (= (substr a i 1) " ")        (setq str (substr a (1+ i) 1))        (setq i (1+ i))    )    (setq i (1+ i))    (while (<= i n)        (setq strtmp (substr a i 1))        (if (/= strtmp " ")            (setq str (strcat str strtmp))        )        (setq i (1+ i))    )    str )(defun ReadStr(str_line / str i ch strtmp lst ch_old)    (setq str str_line)    (setq i 1)    (setq strtmp "")    (setq lst nil)    (repeat (strlen str)        (setq ch (substr str i 1))        (if (or (and (>= (ascii ch) 48) (<= (ascii ch) 57)) (= ch "."))            (if (or (and (>= (ascii ch_old) 48) (<= (ascii ch_old) 57)) (= ch_old ".") (= ch_old "="))   (setq strtmp (strcat strtmp ch))            )            (progn   (if (/= strtmp "")      (setq lst (append lst (list (atof strtmp))))   )   (setq strtmp "")              )        )        (setq ch_old ch)        (setq i (1+ i))    )    (if (or (and (>= (ascii ch) 48) (<= (ascii ch) 57)) (= ch "."))        (setq lst (append lst (list (atof strtmp))))    )    lst )        ;函数ReadTet ;功能:选择文本文件,将文件中数据读入程序 (defun ReadText( / fname f str pt_lst)    (setq fname (getfiled "选择输入文件" "" "txt" 0));选择文件    (if fname        (progn            (setq f (open fname "r"));打开文件            ;循环读取数据,每组以X\t\tY\t\tZ标识,读取前要保证文本格式的正确性,以程序生成的为准            (while (setq str (read-line f))   (setq str (delspace str))   (if (= (strcase (substr str 1 1)) "X")      (progn          (setq pt (ReadStr str))          (setq pt1 (list (car pt) (cadr pt)))          (setq pt2 (list (caddr pt) (cadddr pt)))          (setq pt_lst (append pt_lst (list (list pt1 pt2))))      )   )            );while            (close f);关闭文件        );progn    );if    pt_lst )(defun c:test( / pt_lst os)    (setq pt_lst (ReadText))    (setq os (getvar "osmode"))    (setvar "osmode" 0)    (mapcar '(lambda(e) (command "_.line" (car e) (cadr e) "")) pt_lst)    (setvar "osmode" os)    (princ) )

myfreemind

将MEFLYING的代码存为lsp文件，然后在AUTOCAD的命令行中敲appload,将文件读入,就可以运行了！