(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:p

说明:判断点表是否为矩形图框：对角线等长（矩形）且尺寸匹配图幅。可选参数传 nil 用默认值。

用法:

 (frame:p pts scales tol-ratio tol-len)

参数:1 pts : 多个坐标点列表;2 scales : 比例值;3 tol-ratio : 未识别定义;4 tol-len : 未识别定义;

返回值:T 或 nil

示例:

(frame:p '((0 0) (84100 0) (84100 59400) (0 59400)) nil nil nil) => T

(defun frame:p (pts scales tol-ratio tol-len / sp n xmn xmx ymn ymx w h d1 d2 tol)
  "判断点表是否为矩形图框：对角线等长（矩形）且尺寸匹配图幅。可选参数传 nil 用默认值。"
  "T 或 nil"
  "(frame:p '((0 0)
      (84100 0)
      (84100 59400)
      (0 59400))
    nil nil nil)
  => T"
  (require (quote frame:*))
  (if (and pts (>= (setq n (length pts))
        4))
    (progn (setq sp (vl-sort pts (quote (lambda (a b)
              (or (< (car a)
                  (car b))
                (and (equal (car a)
                    (car b)
                    1.0e-06)
                  (< (cadr a)
                    (cadr b))))))))
      (setq xmn (apply (quote min)
          (mapcar (quote car)
            sp))
        xmx (apply (quote max)
          (mapcar (quote car)
            sp))
        ymn (apply (quote min)
          (mapcar (quote cadr)
            sp))
        ymx (apply (quote max)
          (mapcar (quote cadr)
            sp)))
      (setq w (- xmx xmn)
        h (- ymx ymn))
      (setq d1 (distance (car sp)
          (nth (1- n)
            sp))
        d2 (distance (cadr sp)
          (caddr sp))
        tol (* 0.001 d1))
      (if (and (equal d1 d2 tol)
          (frame:match w h scales tol-ratio tol-len))
        t nil))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

frame:p

上传记录