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

用法及说明
源码

frame:fields

说明:将图框属性块 tag→value 归一化为语义字段 alist（只含命中字段）。原始 tag→value 由调用方完整保留，本函数不丢弃未知 tag。aliases 传 nil 用默认值。

用法:

 (frame:fields attrs aliases)

参数:1 attrs : 未识别定义;2 aliases : 未识别定义;

返回值:list - (("title" . "...") ...)；无命中返回 nil

示例:

(frame:fields '(("图名" . "车库") ("DWGNO." . "建施-09")) nil) =>

(defun frame:fields (attrs aliases / res a tag val s e al)
  "将图框属性块 tag→value 归一化为语义字段 alist（只含命中字段）。原始 tag→value 由调用方完整保留，本函数不丢弃未知 tag。aliases 传 nil 用默认值。"
  "list - ((\"title\"
      . \"...\")
    ...)；无命中返回 nil"
  "(frame:fields '((\"图名\"
        . \"车库\")
      (\"DWGNO.\"
        . \"建施-09\"))
    nil)
  =>"
  "
   ((\"title\"
      . \"车库\")
    (\"number\"
      . \"建施-09\"))"
  (require (quote frame:*))
  (setq aliases (if aliases aliases (frame:aliases))
    res nil)
  (foreach a attrs (setq tag (car a)
      val (if (listp (cdr a))
        (cadr a)
        (cdr a)))
    (if (and (= (quote str)
          (type tag))
        (= (quote str)
          (type val))
        (/= ""
          val))
      (progn (setq tag (strcase (vl-string-trim "
              \t"
              tag))
          s nil)
        (foreach e aliases (if (and (null s)
              (= (quote str)
                (type (car e))))
            (foreach al (cdr e)
              (if (equal tag (strcase (vl-string-trim "
                      \t"
                      al)))
                (setq s (car e))))))
        (if (and s (null (assoc s res)))
          (setq res (append res (list (cons s val))))))))
  res)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

frame:fields

上传记录