(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 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")

用法及说明
源码

@dev::make-ac-to-feishi

说明:创建

用法:

 (@dev::make-ac-to-feishi funname)

参数:funname

返回值:

示例:

(defun @dev::make-ac-to-feishi (funname / lst-fun funname paras desc funsym feishiprefix)
  "将函数库中的函数 funname 自动完成导入飞诗编辑器"
  (if (null (member 'pkgman @::*modules*))(@::load-module 'pkgman))
  (if (null (member 'function @::*modules*))(@::load-module 'function))
  (if (null (@::check-uploader)) (progn (@::down-uploader) (exit)))
  ;; (if (eq 'str (type fun-match))  ;;     (setq fun-match (read fun-match)))  ;; (if (eq 'sym (type fun-match))  ;;     (setq fun-match (vl-symbol-name fun-match)))  (if(or (null (findfile "bin/sqlite3.exe"))
	 (null (findfile "bin/sqlite3.dll")))
      (progn
	(@::down-file "bin/sqlite3.exe")
	(@::down-file "bin/sqlite3.dll")
	(alert "正在下载 SQLite 管理程序，请稍候...")
	))
  (if (findfile (strcat (@::get-config '@dev::feishiprefix) "Data.db"))
      (progn
	(setq lst-fun (read (fun::src-code funname)))
	(setq funsym (cadr lst-fun))
	(setq paras
	      (if (member '/ (caddr lst-fun))
		  (reverse (cdr (member '/ (reverse (caddr lst-fun)))))
		(caddr lst-fun)))
	(setq desc (cadddr lst-fun))
	(if (/= 'str (type desc))
	    (setq desc ""))
	(if funsym 
	    (progn
	      (setvar "cmdecho" 0)
	      (prompt (strcat "insert AC of " (strcase (vl-symbol-name funsym) t) "\n"))
	      (@::cmd "start-bg"
		     (strcat
		      " /D " @::*prefix* "bin\\"
		      " /MIN /B  "
		      @::*prefix* "bin\\sqlite3.exe \""
		      (@::get-config '@dev::feishiprefix)"Data.db" "\" \""
		      "insert or replace into functions (Name,Syntax,Description,Style,URL,Creator,EditTime,MinArg,MaxArg) Values (\\\""
		      (strcase (vl-symbol-name funsym) t)"\\\",\\\""
		      (strcase (vl-prin1-to-string (cons funsym paras)) t)"\\\",\\\""
		      (string:subst-all " " "\n" desc)
		      "\\\",33,\\\"https://atlisp.cn\\\",\\\"@lisp\\\","
		      (car(string:to-list (@::timestamp)"."))","
		      (itoa (length  paras)) ","
		      (itoa (length paras))");\""))
	      (sleep 0.3)
	      (setvar "cmdecho" 1)))
	)
    (progn
      (alert "没有发现飞诗数据库,请设置 飞诗Lisp 路径")
      (if
	  (setq feishiprefix
		(system:get-folder "请选择 飞诗Lisp 安装路径"))
	  (@::set-config '@dev::feishiprefix (strcat feishiprefix "\\")))
      )))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::make-ac-to-feishi

上传记录