教学：Lisp接入本地免费AI大语言模型

帝都划水王

猫老师作品，必是精品，强！

season_88

猫老师利害。

nijiea123

厉害 很不错，虽然没啥用

dcl1214

凑个热闹

1. (setq str "vlisp语言的setq示例")
   
2. (setq mod "deepseek-r1:1.5b")                ;您在本地部署的deepseek模型名字，您可以在cmd控制台上输入Ollama list，弹出的列表中有，复制粘贴到这里即可
   
3. (setq sql
   
4.        (strcat
   
5.          "{\
   
6.          \"model\": \""
   
7.          mod
   
8.          "\",\
   
9.          \"prompt\": \""
   
10.          str
    
11.          "\",\
    
12.     \"stream\": false\
    
13.     }"        )
    
14. )
    
15. (setq STR
    
16.        ($http-local$                        ;本地exe通信函数，go语言的通道
    
17.          (list
    
18.            (cons "IP" "http://localhost")
    
19.            (cons "端口" "11434")
    
20.            (cons "接口" "api/generate")        ;Update;Query
    
21.                                         ;(cons "数据库路径" "C:\\ZXCAD.DB")
    
22.            (cons "报文头"
    
23.                  (list (cons "Client-Auth" (getenv "ComputerName")))
    
24.            )
    
25.            (cons "Sql" sql)
    
26.            (cons "http方法" "POST")
    
27.            (cons "返回格式" "str")
    
28.          )
    
29.        )
    
30. )
    
31. (progn
    
32.   (setq start (vl-string-search (strcat "\"" "response" "\":\"") STR))
    
33.   (if start
    
34.     (progn
    
35.       (setq start (+ start (strlen (strcat "\"" "response" "\":\""))))
    
36.       (setq end (vl-string-search "\"" STR start))
    
37.       (setq field-value (substr STR start (- end start)))
    
38.       (setq jg (vl-string-subst "" "\\n" field-value))
    
39.       (alert jg)
    
40.     )
    
41.   )
    
42. )
    

(setq str "vlisp语言的setq示例")<br /> (setq mod "deepseek-r1:1.5b")                ;您在本地部署的deepseek模型名字，您可以在cmd控制台上输入Ollama list，弹出的列表中有，复制粘贴到这里即可<br /> (setq sql<br />        (strcat<br />          "{\<br />          \"model\": \""<br />          mod<br />          "\",\<br />          \"prompt\": \""<br />          str<br />          "\",\<br />     \"stream\": false\<br />     }"        )<br /> )<br /> (setq STR<br />        ($http-local$                        ;本地exe通信函数，go语言的通道<br />          (list<br />            (cons "IP" "http://localhost")<br />            (cons "端口" "11434")<br />            (cons "接口" "api/generate")        ;Update;Query<br />                                         ;(cons "数据库路径" "C:\\ZXCAD.DB")<br />            (cons "报文头"<br />                  (list (cons "Client-Auth" (getenv "ComputerName")))<br />            )<br />            (cons "Sql" sql)<br />            (cons "http方法" "POST")<br />            (cons "返回格式" "str")<br />          )<br />        )<br /> )<br /> (progn<br />   (setq start (vl-string-search (strcat "\"" "response" "\":\"") STR))<br />   (if start<br />     (progn<br />       (setq start (+ start (strlen (strcat "\"" "response" "\":\""))))<br />       (setq end (vl-string-search "\"" STR start))<br />       (setq field-value (substr STR start (- end start)))<br />       (setq jg (vl-string-subst "" "\\n" field-value))<br />       (alert jg)<br />     )<br />   )<br /> )<br />