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

用法及说明
源码

@lab:summary-data

说明:求和

用法:

 (@lab:summary-data)

参数:

返回值:

示例:

(defun @lab:summary-data (/ tbl-summary get-data)
  (@::prompt (strcat "汇总图框及图框内文本信息\n形成表格"))
  (defun get-data (ent / data box mt)
    (if ent
	(progn
	  (setq data (block:get-attributes ent))
	  (setq box (entity:getbox ent 0))
	  (@:cmd "zoom" "w" (car box)(cadr box))
	  (setq mt (pickset:to-list
		    (ssget "w" (car box)(cadr box)
			   '((0 . "mtext")))))
	  (if mt
	      (progn
		(setq data-mt
		      (mapcar 'car
			      (vl-remove-if '(lambda(x)(cdr x))
					    (apply 'append
						   (mapcar '(lambda(x)
							      (text:parse-mtext
							       (text:get-mtext x)))
							   mt)))))
		(foreach
		 txt data-mt
		 (foreach handle '("材料""下料尺寸""表面处理""数量")
			  (if (setq res (member handle
						(mapcar '(lambda(x)
							   (vl-string-trim " " x))
							(string:parse-by-lst txt '("、""：""；")))))
			      (setq data (cons (cons handle
						     (cadr res)) 
					       data))))))
	    )
	  data
	  )))
  (setq mapsheet (car (entsel)))
  (prompt "请选择要提取数据的图框")
  (if (and (setq ss-tk (ssget (list '(0 . "insert")
				    (assoc 2 (entget mapsheet)))))
	   (setq tbl-data (mapcar 'get-data (pickset:to-list ss-tk)))
	   (setq tbl-header '("物料编码" "图纸编号" "单元名称/零部件名称" "材料""下料尺寸""表面处理""数量" "备注"))
	   (setq tbl-data (mapcar '(lambda(x / data)
				     (foreach hd tbl-header
					      (if (assoc hd x)
						  (setq data (cons (cdr (assoc hd x)) data))
						(setq data (cons "" data)))
					      )
				     (reverse data))
				  tbl-data))
	   (listp tbl-data)
	   (> (length tbl-data) 0))
      (table:make (getpoint "请输入表格插入位置:") "表格" tbl-header (reverse tbl-data)))
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@lab:summary-data

上传记录