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

用法及说明
源码

geometry:collinear-most

说明:求点集中共线点数最多的点集；tol 为方向分量容差，传 nil 使用默认 1e-8，点表内各点维度需一致

用法:

 (geometry:collinear-most pts tol)

参数:1 pts : 未识别定义;2 tol : 未识别定义;

返回值:点表 - 共线点数最多的一个点集；重合点会被剔除，点数不足2时返回原点表

示例:

(geometry:collinear-most '((0 0) (1 1) (2 2) (3 5)) nil) => ((0 0) (1 1) (2 2))

(defun geometry:collinear-most (pts tol / n i j a b d v k grp hit groups cnt best best-pts p q clean)
  "求点集中共线点数最多的点集；tol 为方向分量容差，传 nil 使用默认 1e-8，点表内各点维度需一致"
  "点表 - 共线点数最多的一个点集；重合点会被剔除，点数不足2时返回原点表"
  "(geometry:collinear-most '((0 0)
      (1 1)
      (2 2)
      (3 5))
    nil)
  => ((0 0)
    (1 1)
    (2 2))"
  (if (null tol)
    (setq tol 1.0e-08))
  (foreach p pts (if (not (vl-some (function (lambda (q)
              (<= (distance p q)
                tol)))
          clean))
      (setq clean (cons p clean))))
  (setq pts (reverse clean)
    n (length pts))
  (if (< n 2)
    pts (progn (setq i 0)
      (repeat n (setq a (nth i pts)
          j (1+ i)
          groups nil)
        (while (< j n)
          (setq b (nth j pts)
            d (distance a b))
          (if (> d tol)
            (progn (setq v (mapcar (function (lambda (x y)
                      (/ (- x y)
                        d)))
                  b a)
                k 0)
              (while (and (< k (length v))
                  (<= (abs (nth k v))
                    1.0e-12))
                (setq k (1+ k)))
              (if (and (< k (length v))
                  (minusp (nth k v)))
                (setq v (mapcar (function (lambda (x)
                        (- x)))
                    v)))
              (setq hit nil)
              (foreach grp groups (if (and (null hit)
                    (vl-every (function (lambda (x y)
                          (<= (abs (- x y))
                            tol)))
                      v (car grp)))
                  (setq hit grp)))
              (if hit (setq groups (mapcar (function (lambda (g)
                        (if (eq g hit)
                          (cons (car g)
                            (cons b (cdr g)))
                          g)))
                    groups))
                (setq groups (cons (list v b)
                    groups)))))
          (setq j (1+ j)))
        (foreach grp groups (setq cnt (1+ (length (cdr grp))))
          (if (or (null best)
              (> cnt best))
            (setq best cnt best-pts (cons a (reverse (cdr grp))))))
        (setq i (1+ i)))
      (if best-pts best-pts pts))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

geometry:collinear-most

上传记录