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

用法及说明
源码

json:encode-from-alist

说明：将关联列表转化为json串,测试版

用法：

 (json:encode-from-alist lst)

参数：1 lst : 列表;

返回值：list

示例：

(defun json:encode-from-alist (lst / lst2array)
  "将关联列表转化为json串,测试版"
  "list"
  (defun lst2array (lst)
    (strcat "["
      (string:from-list (mapcar (quote @:to-string)
          lst)
        ",")
      "]"))
  (cond ((and (listp lst)
        (not (null lst)))
      (cond ((null (vl-list-length lst))
          (strcat "{\""
            (@:to-string (car lst))
            "\"
            : \""
            (@:to-string (cdr lst))
            "\"}"))
        ((and (apply (quote and)
              (mapcar (quote listp)
                lst))
            (apply (quote and)
              (mapcar (quote (lambda (x)
                    (and (= 1 (length x))
                      (atom (car x)))))
                lst)))
          (lst2array (mapcar (quote car)
              lst)))
        ((= 1 (length lst))
          (if (listp (car lst))
            (json:encode-from-alist (car lst))
            (@:to-string (car lst))))
        ((and (>= (length lst)
              2)
            (apply (quote and)
              (mapcar (quote atom)
                lst)))
          (strcat "{\""
            (@:to-string (car lst))
            "\"
            :"
            (lst2array (cdr lst))
            "}"))
        (t (strcat "{"
            (string:from-list (mapcar (quote json:encode-from-alist)
                lst)
              ",")
            "}"))))
    ((atom lst)
      (strcat "
        "
        (@:to-string lst)
        "
        "))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

json:encode-from-alist

上传记录