lisp函数提示输入的列表有缺陷

yimiyangguang55

捣鼓了一个lisp函数，将CAD中文字导出到excel文件，然后还可以将该文件导入CAD。但是一直提示相关错误，请大神导入CAD运行下，看看是哪里出了问题。

2. (defun c:ExportToCSV ()
   
3.   ; 获取当前CAD文件名
   
4.   (setq dwgName (getvar "DWGNAME"))
   
5.   ; 定义CSV文件名
   
6.   (setq csvFileName (strcat dwgName ".csv"))
   
7.   ; 定义CSV文件路径
   
8.   (setq csvFilePath (strcat (getvar "DWGPATH") csvFileName))
   
9.   ; 打开CSV文件准备写入
   
10.   (with-open-file (out csvFilePath "w"
    
11.     ; 选择AutoCAD中的文本对象
    
12.     (setq ss (ssget "X" "TEXT,MTEXT"))
    
13.     ; 遍历选择集
    
14.     (while ss
    
15.       (setq obj (ssname ss 0))
    
16.       (setq ss (ssname ss 1))
    
17.       ; 获取文本内容、样式、图层等信息
    
18.       (setq text (cdr (assoc 1 (entget obj))))
    
19.       (setq style (cdr (assoc 2 (entget obj))))
    
20.       (setq layer (cdr (assoc 8 (entget obj))))
    
21.       (setq height (cdr (assoc 40 (entget obj))))
    
22.       (setq width (cdr (assoc 41 (entget obj))))
    
23.       ; 写入CSV文件
    
24.       (format out "~A,~A,~A,~A,~A~%" text style layer height width)
    
25.     )
    
26.   )
    
27.   (princ (strcat "\n文本信息已导出到 " csvFilePath))
    
28.   (princ)
    
29. )
    
30. 
    
31. 
    
32. 
    
33. 
    
34. 
    
35. (defun c:ImportFromCSV ()
    
36.   ; 获取当前CAD文件名
    
37.   (setq dwgName (getvar "DWGNAME"))
    
38.   ; 定义CSV文件名
    
39.   (setq csvFileName (strcat dwgName ".csv"))
    
40.   ; 定义CSV文件路径
    
41.   (setq csvFilePath (strcat (getvar "DWGPATH") csvFileName))
    
42.   ; 检查CSV文件是否存在
    
43.   (if (not (vl-filename-exists-p csvFilePath))
    
44.     (princ "CSV文件不存在。")
    
45.     (progn
    
46.       ; 打开CSV文件准备读取
    
47.       (setq in (open csvFilePath "r"))
    
48.       ; 读取CSV文件中的每一行
    
49.       (while (setq line (read-line in nil nil))
    
50.         ; 分割每行的数据
    
51.         (setq data (strtok line #\,))
    
52.         ; 依次获取文本内容、样式、图层、高度、宽度
    
53.         (setq text (car data))
    
54.         (setq style (cadr data))
    
55.         (setq layer (caddr data))
    
56.         (setq height (cadddr data))
    
57.         (setq width (cadddr data 2))
    
58.         ; 在AutoCAD中搜索原有的文本对象
    
59.         (setq ss (ssget "X" (strcat "TEXT,'" text "'")))
    
60.         ; 遍历选择集
    
61.         (while ss
    
62.           (setq obj (ssname ss 0))
    
63.           (setq ss (ssname ss 1))
    
64.           ; 更新文本样式、图层、高度、宽度等属性
    
65.           (command "_.STYLE" obj style)
    
66.           (command "_.CHANGELAYER" obj layer)
    
67.           (command "_.TEXTHEIGHT" obj height)
    
68.           (command "_.TEXTWIDTH" obj width)
    
69.         )
    
70.       )
    
71.       (close in)
    
72.       (princ (strcat "\n文本信息已从 " csvFilePath "导入并更新。"))
    
73.     )
    
74.   )
    
75. )

(defun c:ExportToCSV ()<br />   ; 获取当前CAD文件名<br />   (setq dwgName (getvar "DWGNAME"))<br />   ; 定义CSV文件名<br />   (setq csvFileName (strcat dwgName ".csv"))<br />   ; 定义CSV文件路径<br />   (setq csvFilePath (strcat (getvar "DWGPATH") csvFileName))<br />   ; 打开CSV文件准备写入<br />   (with-open-file (out csvFilePath "w"<br />     ; 选择<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>中的文本对象<br />     (setq ss (ssget "X" "TEXT,MTEXT"))<br />     ; 遍历选择集<br />     (while ss<br />       (setq obj (ssname ss 0))<br />       (setq ss (ssname ss 1))<br />       ; 获取文本内容、样式、图层等信息<br />       (setq text (cdr (assoc 1 (entget obj))))<br />       (setq style (cdr (assoc 2 (entget obj))))<br />       (setq layer (cdr (assoc 8 (entget obj))))<br />       (setq height (cdr (assoc 40 (entget obj))))<br />       (setq width (cdr (assoc 41 (entget obj))))<br />       ; 写入CSV文件<br />       (format out "~A,~A,~A,~A,~A~%" text style layer height width)<br />     )<br />   )<br />   (princ (strcat "\n文本信息已导出到 " csvFilePath))<br />   (princ)<br /> )<br /> <br /> <br /> <br /> <br /> <br /> (defun c:ImportFromCSV ()<br />   ; 获取当前CAD文件名<br />   (setq dwgName (getvar "DWGNAME"))<br />   ; 定义CSV文件名<br />   (setq csvFileName (strcat dwgName ".csv"))<br />   ; 定义CSV文件路径<br />   (setq csvFilePath (strcat (getvar "DWGPATH") csvFileName))<br />   ; 检查CSV文件是否存在<br />   (if (not (vl-filename-exists-p csvFilePath))<br />     (princ "CSV文件不存在。")<br />     (progn<br />       ; 打开CSV文件准备读取<br />       (setq in (open csvFilePath "r"))<br />       ; 读取CSV文件中的每一行<br />       (while (setq line (read-line in nil nil))<br />         ; 分割每行的数据<br />         (setq data (strtok line #\,))<br />         ; 依次获取文本内容、样式、图层、高度、宽度<br />         (setq text (car data))<br />         (setq style (cadr data))<br />         (setq layer (caddr data))<br />         (setq height (cadddr data))<br />         (setq width (cadddr data 2))<br />         ; 在AutoCAD中搜索原有的文本对象<br />         (setq ss (ssget "X" (strcat "TEXT,'" text "'")))<br />         ; 遍历选择集<br />         (while ss<br />           (setq obj (ssname ss 0))<br />           (setq ss (ssname ss 1))<br />           ; 更新文本样式、图层、高度、宽度等属性<br />           (command "_.STYLE" obj style)<br />           (command "_.CHANGELAYER" obj layer)<br />           (command "_.TEXTHEIGHT" obj height)<br />           (command "_.TEXTWIDTH" obj width)<br />         )<br />       )<br />       (close in)<br />       (princ (strcat "\n文本信息已从 " csvFilePath "导入并更新。"))<br />     )<br />   )<br /> )

飞雪神光

你是直接在TXT里保存的吧  要另存为 ANSI格式的 或者在vlisp里保存

飞雪神光

你用得AI是假的吧  代码错的太离谱了

飞雪神光

1. (defun c:ExportTextToCSV (/ ali1 ali2 ent f fname fpath height i ss style text width)
   
2.   (setq ss (ssget '((0 . "TEXT,MTEXT"))))
   
3.   (if ss
   
4.     (progn
   
5.       (setq fpath (getvar "DWGPREFIX"))
   
6.       (setq fname (strcat fpath (vl-filename-base (getvar "DWGNAME")) ".csv"))
   
7.       (setq f (open fname "w"))
   
8.       (write-line "Content,Style,Alignment,Height,WidthFactor" f)
   
9.       (setq i 0)
   
10.       (repeat (sslength ss)
    
11.         (setq ent (entget (ssname ss i)))
    
12.         (setq i (+ i 1))
    
13.         (setq text (cdr (assoc 1 ent)))
    
14.         (setq style (cdr (assoc 7 ent)))
    
15.                                 (setq ali1 (cdr (assoc 72 ent)))
    
16.         (setq ali2 (cdr (assoc 73 ent)))
    
17.         (setq height (cdr (assoc 40 ent)))
    
18.         (setq width (cdr (assoc 41 ent)))
    
19.         (write-line (strcat text "," style "," (itoa ali1) "," (itoa ali2) "," (rtos height) "," (rtos width)) f)
    
20.       )
    
21.       (close f)
    
22.       (princ "\n导出完成。")
    
23.     )
    
24.     (princ "\n没有选择任何文字对象。")
    
25.   )
    
26.   (princ)
    
27. )
    
28. 
    
29. (defun c:ImportTextFromCSV (/ ali1 ali2 data f fname fpath gd kgb line pt wz zt)
    
30.   (setq fpath (getvar "DWGPREFIX"))
    
31.   (setq fname (strcat fpath (vl-filename-base (getvar "DWGNAME")) ".csv"))
    
32.   (setq f (open fname "r"))
    
33.   (if f
    
34.     (progn
    
35.       (read-line f)
    
36.       (while (setq line (read-line f))
    
37.         (setq data (read (strcat "(" (vl-string-translate "," " " line) ")")))
    
38.                                 (setq text (vl-princ-to-string (nth 0 data)))
    
39.                                 (setq style (vl-princ-to-string (nth 1 data)))
    
40.                                 (setq ali1 (nth 2 data))
    
41.                                 (setq ali2 (nth 3 data))
    
42.                                 (setq height (nth 4 data))
    
43.                                 (setq width (nth 5 data))
    
44.                                 (setq pt (getpoint "\n指定插入点:"))
    
45.         (entmake(list '(0 . "text")'(50 . 0.0) (cons 10 pt)(cons 11 pt)(cons 1 text)(cons 7 style)(cons 40 height)'(6 . "Continuous")(cons 41 width)(cons 72 ali1)'(210 0.0 0.0 1.0)'(100 . "AcDbText")(cons 73 ali2)))
    
46.       )
    
47.       (close f)
    
48.       (princ "\n导入完成。")
    
49.     )
    
50.     (princ "\n未找到CSV文件。")
    
51.   )
    
52.   (princ)
    
53. )

(defun c:ExportTextToCSV (/ ali1 ali2 ent f fname fpath height i ss style text width)<br />   (setq ss (ssget '((0 . "TEXT,MTEXT"))))<br />   (if ss<br />     (progn<br />       (setq fpath (getvar "DWGPREFIX"))<br />       (setq fname (strcat fpath (vl-filename-base (getvar "DWGNAME")) ".csv"))<br />       (setq f (open fname "w"))<br />       (write-line "Content,Style,Alignment,Height,WidthFactor" f)<br />       (setq i 0)<br />       (repeat (sslength ss)<br />         (setq ent (entget (ssname ss i)))<br />         (setq i (+ i 1))<br />         (setq text (cdr (assoc 1 ent)))<br />         (setq style (cdr (assoc 7 ent)))<br />                                 (setq ali1 (cdr (assoc 72 ent)))<br />         (setq ali2 (cdr (assoc 73 ent)))<br />         (setq height (cdr (assoc 40 ent)))<br />         (setq width (cdr (assoc 41 ent)))<br />         (write-line (strcat text "," style "," (itoa ali1) "," (itoa ali2) "," (rtos height) "," (rtos width)) f)<br />       )<br />       (close f)<br />       (princ "\n导出完成。")<br />     )<br />     (princ "\n没有选择任何文字对象。")<br />   )<br />   (princ)<br /> )<br /> <br /> (defun c:ImportTextFromCSV (/ ali1 ali2 data f fname fpath gd kgb line pt wz zt)<br />   (setq fpath (getvar "DWGPREFIX"))<br />   (setq fname (strcat fpath (vl-filename-base (getvar "DWGNAME")) ".csv"))<br />   (setq f (open fname "r"))<br />   (if f<br />     (progn<br />       (read-line f)<br />       (while (setq line (read-line f))<br />         (setq data (read (strcat "(" (vl-string-translate "," " " line) ")")))<br />                                 (setq text (vl-princ-to-string (nth 0 data)))<br />                                 (setq style (vl-princ-to-string (nth 1 data)))<br />                                 (setq ali1 (nth 2 data))<br />                                 (setq ali2 (nth 3 data))<br />                                 (setq height (nth 4 data))<br />                                 (setq width (nth 5 data))<br />                                 (setq pt (getpoint "\n指定插入点:"))<br />         (entmake(list '(0 . "text")'(50 . 0.0) (cons 10 pt)(cons 11 pt)(cons 1 text)(cons 7 style)(cons 40 height)'(6 . "Continuous")(cons 41 width)(cons 72 ali1)'(210 0.0 0.0 1.0)'(100 . "AcDbText")(cons 73 ali2)))<br />       )<br />       (close f)<br />       (princ "\n导入完成。")<br />     )<br />     (princ "\n未找到CSV文件。")<br />   )<br />   (princ)<br /> )

飞雪神光

yimiyangguang55

飞雪神光 发表于 2024-4-11 00:24

我删除或者增加都不能解决问题，方便帮我调试下吗？谢谢啦

飞雪神光

调不了 AI都写不出这么多毛病的代码

yimiyangguang55

飞雪神光 发表于 2024-4-11 11:37
调不了 AI都写不出这么多毛病的代码

大神一看就知道这是AI写的。

yimiyangguang55

飞雪神光 发表于 2024-4-11 11:57
你用得AI是假的吧  代码错的太离谱了

所以目前AI还是取代不了人的大脑。
下面的代码是GPT写的，也是有错误。

2. (defun c:ExportTextToCSV (/ ss i fpath fname ent text style align height width)
   
3.   ;; 选择要导出的文字对象
   
4.   (setq ss (ssget '((0 . "TEXT,MTEXT"))))
   
5.   (if ss
   
6.     (progn
   
7.       ;; 获取CAD文件名用于CSV文件命名
   
8.       (setq fpath (getvar "DWGPREFIX"))
   
9.       (setq fname (strcat fpath (vl-filename-base (getvar "DWGNAME")) ".csv"))
   
10.       ;; 打开文件用于写入
    
11.       (setq f (open fname "w"))
    
12.       ;; 写入CSV头部
    
13.       (write-line "Content,Style,Alignment,Height,WidthFactor" f)
    
14.       ;; 遍历选择集
    
15.       (repeat (sslength ss)
    
16.         (setq ent (entget (ssname ss i)))
    
17.         (setq i (+ i 1))
    
18.         ;; 获取文字内容和格式信息
    
19.         (setq text (cdr (assoc 1 ent)))
    
20.         (setq style (cdr (assoc 7 ent)))
    
21.         (setq align (cdr (assoc 72 ent)))
    
22.         (setq height (cdr (assoc 40 ent)))
    
23.         (setq width (cdr (assoc 41 ent)))
    
24.         ;; 写入到CSV文件
    
25.         (write-line (strcat text "," style "," (itoa align) "," (rtos height) "," (rtos width)) f)
    
26.       )
    
27.       ;; 关闭文件
    
28.       (close f)
    
29.       (princ "\n导出完成。")
    
30.     )
    
31.     (princ "\n没有选择任何文字对象。")
    
32.   )
    
33.   (princ)
    
34. )
    
35. 
    
36. (defun c:ImportTextFromCSV (/ fpath fname f line data ent pt)
    
37.   ;; 获取CAD文件名用于查找CSV文件
    
38.   (setq fpath (getvar "DWGPREFIX"))
    
39.   (setq fname (strcat fpath (vl-filename-base (getvar "DWGNAME")) ".csv"))
    
40.   ;; 打开文件用于读取
    
41.   (setq f (open fname "r"))
    
42.   (if f
    
43.     (progn
    
44.       ;; 跳过CSV头部
    
45.       (read-line f)
    
46.       ;; 循环读取每一行
    
47.       (while (setq line (read-line f))
    
48.         ;; 解析CSV行
    
49.         (setq data (read (strcat "(" (subst "," " " (vl-string-translate "," " " line)) ")")))
    
50.         ;; 创建新的文字对象
    
51.         (command "._mtext" (getpoint "\n指定插入点: ") "Height" (nth 3 data) (strcat (nth 0 data)))
    
52.       )
    
53.       ;; 关闭文件
    
54.       (close f)
    
55.       (princ "\n导入完成。")
    
56.     )
    
57.     (princ "\n未找到CSV文件。")
    
58.   )
    
59.   (princ)
    
60. )

(defun c:ExportTextToCSV (/ ss i fpath fname ent text style align height width)<br />   ;; 选择要导出的文字对象<br />   (setq ss (ssget '((0 . "TEXT,MTEXT"))))<br />   (if ss<br />     (progn<br />       ;; 获取CAD文件名用于CSV文件命名<br />       (setq fpath (getvar "DWGPREFIX"))<br />       (setq fname (strcat fpath (vl-filename-base (getvar "DWGNAME")) ".csv"))<br />       ;; 打开文件用于写入<br />       (setq f (open fname "w"))<br />       ;; 写入CSV头部<br />       (write-line "Content,Style,Alignment,Height,WidthFactor" f)<br />       ;; 遍历选择集<br />       (repeat (sslength ss)<br />         (setq ent (entget (ssname ss i)))<br />         (setq i (+ i 1))<br />         ;; 获取文字内容和格式信息<br />         (setq text (cdr (assoc 1 ent)))<br />         (setq style (cdr (assoc 7 ent)))<br />         (setq align (cdr (assoc 72 ent)))<br />         (setq height (cdr (assoc 40 ent)))<br />         (setq width (cdr (assoc 41 ent)))<br />         ;; 写入到CSV文件<br />         (write-line (strcat text "," style "," (itoa align) "," (rtos height) "," (rtos width)) f)<br />       )<br />       ;; 关闭文件<br />       (close f)<br />       (princ "\n导出完成。")<br />     )<br />     (princ "\n没有选择任何文字对象。")<br />   )<br />   (princ)<br /> )<br /> <br /> (defun c:ImportTextFromCSV (/ fpath fname f line data ent pt)<br />   ;; 获取CAD文件名用于查找CSV文件<br />   (setq fpath (getvar "DWGPREFIX"))<br />   (setq fname (strcat fpath (vl-filename-base (getvar "DWGNAME")) ".csv"))<br />   ;; 打开文件用于读取<br />   (setq f (open fname "r"))<br />   (if f<br />     (progn<br />       ;; 跳过CSV头部<br />       (read-line f)<br />       ;; 循环读取每一行<br />       (while (setq line (read-line f))<br />         ;; 解析CSV行<br />         (setq data (read (strcat "(" (subst "," " " (vl-string-translate "," " " line)) ")")))<br />         ;; 创建新的文字对象<br />         (command "._mtext" (getpoint "\n指定插入点: ") "Height" (nth 3 data) (strcat (nth 0 data)))<br />       )<br />       ;; 关闭文件<br />       (close f)<br />       (princ "\n导入完成。")<br />     )<br />     (princ "\n未找到CSV文件。")<br />   )<br />   (princ)<br /> )

飞雪神光

嗯 代码还是有点毛病

yimiyangguang55

飞雪神光 发表于 2024-4-11 14:51
嗯 代码还是有点毛病

大神可以帮忙调整下这段代码吗？不胜感激

LPACMQ

论坛搜一搜都有现成的，需要AI写？