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

用法及说明
源码

QYD:Split

说明:

用法:

 (QYD:Split string strkeylst)

参数:string;strkeylst

返回值:

示例:

(defun QYD:Split (string strkeylst / strkey i j po strlst strlst0 xlen)
  (setq strlst (cons string '()))
  (cond
    (
      (= strkeylst '())
      (setq strlst strlst)
    )
    (
      t
      (setq i 0)
      (repeat (length strkeylst)
        (setq strkey (nth i strkeylst)
                xlen (1+ (strlen strkey))
        )
        (cond
          (
            (= strkey "")
            (setq strlst strlst)
          )
          (
            t
            (setq j 0 strlst0 '())
            (repeat (length strlst)
              (setq string (nth j strlst))
              (while (setq po (vl-string-search strkey string))
                (setq strlst0 (cons (substr string 1 po) strlst0))
                (setq string (substr string (+ po xlen)))
              )
              (setq strlst0 (cons string strlst0) j (1+ j))
              (if (= (nth 0 strlst0) "") (setq strlst0 (cdr strlst0)))
            )
            (setq strlst (reverse strlst0) i (1+ i))
          )
        )
      )
    )
  )
  (setq i 0 strlst0 '())
  (repeat (length strlst)
    (if (/= (nth i strlst) "")
      (setq strlst0 (cons (nth i strlst) strlst0))
    )
    (setq i (1+ i))
  )
  (setq strlst (reverse strlst0))
  strlst
)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

QYD:Split

上传记录