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

用法及说明
源码

ui:confirm

说明：确认对话框. 参数：lst-str 单个字符串，或字符串列表。

用法：

 (ui:confirm lst-str)

参数：1 lst-str : 列表;

返回值：T or nil

示例：

(ui:confirm "你遇到真爱了吗?")

(defun ui:confirm (lst-str / *error* result dcl-fp dcl-tmp)
  "确认对话框. 参数：lst-str 单个字符串，或字符串列表。"
  "T or nil"
  "(ui:confirm \"你遇到真爱了吗?\")"
  (defun *error* (msg)
    (if (= (quote file)
        (type dcl-fp))
      (close dcl-fp))
    (vl-file-delete dcl-tmp)
    (prin1 msg))
  (setq result nil)
  (setq dcl-tmp (strcat @:*prefix* "tmp-confirm.dcl"))
  (setq dcl-fp (open dcl-tmp "w"))
  (write-line "confirm :dialog{label=\"Confirm\";:spacer{}:column{"
    dcl-fp)
  (if (not (listp lst-str))
    (setq lst-str (list lst-str)))
  (foreach str (mapcar (quote @:to-string)
      lst-str)
    (write-line (strcat ":text{label="
        (chr 34)
        (string:subst-dqm str)
        "\";}")
      dcl-fp))
  (write-line "} :spacer{} ok_cancel;}"
    dcl-fp)
  (close dcl-fp)
  (setq dcl_id (load_dialog dcl-tmp))
  (if (not (new_dialog "confirm"
        dcl_id ""))
    (exit))
  (action_tile "accept"
    "(setq result T)(done_dialog 1)")
  (start_dialog)
  (unload_dialog dcl_id)
  (vl-file-delete dcl-tmp)
  result)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

ui:confirm

上传记录