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

用法及说明
源码

at-stat:stat-circle

说明:统计

用法:

 (at-stat:stat-circle)

参数:

返回值:

示例:

(defun at-stat:stat-circle (/ grp-by-y grp% flag)
  ;;一条龙排序，先y
  (setq circles
	(vl-sort (pickset:to-list (ssget '((0 . "circle"))))
		 '(lambda (x y)
		    (<= (cadr (entity:getdxf x 10))
		       (cadr (entity:getdxf y 10))))))
  ;;分组
  (setq grp-by-y '())
  (setq grp% (cons (car circles) nil))
  (setq flag T)
  (foreach ent% (cdr circles)
	   (if (equal (cadr (entity:getdxf (car grp%) 10))
		      (cadr (entity:getdxf ent% 10))
		      0.001)
	       (setq grp% (cons ent% grp%))
	     (progn
	       (setq grp-by-y (cons
			       (vl-sort grp%
					'(lambda (e1 e2)
					   (if flag
					       (> (car (entity:getdxf e1 10))
						  (car (entity:getdxf e2 10)))
					     (< (car (entity:getdxf e1 10))
						(car (entity:getdxf e2 10))))))
			       grp-by-y))
	       (setq flag (not flag))
	       (setq grp% (cons ent% nil)))))
  (if grp%
      (setq grp-by-y (cons
		      (vl-sort grp%
			       '(lambda (e1 e2)
				  (if flag
				      (> (car (entity:getdxf e1 10))
					 (car (entity:getdxf e2 10)))
				    (< (car (entity:getdxf e1 10))
				       (car (entity:getdxf e2 10))))))
		      grp-by-y)))
  (setq grp-by-y (reverse grp-by-y))
  (setq n 0)
  (foreach grp% grp-by-y
	   (foreach ent% grp%
		    (entity:make-text
		     (itoa (setq n (1+ n)))
		     (entity:getdxf ent% 10)
		     (* 1.5 (entity:getdxf ent% 40))
		     0 0.8 0 "MM")))
  ;; 半径，坐标
  (setq grp-by-y (apply 'append grp-by-y))
  (table:make (getpoint ) "统计" '("No." "R" "X" "Y")
	      (mapcar '(lambda (x) (list
				    (1+ (- (length grp-by-y)
					   (length (member x grp-by-y))))
				    (entity:getdxf x 40)
				    (car (entity:getdxf x 10))
				    (cadr (entity:getdxf x 10))))
		      grp-by-y))
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-stat:stat-circle

上传记录