蹭蹭chatGPT的热度，CAD内置聊天。附 json 解析函数。

vitalgg

命令行输入 @C 或 chat 开始聊天。
可以查命令，查变量，查函数，查组码










该解析函数只支持 stringify 格式的 json 字符串，即属性必须有引号。

1. (defun json:parse (str)
   
2.   "Json 字符串转化为 lisp 列表。"
   
3.   "list"
   
4.   (setq lst-str (vl-string->list str))
   
5.   (setq flag-escape nil)
   
6.   (setq flag-quote nil)
   
7.   (setq flag-keylevel 0)
   
8.   (setq flag-arraylevel 0)
   
9.   (setq atom-str-lst '())
   
10.   ;;(setq res nil)
    
11. 
    
12.   (while lst-str
    
13.     (setq curr-char (car lst-str))
    
14.     (cond
    
15.      ((= (ascii "\\") curr-char)
    
16.       (setq flag-escape (not flag-escape))
    
17.       (setq atom-str-lst (cons curr-char atom-str-lst))
    
18.       )
    
19.      ((and (= (ascii "\"") curr-char)
    
20.      (null flag-escape))
    
21.       (setq flag-escape nil)
    
22.       (setq flag-quote (not flag-quote))
    
23.       (setq atom-str-lst (cons curr-char atom-str-lst))
    
24.       )
    
25.      (t
    
26.       (setq flag-escape nil)
    
27.       (if flag-quote
    
28.     (setq atom-str-lst (cons curr-char atom-str-lst))
    
29.     (cond
    
30.      ((= (ascii "{") curr-char)
    
31.       ;;对象 key/value mode
    
32.       (setq flag-keylevel (1+ flag-keylevel))
    
33.       (setq atom-str-lst (cons (ascii "(") atom-str-lst))
    
34.       )
    
35.      ((= (ascii "[") curr-char)
    
36.       ;;array mode
    
37.       (setq flag-arraylevel (1+ flag-arraylevel))
    
38.       (if(= pre-char (ascii ":"))
    
39.     (setq atom-str-lst (cons (ascii "(") (cdddr atom-str-lst)))
    
40.         (setq atom-str-lst (cons (ascii "(") atom-str-lst)))
    
41.       )
    
42.      ((= (ascii "}") curr-char)
    
43.       ;;对象 key/value mode
    
44.       (setq flag-keylevel (1- flag-keylevel))
    
45.       (setq atom-str-lst (cons (ascii ")") atom-str-lst))
    
46.       )
    
47.      ((= (ascii "]") curr-char)
    
48.       ;;array mode
    
49.       (setq flag-arraylevel (1- flag-arraylevel))
    
50.       (setq atom-str-lst (cons (ascii ")") atom-str-lst)))
    
51.      
    
52.      ((= (ascii ":") curr-char)
    
53.       ;; 处理 key
    
54.       (setq atom-str-lst
    
55.       (cons (ascii " ")
    
56.       (cons (ascii ".")
    
57.             (cons (ascii " ") atom-str-lst))))
    
58.       )
    
59.      ((= (ascii ",")curr-char)
    
60.       ;; value
    
61.       (setq atom-str-lst
    
62.       (cons (ascii "(")
    
63.       (cons (ascii ")")
    
64.             atom-str-lst)))
    
65.       )
    
66.      (t (setq atom-str-lst (cons curr-char atom-str-lst)))
    
67.      ))))
    
68.     (setq pre-char curr-char)
    
69.     (setq lst-str(cdr lst-str))
    
70.     )
    
71.   
    
72.   (read(strcat "(" (vl-list->string (reverse atom-str-lst)) ")"))
    
73.   )
    

(defun json:parse (str)<br />   "Json 字符串转化为 lisp 列表。"<br />   "list"<br />   (setq lst-str (vl-string->list str))<br />   (setq flag-escape nil)<br />   (setq flag-quote nil)<br />   (setq flag-keylevel 0)<br />   (setq flag-arraylevel 0)<br />   (setq atom-str-lst '())<br />   ;;(setq res nil)<br /> <br />   (while lst-str<br />     (setq curr-char (car lst-str))<br />     (cond<br />      ((= (ascii "\\") curr-char)<br />       (setq flag-escape (not flag-escape))<br />       (setq atom-str-lst (cons curr-char atom-str-lst))<br />       )<br />      ((and (= (ascii "\"") curr-char)<br />      (null flag-escape))<br />       (setq flag-escape nil)<br />       (setq flag-quote (not flag-quote))<br />       (setq atom-str-lst (cons curr-char atom-str-lst))<br />       )<br />      (t<br />       (setq flag-escape nil)<br />       (if flag-quote<br />     (setq atom-str-lst (cons curr-char atom-str-lst))<br />     (cond<br />      ((= (ascii "{") curr-char)<br />       ;;对象 key/value mode<br />       (setq flag-keylevel (1+ flag-keylevel))<br />       (setq atom-str-lst (cons (ascii "(") atom-str-lst))<br />       )<br />      ((= (ascii "[") curr-char)<br />       ;;array mode<br />       (setq flag-arraylevel (1+ flag-arraylevel))<br />       (if(= pre-char (ascii ":"))<br />     (setq atom-str-lst (cons (ascii "(") (cdddr atom-str-lst)))<br />         (setq atom-str-lst (cons (ascii "(") atom-str-lst)))<br />       )<br />      ((= (ascii "}") curr-char)<br />       ;;对象 key/value mode<br />       (setq flag-keylevel (1- flag-keylevel))<br />       (setq atom-str-lst (cons (ascii ")") atom-str-lst))<br />       )<br />      ((= (ascii "]") curr-char)<br />       ;;array mode<br />       (setq flag-arraylevel (1- flag-arraylevel))<br />       (setq atom-str-lst (cons (ascii ")") atom-str-lst)))<br />      <br />      ((= (ascii ":") curr-char)<br />       ;; 处理 key<br />       (setq atom-str-lst<br />       (cons (ascii " ")<br />       (cons (ascii ".")<br />             (cons (ascii " ") atom-str-lst))))<br />       )<br />      ((= (ascii ",")curr-char)<br />       ;; value<br />       (setq atom-str-lst<br />       (cons (ascii "(")<br />       (cons (ascii ")")<br />             atom-str-lst)))<br />       )<br />      (t (setq atom-str-lst (cons curr-char atom-str-lst)))<br />      ))))<br />     (setq pre-char curr-char)<br />     (setq lst-str(cdr lst-str))<br />     )<br />   <br />   (read(strcat "(" (vl-list->string (reverse atom-str-lst)) ")"))<br />   )<br />

VBALISPER

是自己编的一个类似于chatGPT的，在CAD中使用，用于CAD方面智能聊天程序吗？

vitalgg

VBALISPER 发表于 2022-12-9 14:11
是自己编的一个类似于chatGPT的，在CAD中使用，用于CAD方面智能聊天程序吗？

没有chatGPT的大数据量。
目前只是收集了，命令，变量，lisp函数 和 @lisp函数库的说明用法等。
模糊匹配聊天用户发送的内容，并返回相关内容。

支持智能搜索和一些简单的日常聊天。

guosheyang

chatGPT是不是一个升级版的搜索引擎？

vitalgg

guosheyang 发表于 2022-12-9 15:12
chatGPT是不是一个升级版的搜索引擎？

我的理解是chatGPT 将互联网上的内容收集，归类。

根据用户请求内容，按一定规则和逻辑整理后发送给用户。
广义上也算是一种搜索引擎，但是内容是多少加工过的，不是原汁原味的东西。


那个生成插件的代码，基本上是一个模式，像是八股文。

guosheyang

vitalgg 发表于 2022-12-9 15:23
我的理解是chatGPT 将互联网上的内容收集，归类。

根据用户请求内容，按一定规则和逻辑整理后发送给用 ...

嗯 也就是加上人工智能内容  如果引入超级计算机计算  达到像阿尔法狗的那种效果   这世界很多人就会没事儿干了