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

用法及说明
源码

library:search

说明:跨目录搜索图库符号（名称 / 拼音 / 拼音首字母 / 路径）。nn参数：n kw 关键字；空串或 nil 表示按目录浏览（配合 category）n limit 最多返回条数，默认 30n category 限定专业或二级目录，如 "电气" 或 "电气/元件库"；nil 不限nn返回：alist 列表（字符串键），每项含

用法:

 (library:search kw limit category)

参数:1 kw : 未识别定义;2 limit : 未识别定义;3 category : 未识别定义;

返回值:

示例:

(defun library:search (kw limit category / qlow cat pref rest pair item all res i cnt)
  "跨目录搜索图库符号（名称 / 拼音 / 拼音首字母 / 路径）。\n\n参数：\n  kw       关键字；空串或 nil 表示按目录浏览（配合 category）\n  limit    最多返回条数，默认 30\n  category 限定专业或二级目录，如 \"电气\"
  或 \"电气/元件库\"；nil 不限\n\n返回：alist 列表（字符串键），每项含 "
  id "
  "
  name "
  "
  disc "
  "
  pyi "
  "
  off "
  "
  size "
  "
  units "
  "
  png "
  "
  dup "（字符串键）\n示例：(library:search \"三扇推拉门\"
    5 nil)\n      (library:search \"dsm\"
    5 \"室内\")
       ;; 拼音首字母（单扇门）\n      (library:search \"\"
    20 \"符号图例\")
     ;; 浏览某目录"
  (library:load)
  (setq limit (if (and limit (> limit 0))
      limit 30))
  (setq qlow (vl-string-trim "
      \t"
      (strcase (if kw kw "")
        t)))
  (setq cat (if (and category (> (strlen category)
          0))
      (strcase category t)))
  (setq pref (quote nil)
    rest (quote nil)
    cnt 0)
  (foreach pair *library:rows* (if (and (< cnt (* limit 20))
        (or (null cat)
          (= (substr (car pair)
              1 (strlen cat))
            cat))
        (or (= qlow "")
          (vl-string-search qlow (car pair))))
      (progn (setq cnt (1+ cnt))
        (setq item (library:--parse (cdr pair)))
        (if (and (> (strlen qlow)
              0)
            (= (substr (strcase (cdr (assoc "name"
                      item))
                  t)
                1 (strlen qlow))
              qlow))
          (setq pref (cons item pref))
          (setq rest (cons item rest))))))
  (setq all (append (reverse pref)
      (reverse rest)))
  (setq res (quote nil)
    i 0)
  (while (and all (< i limit))
    (setq res (cons (car all)
        res)
      all (cdr all)
      i (1+ i)))
  (reverse res))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

library:search

上传记录