(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-pkg

说明:创建

用法:

 (@dev::make-chat-pkg)

参数:

返回值:

示例:

(defun @dev::make-chat-pkg(/ fp *error* lst-pkg)
  (defun *error*(msg)
    (if fp (close fp))
    (princ msg))
  (@::package-update)
  (setq fp (open (strcat @::*prefix* ".cache/chat-packages.csv")"w"))
  (write-line chat-title fp)
  (setq lst-pkg @::*pkgs*)
  (foreach
   pkg lst-pkg
   (if (@::pkg pkg :full-name)
       (write-line
	(strcat 
	 "@lisp应用,"(string:subst-all "_" "," (@::pkg pkg :name))
	 ","
	 (string:subst-all "_" "," (@::pkg pkg :full-name))
	 ",,"
	 (string:subst-all
	  "LINE_BREAK" "\n"
	  (string:subst-all "，" ","
			    (strcat
			     "*** ["
			     (@dev::make-bizmsgmenu"=@lisp应用=") "] "
			     (@::pkg pkg :name)"LINE_BREAK"
			     "应用名: " (@::pkg pkg :full-name)"LINE_BREAK"
			     "作者: " (@::pkg pkg :author)"LINE_BREAK"
			     "简介: " (@::pkg pkg :description)"LINE_BREAK"
			     "更多: "
			     "https://atlisp.cn/package-info/" (@::pkg pkg :name)"-stable.html"
			     "LINE_BREAK"
			     (if (cadr (member pkg lst-pkg))
				 (progn
				   (strcat 
				    "LINE_BREAK=> "
				    (@dev::make-bizmsgmenu
				     (strcat "="
					     (@::pkg (cadr (member pkg lst-pkg)) :name)
					     "="))))
			       "")
			     )))
	 ",false,false")
	fp))
   )
  (close fp)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::make-chat-pkg

上传记录