通过csv文件绘图求助

dengtui

具体是这样，csv格式表格中每一行有名称，长度和宽度信息

要求用每一行数据绘制一张DXF格式图，图名称为表格中的名称，图纸内容为以表格中长度和宽度绘制的矩形。

举个例子，如果csv中有5行的话就要有5张DXF格式的图纸。希望是lisp写的，本人是菜鸟，刚接触，哪位大侠能帮助小弟一下，定当感激不尽。

Gu_xl

3. (defun c:tt()
4.   (defun gxl-StrParse (Str Delimiter / SearchStr StringLen return n char nn)
5. (setq SearchStr Str)
6. (setq StringLen (strlen SearchStr) nn StringLen)
7. (setq return '())
9. (while (> StringLen 0)
10.   (setq n 1)
11.   (setq char (substr SearchStr 1 1))
12.   (while (and (/= char Delimiter) (<= n nn))
13.    (setq n (1+ n))
14.    (setq char (substr SearchStr n 1))
15.   ) ;_ end of while
16.   (setq return (cons (substr SearchStr 1 (1- n)) return))
17.   (setq SearchStr (substr SearchStr (1+ n) StringLen))
18.   (setq StringLen (strlen SearchStr))
19. ) ;_ end of while
20.      (if (= " " Delimiter)
21.        (setq return (vl-remove  "" return))
22.        )
23. (reverse return)
24. )
25.   (setq fn (getfiled "请输入文件名 :" "" "csv" 4))
26.   (setq f (open fn "r"))
27.   (while (setq zc (read-line f))
28.     (setq zc (GXL-STRPARSE zc ","))
29.     (setq fname (car zc)
30.    L (cadr zc)
31.    w (caddr zc)
32.    )
33.     (command "_.rectang"  '(0 0 0) (strcat "@" l "," w))
34.     (command "_.dxfout" fname "")
35.     (command "erase" "all" "")
36.     )
37. (close f)
39.   )

(defun c:tt()   (defun gxl-StrParse (Str Delimiter / SearchStr StringLen return n char nn) (setq SearchStr Str) (setq StringLen (strlen SearchStr) nn StringLen) (setq return '()) (while (> StringLen 0)   (setq n 1)   (setq char (substr SearchStr 1 1))   (while (and (/= char Delimiter) (<= n nn))    (setq n (1+ n))    (setq char (substr SearchStr n 1))   ) ;_ end of while   (setq return (cons (substr SearchStr 1 (1- n)) return))   (setq SearchStr (substr SearchStr (1+ n) StringLen))   (setq StringLen (strlen SearchStr)) ) ;_ end of while      (if (= " " Delimiter)        (setq return (vl-remove  "" return))        ) (reverse return) )   (setq fn (getfiled "请输入文件名 :" "" "csv" 4))   (setq f (open fn "r"))   (while (setq zc (read-line f))     (setq zc (GXL-STRPARSE zc ","))     (setq fname (car zc)    L (cadr zc)    w (caddr zc)    )     (command "_.rectang"  '(0 0 0) (strcat "@" l "," w))     (command "_.dxfout" fname "")     (command "erase" "all" "")     ) (close f)   )

ZZXXQQ

程序要在空白图中运行

游客，本帖隐藏的内容需要发帖数高于 2 才可浏览，你当前发帖数只有 0