(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-chat-funlib

说明:创建

用法:

 (@dev::make-chat-funlib)

参数:

返回值:

示例:

(defun @dev::make-chat-funlib(/ fp *error* lst-fun)
  (defun *error*(msg)
    (if fp (close fp))
    (princ msg))
  (@dev::funlib-load-dev)
  (setq fp (open (strcat @::*prefix* ".cache/chat-funlib.csv")"w"))
  (write-line chat-title fp)
  (@::load-module 'function)
  (setq lst-fun (fun::get-list))
  (foreach fun lst-fun
	   (setq fun (vl-symbol-name fun))
	   (if (and
		(setq  funname (strcase fun t))
		(null (member (ascii ">") (vl-string->list funname)))
		(listp (setq fundesc  (read(fun::make-desc funname))))
		;;(> (strlen (nth 1 fundesc)) 2)		)
	       (write-line
		(strcat 
		 "@lisp函数库,"(string:subst-all "_" ","funname)","
		 (if (> (strlen (nth 1 fundesc)) 2)
		     (vl-string-trim "？?。，." 
				     (string:subst-all "##" ","(substr (car (string:to-list (nth 1 fundesc) "\n")) 1 20 )))
		   "")
		 ",,"
		 (string:subst-all "LINE_BREAK" "\n"
		 (string:subst-all "，" ","
				   (strcat
				    "*** ["
				    (@dev::make-bizmsgmenu"=@lisp函数=")
				    "] " (car fundesc)"LINE_BREAK"
				    "** " (nth 2 fundesc)"LINE_BREAK"
				    "功能: " (nth 1 fundesc)"LINE_BREAK"
				    "参数: " (nth 3 fundesc)"LINE_BREAK"
				    "返回值: " (nth 4 fundesc)"LINE_BREAK"
				    "示例: " (nth 5 fundesc)"LINE_BREAK"
				    (if(and (vl-position (read fun) lst-fun)
					    (nth (1+ (vl-position (read fun) lst-fun)) lst-fun))
					(strcat 
					 "LINE_BREAK=> "
					 (@dev::make-bizmsgmenu
					  (strcat "="
						  (strcase
						   (vl-symbol-name 
						    (nth (1+ (vl-position (read fun) lst-fun)) lst-fun))
						   t)
						  "=")))
				      "")
				    )))
		 ",false,false")
		fp))
	   )
  (close fp)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::make-chat-funlib

上传记录