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

用法及说明
源码

test:run-case

说明：运行单个测试用例并输出结果

用法：

 (test:run-case test-name test-fn expected)

参数：1 test-name : 未识别定义;2 test-fn : 未识别定义;3 expected : 未识别定义;

返回值：参数: test-name - 测试用例名称（符号）；test-fn - 测试函数，格式为 '((lambda () ...)) 或 '(lambda () ...)；expected - 期望的返回值

示例：

返回: t - 测试通过；nil - 测试失败

(defun test:run-case (test-name test-fn expected / result pass fn)
  "运行单个测试用例并输出结果"
  "参数: test-name - 测试用例名称（符号）；test-fn - 测试函数，格式为 '((lambda ()
      ...))
  或 '(lambda ()
    ...)；expected - 期望的返回值"
  "返回: t - 测试通过；nil - 测试失败"
  "说明: 自动处理两种 lambda 格式，使用 vl-catch-all-apply 安全执行"
  "示例: (test:run-case 'add '((lambda ()
        (+ 1 2)))
    3)"
  "示例: (test:run-case 'bad-test '((lambda ()
        (/ 1 0)))
    nil)"
  (if (or (null test-name)
      (null test-fn))
    (progn (princ (string:format "[ERROR] Invalid test parameters: name=%s fn=%s expected=%s\n"
          (vl-symbol-name test-name)
          test-fn expected))
      (setq *test-fail-count* (1+ *test-fail-count*))
      (return nil)))
  (setq fn (if (and (listp test-fn)
        (listp (car test-fn)))
      (car test-fn)
      test-fn))
  (setq result (vl-catch-all-apply fn (list)))
  (setq pass (if (vl-catch-all-error-p result)
      nil (test:assert-equal expected result 1.0e-06)))
  (if pass (progn (setq *test-pass-count* (1+ *test-pass-count*))
      t)
    (progn (setq *test-fail-count* (1+ *test-fail-count*))
      nil))
  (setq *test-results* (cons (list test-name pass result expected)
      *test-results*))
  (if pass (princ (string:format "[PASS] %s\n"
        (if test-name (vl-symbol-name test-name)
          "unknown")))
    (princ (string:format "[FAIL] %s - Expected: %s, Got: %s\n"
        (if test-name (vl-symbol-name test-name)
          "unknown")
        expected result)))
  pass)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

test:run-case

上传记录