(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:match-all

说明:返回所有几何一致的图框解读 (图幅名加长标记比例)，按标准图幅面积（大图、小比例）降序。n 同一矩形可有多种解读（例如 1:100 的 A1 与 1:200 的 A3 是同一个矩形），几何无法区分，n 调用方应结合图签属性 (frame:fields) 或图内比例文字定夺。可选位传 nil 用默认值。

用法:

 (frame:match-all w h scales tol-ratio tol-len)

参数:1 w : 未识别定义;2 h : 未识别定义;3 scales : 比例值;4 tol-ratio : 未识别定义;5 tol-len : 未识别定义;

返回值:list - 解读表；不匹配返回 nil

示例:

(frame:match-all 84000 59400 nil nil nil) => (("A1" "" 100) ("A3" "" 200))

(defun frame:match-all (w h scales tol-ratio tol-len / s l r rt eg hs ns k j m res)
  "返回所有几何一致的图框解读 (图幅名 加长标记 比例)，按标准图幅面积（大图、小比例）降序。\n  同一矩形可有多种解读（例如 1:100 的 A1 与 1:200 的 A3 是同一个矩形），几何无法区分，\n  调用方应结合图签属性 (frame:fields)
  或图内比例文字定夺。可选位传 nil 用默认值。"
  "list - 解读表；不匹配返回 nil"
  "(frame:match-all 84000 59400 nil nil nil)
  => ((\"A1\"
      \"\"
      100)
    (\"A3\"
      \"\"
      200))"
  (require (quote frame:*))
  (setq scales (if scales scales (frame:scales))
    tol-ratio (if tol-ratio tol-ratio 0.002)
    tol-len (if tol-len tol-len 0.001)
    s (min w h)
    l (max w h))
  (if (> s 0)
    (progn (setq r (/ l (float s))
        rt (frame:ratios)
        eg (frame:elongations)
        hs (frame:heights)
        ns (frame:names)
        k 0 res nil)
      (while (< k (length rt))
        (if (equal r (nth k rt)
            tol-ratio)
          (progn (setq j 0)
            (while (< j (length scales))
              (setq m 0)
              (while (< m (length hs))
                (if (equal s (* (nth m hs)
                      (nth j scales))
                    (* tol-len s))
                  (setq res (append res (list (list (nth m ns)
                          (nth k eg)
                          (nth j scales)
                          (* (nth m hs)
                            (nth m hs)
                            (nth k rt)))))))
                (setq m (1+ m)))
              (setq j (1+ j)))))
        (setq k (1+ k)))
      (setq res (vl-sort res (quote (lambda (a b)
              (> (cadddr a)
                (cadddr b))))))
      (if res (mapcar (quote (lambda (x)
              (list (car x)
                (cadr x)
                (caddr x))))
          res)
        nil))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

frame:match-all

上传记录