(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:bbox-dedupe

说明:去除被其它框完全包含的内框（中心在对方内且尺寸不更大），返回剩余框表。

用法:

 (frame:bbox-dedupe boxes)

参数:1 boxes : 未识别定义;

返回值:list - 剩余框表，元素规范化为 (xmin ymin xmax ymax)

示例:

(frame:bbox-dedupe '((0 0 84100 59400) (0 0 80600 57400))) => ((0 0 84100 59400))

(defun frame:bbox-dedupe (boxes / norm i j res a b ax ay aw ah bw bh drop)
  "去除被其它框完全包含的内框（中心在对方内且尺寸不更大），返回剩余框表。"
  "list - 剩余框表，元素规范化为 (xmin ymin xmax ymax)"
  "(frame:bbox-dedupe '((0 0 84100 59400)
      (0 0 80600 57400)))
  => ((0 0 84100 59400))"
  (setq norm (mapcar (quote (lambda (b)
          (list (min (car b)
              (caddr b))
            (min (cadr b)
              (cadddr b))
            (max (car b)
              (caddr b))
            (max (cadr b)
              (cadddr b)))))
      boxes))
  (setq res (quote nil)
    i 0)
  (while (< i (length norm))
    (setq a (nth i norm)
      ax (/ (+ (car a)
          (caddr a))
        2.0)
      ay (/ (+ (cadr a)
          (cadddr a))
        2.0)
      aw (- (caddr a)
        (car a))
      ah (- (cadddr a)
        (cadr a))
      drop nil j 0)
    (while (and (null drop)
        (< j (length norm)))
      (if (/= i j)
        (progn (setq b (nth j norm)
            bw (- (caddr b)
              (car b))
            bh (- (cadddr b)
              (cadr b)))
          (if (and (<= (car b)
                ax)
              (<= ax (caddr b))
              (<= (cadr b)
                ay)
              (<= ay (cadddr b))
              (<= aw bw)
              (<= ah bh)
              (or (not (equal a b))
                (< j i)))
            (setq drop t))))
      (setq j (1+ j)))
    (if (null drop)
      (setq res (append res (list a))))
    (setq i (1+ i)))
  res)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

frame:bbox-dedupe

上传记录