(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:convexhull-by-jarvis

说明:几何

用法:

 (geometry:convexhull-by-jarvis pts)

参数:pts

返回值:

示例:

(defun geometry:convexhull-by-jarvis (pts / pfirst p0 p1 pmax1 pmax2 pp)
  "最小凸包算法: jarvis 步进法，package wrapping or gift wrapping"
  (cond
    ((= (length pts) 0)
     nil
     )
    ((or nil (= (length pts) 1) (= (length pts) 2))
     (progn
       (alert "你输入的点为两点或一点!")
       pts
       )
     )
    (t
     (progn
       ;;定义矢量之叉积,即二阶行列式之值-----       (defun det2 (p1 p2)
	 (- (* (car p1) (cadr p2)) (* (car p2) (cadr p1)))
	 )
       ;;定义三点的行列式,即三点之倍面积-----       (defun det (p1 p2 p3)
	 (+ (det2 p1 p2) (det2 p2 p3) (det2 p3 p1))
	 )
       (defun sign (x)
	 (cond ((> x 0) -1.0)
	       ((< x 0) 1.0)
	       (t 0)
	       )
	 )
       ;;定义顺时针方向的夹角为正值，反之为负       (defun ang (p1 p2 p3 / x)
	 (setq x (abs (- (angle p1 p3) (angle p1 p2))))
	 (if (equal p3 p1 1e-8)
	     (- pi)
	     (if (< (abs (sin x)) 1e-8)
		 (if	(equal (- (distance p2 p3)(+ (distance p1 p2) (distance p1 p3))) 0 1e-8)
			pi
			0
			)
		 (if	(> x pi)
			(* (- (* 2 pi) x) (sign (det p2 p1 p3)))
			(* x (sign (det p2 p1 p3)))
			)
		 )
	     )
	 )
       ;;************************************       ;;程序主段****************************       (defun maxium (pts)
	 (car (vl-sort pts
		       '(lambda (e1 e2)
			 (if (equal (car e1) (car e2) 1e-8)
			     (> (cadr e1) (cadr e2))
			     (> (car e1) (car e2))
			     )
			 )
		       )
	      )
	 )
       ;;计算--------------------------------       (setq p0 (maxium pts))
       (setq p1 p0 pfirst p0 p0 (list (car p0) (+ 1.0 (cadr p0)) (caddr p0)))
       (setq pmax1 p1)
       (setq p1 (mapcar '(lambda (x) (list (ang p1 p0 x) (distance p1 x) x)) pts))
       (setq pmax2 (caddr (maxium p1)))
       (setq pp (cons pmax2 (list pmax1)))
       (while (not (equal pfirst pmax2 1e-8))
	 (setq p1 (mapcar '(lambda (x)(list (ang pmax2 pmax1 x) (distance pmax2 x) x))(mapcar 'caddr p1)))
	 (setq pmax1 pmax2)
	 (setq pmax2 (caddr (maxium p1)))
	 (setq pp (cons pmax2 pp))
	 )
       (reverse (cdr pp))
       )
     )  
    )
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

geometry:convexhull-by-jarvis

上传记录