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

用法及说明
源码

string:sort-by-number

说明：按数字排序字符串在夹杂数字时，如果数字前后的字符串相同，按数字大小排序,支持中文数字

用法：

 (string:sort-by-number lst-str)

参数：1 lst-str : 列表;

返回值：排序后的字符串表

示例：

(string:sort-by-number '("a5"       "a1"      "a8"      "b2"      "b1"      "a110"      "a13"))

(defun string:sort-by-number (lst-str)
  "按数字排序字符串\n在夹杂数字时，如果数字前后的字符串相同，按数字大小排序,支持中文数字"
  "排序后的字符串表"
  "(string:sort-by-number '(\"a5\"\n       \"a1\"\n      \"a8\"\n      \"b2\"\n      \"b1\"\n      \"a110\"\n      \"a13\"))"
  (vl-sort lst-str (function (lambda (x y / n a b lx ly)
        (setq n 0)
        (setq lx (string:auto-split x))
        (setq ly (string:auto-split y))
        (while (and (< n (length lx))
            (< n (length ly))
            (= (nth n lx)
              (nth n ly)))
          (setq n (1+ n)))
        (setq a (nth n lx)
          b (nth n ly))
        (if (and a b)
          (cond ((and (string:intp a)
                (string:intp b))
              (< (atoi a)
                (atoi b)))
            ((and (string:realp a)
                (string:realp b))
              (< (atof a)
                (atof b)))
            ((and (string:hannumberp a)
                (string:hannumberp b))
              (< (string:hannumber2number a)
                (string:hannumber2number b)))
            (t (< a b))))))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

string:sort-by-number

上传记录