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

用法及说明
源码

dcl:lst2dcl

说明：将 lst 格式的DCL 描述表达式转为 DCL 格式. lst 格式说明：当为点对时，表示为属性值对，当为列表时，第一个元素为 Tile 名。

用法：

 (dcl:lst2dcl lst)

参数：1 lst : 列表;

返回值：String

示例：

(dcl:lst2dcl '(button (key . btn)(label . BTN)(width . 20)(height . 3)) ;; => :button {key="btn";label="BTN";width=20;height=3;}

(defun dcl:lst2dcl (lst)
  "将 lst 格式的DCL 描述表达式转为 DCL 格式. lst 格式说明：当为点对时，表示为属性值对，当为列表时，第一个元素为 Tile 名。"
  "String"
  "(dcl:lst2dcl '(button (key . btn)(label . BTN)(width . 20)(height . 3))
    ;; => :button {key=\"btn\";label=\"BTN\";width=20;height=3;}"
    (defun handle-value (sym)
      (cond ((p:intp sym)
          (itoa sym))
        ((numberp sym)
          (rtos sym 2 3))
        ((p:stringp sym)
          (strcat "\""
            sym "\""))
        ((member sym (quote (true false)))
          (vl-symbol-name sym))
        (t (strcat "\""
            (vl-symbol-name sym)
            "\""))))
    (if (p:stringp lst)
      lst (cond ((null lst)
          "")
        ((p:dotpairp lst)
          (strcat (vl-symbol-name (car lst))
            "="
            (handle-value (cdr lst))
            ";"))
        ((listp lst)
          (cond ((atom (car lst))
              (strcat ":"
                (vl-string-trim ":"
                  (vl-symbol-name (car lst)))
                "{"
                (dcl:lst2dcl (cdr lst))
                "}"))
            (t (string:from-lst (mapcar (quote dcl:lst2dcl)
                  lst)
                "")))))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

dcl:lst2dcl

上传记录