(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-planning:calc

说明:计算

用法:

 (at-planning:calc)

参数:

返回值:

示例:

(defun at-planning:calc (/ sum-area land-curve green-cruve)
  "计算面积指标"
  (at-planning:zoom)
  ;;地块面积  (setq land-curve (pickset:to-list
                   (ssget "w" at-planning:range-pt1 at-planning:range-pt2
			  (list (cons 0 "lwpolyline")
				(cons 8 (@:get-config '@planning:land-layer))
				))))
  (setq @planning:*land-area* (mapcar '(lambda(x)(vla-get-area (e2o x))) land-curve))
  (if (> (at-planning:sum @planning:*land-area*) 0)
      (progn
	;; 绿地面积	(setq green-curve (pickset:to-list
			   (ssget "w" at-planning:range-pt1 at-planning:range-pt2
				  (list (cons 0 "lwpolyline")
					(cons 8 (@:get-config '@planning:green-layer))
					))))
	(setq @planning:*greening-area* (mapcar '(lambda(x)(vla-get-area (e2o x))) green-curve))
	(setq @planning:*green-all-area* (at-planning:sum @planning:*greening-area*))
	
	;; 林荫车位折减	(setq lst-car (pickset:to-list
                       (ssget"w" at-planning:range-pt1 at-planning:range-pt2
			     (list (cons 0 "insert")
				   (cons 2 "林荫车位")
				   ))))
	(setq @planning:*green-reduction-area* (* -1 0.6 2.4 5.3 (length lst-car)))
	;; 绿地率	(setq @planning:*greening-rate*
	      (/ (+ @planning:*green-all-area*
		    @planning:*green-reduction-area*
		    )
		 (at-planning:sum @planning:*land-area*))
	      )
	;; 建筑基底面积	(setq building-curve (pickset:to-list
			 (ssget"w" at-planning:range-pt1 at-planning:range-pt2
			       (list (cons 0 "lwpolyline")
				     (cons 8 (@:get-config '@planning:building-layer))
				     ))))
	(setq @planning:*building-floor1-area* (mapcar '(lambda(x)(vla-get-area (e2o x))) building-curve))
	;; 车位	(setq @planning:*parking-overground*
	      (length
	       (pickset:to-list
                (ssget"w" at-planning:range-pt1 at-planning:range-pt2
		      (list (cons 0 "insert")
			    (cons 2 (@:get-config '@planning:parking))
			    )))))
	)))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-planning:calc

上传记录