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