(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::upload-fun

说明:加载

用法:

 (@dev::upload-fun fun-match)

参数:fun-match

返回值:

示例:

(defun @dev::upload-fun (fun-match / fun-lst)
  ;;(@::help (strcat "上传开源函数。"))  (if (null (member 'pkgman @::*modules*))(@::load-module 'pkgman))
  (if (null (member 'function @::*modules*))(@::load-module 'function))
  (if (null (@::check-uploader)) (progn (@::down-uploader) (exit)))
  ;; 加载开发代码  (@dev::funlib-load-dev)
  (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 (member (car (@::string-to-list fun-match ":"))
	      (mapcar '(lambda(x) (vl-symbol-name (cdr x))) @::*alias*))
      (setq fun-match (strcat
		       (cdr (assoc (car (@::string-to-list fun-match ":"))
				    (mapcar '(lambda(x)
					       (cons (vl-symbol-name (cdr x))
						     (vl-symbol-name (car x)))
					       )
					    @::*alias*)))
		       ":" (cadr (@::string-to-list fun-match ":")))))
  (setq fun-lst (vl-remove-if-not
		 '(lambda(x)(wcmatch x fun-match))
		 (@dev::fun-q-list)))
  
  (if (= 0 (length fun-lst))
      (princ "没有匹配到可上传的函数。")
    (progn
      (princ (strcat "发现匹配的可上传函数 "
		     (itoa (length fun-lst)) " 个。\n"))
      (foreach fun% fun-lst
	       (if (@::check-userinfo)
		   (fun::upload (read fun%) "stable")
		 (fun::upload (read fun%) "release"))))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::upload-fun

上传记录