at-structure:draw-rebar

说明:绘制

用法:

 (at-structure:draw-rebar pt-base width height cover rebar-config)

参数:pt-base;width;height;cover;rebar-config

返回值:

示例:

(defun at-structure:draw-rebar (pt-base width height cover rebar-config
					/ inner-w inner-h x1 y1 x2 y2)
  "绘制柱配筋（支持角筋+边中部钢筋+箍筋）
参数:
  pt-base: 插入点(柱混凝土截面左下角)
  width: 柱宽
  height: 柱高
  cover: 保护层厚度
  rebar-config: 配筋配置表，如:
    (4 25 3 22 2 20 8 100/200 1 3 4) 角筋4根25,b边中部3根22,h边中部2根20,箍筋8和间距，箍筋类型和肢数
返回: 图元名列表"
  "List"
  (setq inner-w (- width (* 2.0 cover)))
  (setq inner-h (- height (* 2.0 cover)))
  (setq pt1 (polar pt-base (* 0.25 pi)
		   (* (sqrt 2) cover)))
  (setq pt2 (mapcar '+
		    pt1
		    (list inner-w inner-h)))
  ;;角筋  (foreach
   p (list pt1 pt2
	   (polar pt1 0 inner-w)
	   (polar pt1 (* 0.5 pi) inner-h))
   (at-structure:draw-one-rebar p (nth 1 rebar-config)))
  (entity:make-multileader
   (list pt2
	 (polar pt2 (* 0.25 pi) 150))
   (strcat (itoa (nth 0 rebar-config))"\U+0084"
	   (itoa (nth 1 rebar-config))))
   		 
  ;; b 中间纵筋  (setq delta (/ (- width (* 2.0 cover))
		 (1+ (nth 2 rebar-config))))
		  
  (at-structure:draw-edge-rebar
   (polar pt1 0 delta)
   (polar pt1 0 (* delta (nth 2 rebar-config)))
   (nth 2 rebar-config)
   (nth 3 rebar-config))
  (at-structure:draw-edge-rebar
   (polar pt2 pi delta)
   (polar pt2 pi (* delta (nth 2 rebar-config)))
   (nth 2 rebar-config)
   (nth 3 rebar-config))
  (entity:make-text
   (strcat (itoa (nth 2 rebar-config))"%%132"
	   (itoa (nth 3 rebar-config)))
   (polar pt-base 0 (* 0.5 width))
   25 0 0.7 0 "mt")
  ;; 内箍  ;; (cond  ;;  ((= (- (nth 9 rebar-config) 2) 1)  ;;   (at-structure:draw-stirrup
  ;;    ))  ;;  )  (entity:make-text
   (strcat "箍筋: \U+0084" (itoa (nth 6 rebar-config))"@"
	   (if  (numberp (nth 7 rebar-config))
	       (itoa (nth 7 rebar-config))
	     (vl-symbol-name (nth 7 rebar-config)))
	   "类型:  "(itoa (nth 9 rebar-config))"x"
	   (itoa (nth 10 rebar-config))
	   )
   (polar (polar pt-base 0 (* 0.5 width))
	  (* 1.5 pi) 35)
   25 0 0.7 0 "mt")
  ;; h 中间纵筋  (setq delta (/ (- height (* 2.0 cover))
		  (1+ (nth 4 rebar-config))))
  (at-structure:draw-edge-rebar
   (polar pt1 (* 0.5 pi) delta)
   (polar pt1 (* 0.5 pi) (* delta (nth 4 rebar-config)))
   (nth 4 rebar-config)
   (nth 5 rebar-config))
  (at-structure:draw-edge-rebar
   (polar pt2 (* 1.5 pi) delta)
   (polar pt2 (* 1.5 pi) (* delta (nth 4 rebar-config)))
   (nth 4 rebar-config)
   (nth 5 rebar-config))
  (entity:make-text
   (strcat (itoa (nth 4 rebar-config))"%%132"
	   (itoa (nth 5 rebar-config)))
   (polar pt-base (* 0.5 pi) (* 0.5 height))
   25 (* 0.5 pi) 0.7 0 "mb")
  ;; 箍筋  (at-structure:draw-stirrup
   pt1
   inner-w inner-h
   )
  ;; 内部肢数需要手工绘制  (entlast))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-structure:draw-rebar

上传记录