at-planning:make-index

说明:创建

用法:

 (at-planning:make-index)

参数:

返回值:

示例:

(defun at-planning:make-index ()
  (if (or(or (null  @planning:*building-overground-area*)
	     (zerop @planning:*building-overground-area*))
	 (null  @planning:*building-underground-area*)
	 (or (null @planning:*plot-area*)
	     (zerop @planning:*plot-area*))
	 (null @planning:*parking-underground*))
      (at-planning:input))
  (if (at-planning:calc)
      (progn
	(if (zerop @planning:*building-overground-area*)
	    (progn
	      (setq @planning:*plot-area*
		    (setq @planning:*building-overground-area*
			  (* (at-planning:sum @planning:*building-floor1-area*)
			     (@::get-config '@planning:floor-num)))
		    )
	      ))
	(setq @planning:*building-all-area*
	      (+ @planning:*building-overground-area*
		 @planning:*building-underground-area*))
	(ui:dyndraw (table:make
		     '(0 0 0)
		     "主要技术经济指标一览表"
		     '("项目名称""单位""数量""备注")
		   (append
		    (list
		     (list "总建设用地" "㎡"
			   (at-planning:sum  @planning:*land-area*)
			   (strcat (rtos (/ (at-planning:sum  @planning:*land-area*) 666.6) 2 3)
				   "亩")
			   ))
		    (if (> (length @planning:*land-area*)1)
			(progn
			  (setq i 0)
			  (mapcar '(lambda(x)
				     (list (strcat "其中:  地块"(itoa (setq i (1+ i))))
					   "㎡"
					   x
				     ""))
				  @planning:*land-area*)))
		    (list
		     (list "总建筑面积" "㎡" @planning:*building-all-area* "")
		     (list "其中：地上建筑面积" "㎡" @planning:*building-overground-area* "")
		     (list "其中：地下建筑面积" "㎡" @planning:*building-underground-area* "")
		     (list "计容面积" "㎡" @planning:*plot-area* "")
		     (list "建筑基底面积" "㎡" (at-planning:sum @planning:*building-floor1-area*) "")
		     (list "绿地面积" "㎡" (+ @planning:*green-all-area*
					      @planning:*green-reduction-area*)
			   "")
		     (list "建筑密度" "%" (strcat (@:to-string(* 100 (/ (at-planning:sum @planning:*building-floor1-area*) (at-planning:sum @planning:*land-area*))))"%") (strcat "≤" (itoa(fix(@:get-config '@planning:building-density-limit))) "%"))
		     (list "容积率" "万㎡/ha"
			   (/ @planning:*plot-area*
			      (at-planning:sum @planning:*land-area*)
			      )
			   (strcat "≤"(@:to-string(@:get-config '@planning:floor-area-ratio-limit))))
		     (list "绿地率" "%" (strcat (@:to-string (* 100 @planning:*greening-rate*))"%")
			   (strcat "≥" (itoa(fix(@:get-config '@planning:greening-rate-limit))) "%"))
		     (list "非机动车停车位" "㎡" "" "")
		     (list "总车位" "个" (itoa (+ @planning:*parking-overground*
						  @planning:*parking-underground*))
			   "")
		     (list "其中：地上" "个" (itoa @planning:*parking-overground*) "")
		     (list "其中：地下" "个" (itoa @planning:*parking-underground*) "")
		     )))
		  '(0 0 0))
      
      )))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-planning:make-index

上传记录