求助——想通过循环来画很多个三角形，希望高手帮我看看

泓宇

我得到一组txt的点的坐标，数据量很大。现在希望每七个点画一个三角形，这样画出很多的三角形。txt中坐标的值已经按照一定的顺序排列好了，每一行的后三个数据是点的x，y，z坐标。现在不知道怎么通过循环来写这个代码。所以来求助。下面有我自己写的一些：
刚刚接触lisp，请大大多多赐教。先谢谢了~

(defun xiang
(setq file (getfiled "选择文件..." "" "" 8))
(setq f (open file "r"))
(setq n (getint "输入单元数:"))

(repeat n                                ;;大循环 这个n怎么确定？设定为人工输入


(repeat 7                                ;;小循环
(setq j 0)
(setq j (1+ j))
                                         ;;(set (read (strcat "x" (itoa i))) x) 把x的值赋值给形如xn的形式的字符串(就是xi的意思)
(setq str (read-line f))                  ;;读取一次f，读取一行数据
(setq x (substr str 15 17))                     ;;读取一行数据中的第3到6个数据，也就是我的第一点坐标                           
(setq x (atof x))                           ;;得到第一点x坐标   但是数据会全部在一起了，没有分成三个数据
(setq y (substr str 32 17))                    ;;读取一行数据中的第3到6个数据，也就是我的第一点坐标 但是
(setq y (atof y))                          ;;得到第一点y坐标   但是数据会全部在一起了，没有分成三个数据
(setq z (substr str 49 ))                    ;;读取一行数据中的第3到6个数据，也就是我的第一点坐标 但是   
(setq z (atof z))                        ;;得到第一点z坐标   但是数据会全部在一起了，没有分成三个数据
(setq p (list x y z))                          ;;得到第一个点
(set (read (strcat "p" (itoa j))) p)     ;;把p赋值给pi（read这个函数整个表示pi）这里得到很多p1  p2  。。。pi

(command "pline" p1 p2 p3 p4 p5 p6 p7 "")
)                                            ;;得到很多的点了    小循环结束，画出一个三角形

)                                        ;;大循环结束
(close f)

)

Andyhon

2. 
   
3. 
   
4. (defun xiang_A (str)
   
5.       ;; 小循環
   
6.       ;; 讀取一行數據
   
7.       ;; (setq str "     257     1       15.8750000         .0000000         .0000000")
   
8.       (setq x (substr str 15 17))
   
9.       ;;讀取一行數據中的第3到6個數據，也就是我的第一點坐標
   
10.       (setq x (atof x))
    
11.       ;;得到第一點x坐標   但是數據會全部在一起了，沒有分成三個數據
    
12.       (setq y (substr str 32 17))
    
13.       ;;讀取一行數據中的第3到6個數據，也就是我的第一點坐標 但是
    
14.       (setq y (atof y))
    
15.       ;;得到第一點y坐標   但是數據會全部在一起了，沒有分成三個數據
    
16.       (setq z (substr str 49))
    
17.       ;;讀取一行數據中的第3到6個數據，也就是我的第一點坐標 但是
    
18.       (setq z (atof z))
    
19.       ;;得到第一點z坐標   但是數據會全部在一起了，沒有分成三個數據
    
20.       
    
21.       (list x y z)
    
22. )
    
23. (defun xiang ()
    
24.   (setq file (getfiled "選擇文件..." "" "" 8))
    
25.   (setq f (open file "r")
    
26.       pts nil
    
27. i  0
    
28.   )
    
29.   ;; (setq n (getint "輸入單元數:"))
    
30.   (setvar "CmdEcho" 0)
    
31.   (setvar "OsMode" 0)
    
32.   (while (setq str (read-line f))
    
33.     (setq pts (cons (xiang_A str) pts)
    
34.    i   (1+ i)
    
35.     )
    
36.     (cond
    
37.       ;;得到很多的點了    小循環結束，畫出一個三角形
    
38.       ((= i 7)
    
39.        (Command "_PLINE")
    
40.        (mapcar 'Command pts)
    
41.        (Command "")
    
42.        (setq pts nil
    
43.       i  0
    
44.        )
    
45.       )
    
46.     )
    
47.   )
    
48.   ;;大循環結束
    
49.   (close f)
    
50.   (setvar "OsMode" 39)
    
51.   (setvar "CmdEcho" 0)
    
52. )
    

<br /> <br /> (defun xiang_A (str)<br />       ;; 小循環<br />       ;; 讀取一行數據<br />       ;; (setq str "     257     1       15.8750000         .0000000         .0000000")<br />       (setq x (substr str 15 17))<br />       ;;讀取一行數據中的第3到6個數據，也就是我的第一點坐標<br />       (setq x (atof x))<br />       ;;得到第一點x坐標   但是數據會全部在一起了，沒有分成三個數據<br />       (setq y (substr str 32 17))<br />       ;;讀取一行數據中的第3到6個數據，也就是我的第一點坐標 但是<br />       (setq y (atof y))<br />       ;;得到第一點y坐標   但是數據會全部在一起了，沒有分成三個數據<br />       (setq z (substr str 49))<br />       ;;讀取一行數據中的第3到6個數據，也就是我的第一點坐標 但是<br />       (setq z (atof z))<br />       ;;得到第一點z坐標   但是數據會全部在一起了，沒有分成三個數據<br />       <br />       (list x y z)<br /> )<br /> (defun xiang ()<br />   (setq file (getfiled "選擇文件..." "" "" 8))<br />   (setq f (open file "r")<br />       pts nil<br /> i  0<br />   )<br />   ;; (setq n (getint "輸入單元數:"))<br />   (setvar "CmdEcho" 0)<br />   (setvar "OsMode" 0)<br />   (while (setq str (read-line f))<br />     (setq pts (cons (xiang_A str) pts)<br />    i   (1+ i)<br />     )<br />     (cond<br />       ;;得到很多的點了    小循環結束，畫出一個三角形<br />       ((= i 7)<br />        (Command "_PLINE")<br />        (mapcar 'Command pts)<br />        (Command "")<br />        (setq pts nil<br />       i  0<br />        )<br />       )<br />     )<br />   )<br />   ;;大循環結束<br />   (close f)<br />   (setvar "OsMode" 39)<br />   (setvar "CmdEcho" 0)<br /> )<br />

泓宇

Andyhon 发表于 2012-11-3 18:28

谢谢，我先研究一下……

langjs

(defun c:zz (/ fil file lst nu snap str)
  (vl-load-com)
  (setq snap (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq fil (getfiled "打开数据表" "" "txt" 0))
  (setq file (open fil "r")
        lst '()
        str (read-line file)
  )
  (while str
    (setq lst (cons (strtolst str) lst))
    (setq str (read-line file))
  )
  (setq lst (reverse lst))
  (close file)
  (repeat (fix (/ (length lst) 7))
    (command "pline")
    (repeat 7
      (setq nu (car lst))
      (command (list (nth 2 nu) (nth 3 nu) (nth 4 nu)))
      (setq lst (cdr lst))
    )
    (command "C")
  )
  (setvar "osmode" snap)
  (princ)
)
(defun strtolst (str / i ls lst st str1) ; 提取字符串中的数字转化为实数表
  (setq ls '("0" "1"
         "2" "3"
         "4" "5"
         "6" "7"
         "8" "9"
         "." "-"
        )
  )
  (setq i 1
        str1 ""
        lst '()
  )
  (repeat (strlen str)
    (if (member (setq st (substr str i 1))
                ls
        )
      (setq str1 (strcat str1 st))
      (if (/= str1 "")
        (setq lst (cons (atof str1) lst)
              str1 ""
        )
      )
    )
    (setq i (1+ i))
  )
  (if (member st ls)
    (setq lst (cons (atof str1) lst))
  )
  (reverse lst)
)

Andyhon

2. 
   
3. ;;; 读取一行数据
   
4. (defun xiang_A (str)
   
5.       (setq x (substr str 15 17)
   
6.             y (substr str 32 17)
   
7.             z (substr str 49)
   
8.       )
   
9.       (Mapcar 'atof  (list x y z))
   
10. )
    

<br /> ;;; 读取一行数据<br /> (defun xiang_A (str)<br />       (setq x (substr str 15 17)<br />             y (substr str 32 17)<br />             z (substr str 49)<br />       )<br />       (Mapcar 'atof  (list x y z))<br /> )<br />

Andyhon

2. 
   
3. (defun xiang_A (str)
   
4.    (Mapcar 'atof
   
5.      (list
   
6.        (substr str 15)
   
7.        (substr str 32)
   
8.        (substr str 49)
   
9.    ) )
   
10. )
    

<br /> (defun xiang_A (str)<br />    (Mapcar 'atof<br />      (list <br />        (substr str 15)<br />        (substr str 32)<br />        (substr str 49)<br />    ) )<br /> )<br />

hehoubin

Andyhon 大侠，能转到我的那个http://bbs.mjtd.com/thread-98992-1-1.html里看看吗。谢谢。。

泓宇

langjs 发表于 2012-11-3 19:50
(defun c:zz (/ fil file lst nu snap str)
  (vl-load-com)
  (setq snap (getvar "osmode"))

谢谢，我研究一下~刚刚开始，一个程序要看好久。。太谢谢了。。

泓宇

Andyhon 发表于 2012-11-3 20:05

这几种都可以导出点的坐标吧，学习了。感谢~