[原创]一个小程序，请高手为什么不能运行呢？狂急！！是关于读入数据而后画多段线的

waterhot

[原创]一个小程序，请高手为什么不能运行呢？狂急！！是关于读入数据而后画多段线的。请高手指点呀！[br]要实现的目的是：从文件中读入数据，而后在cad中画出图来（使用多段线） 为什么编译是说  ：输入的列表有错误！

3. (vl-load-com)
4. (setq *ModelSpace* (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-Acad-Object))))
5. (defun c:dd ()
6.    
7.      (setq HOLDECHO (getvar "cmdecho"))
8.      (setvar "cmdecho" 0)
9.    
10.      (setq n_s 10)
11.      (setq w_e 2)  
12.      (print "\nTo draw the y_oriented line")
13.      (setq ss (getfiled "Open file" "d:\" "dat" 8)
14.      s   t
15.      fn nil)
16.          (setq i 1)
17.          (setq k 1)
18.      (if ss
19.          (progn
20.              (setq fn (open ss "r"))
21.              (print "\n Please waiting....")
22.              (princ)
23.              (while (<= i w_e)
24.                          (while (<= k n_s)
25.                                  (setq s (read-line fn))
26.                    (print s)
27.                    (princ)
28.                                  (setq ps (cons (list (car(read s)) (car (cdr (read s)))) ps))
29.                    (print ps)
30.                    (princ)
31.                    (setq k (1+ k))
32.                          )
33.                          (setq ps (reverse ps))
34.                          (draw_grid ps)
35.                          (setq i (1+ i))
36.                )
37.                (close fn)
38.          )
39.          (print "\n the file error! ")
40.        )
41.    (setvar "cmdecho" HOLDECHO)
42.    (princ)
43.   )
44. (defun draw_grid (pointlist /)           (setq polypoints (apply 'append   pointlist)
45.            (setq VLADataPts (list->variantArray polypoints))
47.            (setq pline (vla-addLightweightPolyline
48.                                        *ModelSpace*
49.                                        VLADataPts)
50.            )
51.            (vla-put-closed pline t)
52.            pline
53. )
54.   (defun list->variantArray (ptsList / arraySpace sArray)
55.          (setq arraySpace (vlax-make-safearray
56.                                                      vlax-vbdouble  
57.                                                    (cons 0
58.                                                    (- (length ptsList) 1)
59.                                                    )
60.                                              )
61.            )
62.          (setq sArray (vlax-safearray-fill arraySpace ptsList))
63.          (vlax-make-variant sArray)
64. )

(vl-load-com) (setq *ModelSpace* (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-Acad-Object)))) (defun c:dd ()          (setq HOLDECHO (getvar "cmdecho"))      (setvar "cmdecho" 0)          (setq n_s 10)      (setq w_e 2)        (print "\nTo draw the y_oriented line")      (setq ss (getfiled "Open file" "d:\" "dat" 8)      s   t      fn nil)          (setq i 1)          (setq k 1)      (if ss          (progn              (setq fn (open ss "r"))              (print "\n Please waiting....")              (princ)              (while (<= i w_e)                          (while (<= k n_s)                                  (setq s (read-line fn))                    (print s)                    (princ)                                  (setq ps (cons (list (car(read s)) (car (cdr (read s)))) ps))                    (print ps)                    (princ)                    (setq k (1+ k))                          )                          (setq ps (reverse ps))                          (draw_grid ps)                          (setq i (1+ i))                )                (close fn)          )          (print "\n the file error! ")        )    (setvar "cmdecho" HOLDECHO)    (princ)   ) (defun draw_grid (pointlist /)           (setq polypoints (apply 'append   pointlist)            (setq VLADataPts (list->variantArray polypoints))            (setq pline (vla-addLightweightPolyline                                        *ModelSpace*                                        VLADataPts)            )            (vla-put-closed pline t)            pline )   (defun list->variantArray (ptsList / arraySpace sArray)          (setq arraySpace (vlax-make-safearray                                                      vlax-vbdouble                                                      (cons 0                                                    (- (length ptsList) 1)                                                    )                                              )            )          (setq sArray (vlax-safearray-fill arraySpace ptsList))          (vlax-make-variant sArray) )

输入文件格式：(x1 y2)(x2 y2)(x3 y3)...........[/U][/U]

meflying

晕！一个问题为什么分两次问？？？这么急还不一次性把问题说清楚！还发多次折腾别人，看来你还是不急

waterhot

是没办法呀！


加了一个）后，可以执行，但是为什么没有输出图形哪，不可见？

waterhot

什么原因那？


望meflying指点！

waterhot

meflying:


我给你发了个邮件，请查收。谢谢！

waterhot

管理园们，快来呀

ljpnb

把dat文件上传一下

waterhot

数据如下： (9442.00000000000 13523.0000000000)
(9602.44083730788 13518.2053431552)
(9773.21560137878 13517.7870245506)
(9930.95221281122 13514.9813567183)
(10121.9983028150 13511.1385546831)
(10310.3496636903 13547.5327119832)
(10467.3268423648 13584.4245220356)
(10644.8039968324 13623.8745115228)
(10789.2344696039 13683.3010218549)
(1004.7204471789 13748.4852401943)

waterhot

ljpnd试一下吧，有什么结果没？

ljpnb

有结果啊，如图