(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

;; @lisp 函数库帮助与支持，查询的函数均以 ui:confirm1 为示例 (fun:list) ;; 列出所有@lisp函数 (fun:usage 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:help 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:src 'ui:confirm1) ;; 显示函数 ui:confirm1 的定义源码 (fun:search "ui:");; 搜索函数库中 ui: 相关的函数 (fun:run-example funname) ;; 如果函数有示例代码，则运行示例 (fun:e.g funname) ;; 如果函数有示例代码，则运行示例 ;; 调用示例 (require 'ui:confirm1) ;; 加载用户确认对话框函数 (ui:confirm1 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")

用法及说明
源码

@doc:gen-openai

说明:打开

用法:

 (@doc:gen-openai)

参数:

返回值:

示例:

(defun @doc:gen-openai (/ fp)
  (at-documents:load-libdoc)
  (setq fp (open (strcat @:*prefix* "openai.csv") "w"))
  (write-line "技能名称,标准问题,标准问题的相似度阈值,补充用户问法（多个用##分隔）,机器人回答（多个用##分隔）,意图优先级,是否禁用"
	      fp)
  (write-line (strcat "@lisp函数库,@lisp函数库,0.91,,* 提供以下类别："
		      (string:from-lst @:*libdoc-category* "LINE_BREAK")
		      "LINE_BREAK请输入 类别:* 获取该类别下的函数。e.g.  block:* LINE_BREAK"
		      "请输入 函数名获取的函数用法。e.g.  block:insert "
		      ",1,false") fp)
  (foreach category% @:*libdoc-category*
	   (write-line
	    (strcat "@lisp函数库,"
		    category%":*,"
		    "0.91,"
		    ",";;0.8<eos>1<eos>问法1##0.8<eos>1<eos>问法2		    ;; 生成该类的函数列表长度不大于600  换行用 LINE_BREAK		    (string:from-list
		     (vl-remove
		      nil
		      (mapcar '(lambda (x)
				 (if 
				     (wcmatch x (strcat category% ":*"))
				     x nil))
				 (mapcar 'car @:*libdoc*)))
		     "LINE_BREAK")
		     ",1,false")
	    fp))
  (foreach func-info @:*libdoc*
	   (write-line
	    (strcat "@lisp函数库,"
		    (string:subst-all
		     "，" ","(@:to-string (car func-info)))","
		    "0.91,"
		    ",";;0.8<eos>1<eos>问法1##0.8<eos>1<eos>问法2		    ;; 生成该类的函数列表长度不大于600  换行用 LINE_BREAK		    ;; 去 ,		    (if (member 34 (vl-string->list
				    (setq str
			  (string:subst-all
			   "\"\"" "\""
			   (string:subst-all
			    "LINE_BREAK" "\n"
			    (string:subst-all
			     "，" ","
			     (strcat
			      "函数用法:\n  "(@:to-string (caddr func-info))
			      "\n* 功能说明:\n  " (@:to-string(cadr func-info))
			      "\n* 参数:\n"(@:to-string(nth 3 func-info))
			      "\n* 返回值:\n   "(@:to-string(nth 4 func-info))
			      "\n* 示例:\n  "(@:to-string (nth 5 func-info))
			      )))))))
			(strcat "\""str"\"")
		      str)
		    ",1,false")
	    fp))  
  (close fp))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@doc:gen-openai

上传记录