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

用法及说明
源码

@pm:get-map-sheet

说明:获取

用法:

 (@pm:get-map-sheet content%)

参数:content%

返回值:

示例:

(defun @pm:get-map-sheet (content% / height width tk% paper i% ps)
  "取图幅尺寸"
  (cond
   ((member (cdr (assoc "map-sheet" content%)) (mapcar 'car @:paper-size))
    (cdr (assoc "map-sheet" content%)))
   ((member (cdr (assoc "可见性" content%)) (mapcar 'car @:paper-size))
    (cdr (assoc "可见性" content%)))
   ((member (cdr (assoc "图幅" content%)) (mapcar 'car @:paper-size))
    (cdr (assoc "图幅" content%)))
   ((member (entity:getdxf (cdr (assoc "ename" content%)) 2) (mapcar 'car @:paper-size))
    ;;块名为图幅    (entity:getdxf (cdr (assoc "ename" content%)) 2)
    )
   (t ;; 非标图框处理    ;; 取宽高及比例    (setq tk% (entity:getbox (cdr (assoc "ename" content%)) 0))
    (setq height (abs(/(- (cadadr tk%)(cadar tk%)) (cdr (assoc "boxScale" content%))(@:get-config '@::draw-scale))))
    (setq width (abs (/(- (caadr tk%)(caar tk%))(cdr (assoc "boxScale" content%)) (@:get-config '@::draw-scale))))
    ;;(print height)(print width)    (setq paper "非标图框")
    (setq i -1)
    (while (and (< (setq i (1+ i))(length @:paper-size))
		(or 
		 (>= height (+ (caddr (nth i @:paper-size)) 2))
		 (>= width (+ (cadr (nth i @:paper-size)) 2)))))
    (if (< i (length @:paper-size))
	(setq paper  (car (nth i @:paper-size)))
      ;; 按合适的长宽比例缩放图纸      (progn
	(setq i -1)
	(setq ps (vl-sort @:paper-size '(lambda (x y)
					  (or (and (eq (/ (cadr x)(caddr x)) (/ (cadr y)(caddr y)) 0.001)
						   (> (caddr x)(caddr y)))
					      (< (/ (cadr x)(caddr x))(/ (cadr y)(caddr y)))))))
	
	(while (< (/ width height) (/ (cadr (nth (setq i (1+ i)) ps)) (caddr (nth i ps)))))
	(if (< i (length @:paper-size))
	    (setq paper (car (nth i ps)))
	  (setq paper (car (last ps)))
	  )
	))
    paper)))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@pm:get-map-sheet

上传记录