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

用法及说明
源码

text:from-markdown

说明：将 markdown 格式的文本转化为mtext格式

用法：

 (text:from-markdown str)

参数：1 str : 字符串;

返回值：String

示例：

(defun text:from-markdown (str / lst-str str-tmp)
  "将 markdown 格式的文本转化为mtext格式"
  "String"
  (setq lst-str (string:to-list str "\n"))
  (defun handle-strong (str / tmp i res)
    (setq tmp (string:to-list str "**"))
    (setq i 0)
    (foreach unit% tmp (if (= 1 (rem i 2))
        (setq res (cons (strcat "{\\fSimHei|b0|i0|c134|p49;"
              unit% "}")
            res))
        (setq res (cons unit% res)))
      (setq i (1+ i)))
    (string:from-lst (reverse res)
      ""))
  (defun handle-header (str)
    (cond ((= "* "
          (substr str 1 2))
        (strcat "\\C2;· \\C3;"
          (substr str 3)))
      ((= "** "
          (substr str 1 3))
        (strcat "\\C2;·· \\C3;"
          (substr str 4)))
      ((= "*** "
          (substr str 1 4))
        (strcat "\\C2;··· \\C3;"
          (substr str 5)))
      ((= "**** "
          (substr str 1 5))
        (strcat "\\C2;···· \\C3;"
          (substr str 6)))
      (t str)))
  (setq lst-str (mapcar (quote handle-header)
      lst-str))
  (setq lst-str (mapcar (quote handle-strong)
      lst-str))
  (string:from-list lst-str "\\P"))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

text:from-markdown

上传记录