prefabricated-building:draw-wall

说明:绘制

用法:

 (prefabricated-building:draw-wall wall pt-base)

参数:wall;pt-base

返回值:

示例:

(defun prefabricated-building:draw-wall (wall pt-base)
  (setq w (cond
	    ((wcmatch (entity:getdxf wall 2) "Q@600")
	     300)
	    ((wcmatch (entity:getdxf wall 2) "Q@750")
	     375)))
  ;; (entity:make-text  ;;  (strcat "构件号: "  ;; 	   (cdr(assoc "ORDER" (block:get-attributes wall)))  ;; 	   " , 类型: " (entity:getdxf wall 2)  ;; 	   )  ;;  (polar pt-base 4.25 2930)  ;;  250 0 0.8 0 "LB")  ;; 图框  
  (setq tk
	(vla-insertblock *MS* (point:to-ax (polar pt-base 5.42698 4535))
			 "图框-图集" 0.2 0.2 0.2 0))
  ;; (block:insert "图框-图集" "" (polar pt-base 5.42698 4535) 0 0.2))  ;; (vla-update (e2o tk))  (block:set-attributes tk (list (cons "图名" (strcat "构件号: "
   						      (cdr(assoc "ORDER" (block:get-attributes wall)))
   						      " , 类型: " (entity:getdxf wall 2)))))
  
  (vla-insertblock *MS* (point:to-ax pt-base)
			 "GJ-elec-dim" 1.0 1.0 1.0 0)
  ;; A  ;; 绘外形  (entity:make-text
   "A面"
   (polar pt-base (* 1.5 pi) 500)
   250 0 0.8 0 "LB")
  (entity:make-lwpolyline
   (list pt-base
	 (setq pt-r (polar pt-base 0 (* 2 w)))
	 (setq pt-rh  (polar pt-r (* 0.5 pi) 3080))
	 (setq pt-lh (polar pt-base (* 0.5 pi) 3080)))
   nil 0 1 0)
  ;; 绘梁花  (cond
    ((= "D" (cdr(assoc "BEAM" (block:get-attributes wall))))
     (entity:make-lwpolyline
      (list pt-lh
	    (setq pt-l2 (polar pt-lh 0 160))
	    (polar pt-l2 (* 1.5 pi) 380)
	    (polar pt-lh (* 1.5 pi) 380))
      nil 0 1 0)
     (entity:make-lwpolyline
      (list pt-rh
	    (setq pt-r2 (polar pt-rh pi 160))
	    (polar pt-r2 (* 1.5 pi) 380)
	    (polar pt-rh (* 1.5 pi) 380))
      nil 0 1 0))
    ((= "L" (cdr(assoc "BEAM" (block:get-attributes wall))))
     (entity:make-lwpolyline
      (list pt-lh
	    (setq pt-l2 (polar pt-lh 0 160))
	    (polar pt-l2 (* 1.5 pi) 380)
	    (polar pt-lh (* 1.5 pi) 380))
      nil 0 1 0))
    ((= "R" (cdr(assoc "BEAM" (block:get-attributes wall))))
     (entity:make-lwpolyline
      (list pt-rh
	    (setq pt-r2 (polar pt-rh pi 160))
	    (polar pt-r2 (* 1.5 pi) 380)
	    (polar pt-rh (* 1.5 pi) 380))
      nil 0 1 0)))
  ;; 电气A  (prefabricated-building:draw-elec wall pt-base t)
  ;; B  ;; 绘外形  (setq pt-base (polar pt-base 0 1000))
  (entity:make-text
   "B面"
   (polar pt-base (* 1.5 pi) 500)
   250 0 0.8 0 "LB")
  (entity:make-lwpolyline
   (list pt-base
	 (setq pt-r (polar pt-base 0 (* 2 w)))
	 (setq pt-rh  (polar pt-r (* 0.5 pi) 3080))
	 (setq pt-lh (polar pt-base (* 0.5 pi) 3080)))
   nil 0 1 0)
  ;; 绘梁花  (cond
    ((= "D" (cdr(assoc "BEAM" (block:get-attributes wall))))
     (entity:make-lwpolyline
      (list pt-lh
	    (setq pt-l2 (polar pt-lh 0 160))
	    (polar pt-l2 (* 1.5 pi) 380)
	    (polar pt-lh (* 1.5 pi) 380))
      nil 0 1 0)
     (entity:make-lwpolyline
      (list pt-rh
	    (setq pt-r2 (polar pt-rh pi 160))
	    (polar pt-r2 (* 1.5 pi) 380)
	    (polar pt-rh (* 1.5 pi) 380))
      nil 0 1 0))
    ((= "R" (cdr(assoc "BEAM" (block:get-attributes wall))))
     (entity:make-lwpolyline
      (list pt-lh
	    (setq pt-l2 (polar pt-lh 0 160))
	    (polar pt-l2 (* 1.5 pi) 380)
	    (polar pt-lh (* 1.5 pi) 380))
      nil 0 1 0))
    ((= "L" (cdr(assoc "BEAM" (block:get-attributes wall))))
     (entity:make-lwpolyline
      (list pt-rh
	    (setq pt-r2 (polar pt-rh pi 160))
	    (polar pt-r2 (* 1.5 pi) 380)
	    (polar pt-rh (* 1.5 pi) 380))
      nil 0 1 0)))
  ;; 电气B  (prefabricated-building:draw-elec wall pt-base nil)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

prefabricated-building:draw-wall

上传记录