分布钢筋标注

st788796 · 发表于 2013-11-25 09:27:01

西楚河神发表于 2013-11-25 00:18
呵呵画完了最后肯定要来个表格统计的板底筋弄OK了负筋也可以整出来的哈

先写个函数，方便后面批量处理

(defun calcbar (e1 e2 space dis / sp1 ep1 sp2 ep2 l d num ss zl box p
txt)
(setq sp1 (xdrx_curve_getstartpoint e1)
ep1 (xdrx_curve_getendpoint e1)
sp2 (xdrx_curve_getstartpoint e2)
ep2 (xdrx_curve_getendpoint e2)
an (XD::Geom:AngleFormat (angle sp1 ep1))
)
(if (inters sp1 sp2 ep1 ep2)
(setq ss (ssget "C" sp1 sp2 '((0 . "text") (1 . "*@*")))
d (distance sp1 ep2)
)
(setq ss (ssget "C" sp1 ep2 '((0 . "text") (1 . "*@*")))
d (distance sp1 sp2)
)
)
(setq N (1+ (fix (/ d space)))
l (+ d (* 2 dis))
)
(if ss
(progn
(setq zl (vl-remove-if
'(lambda (x)
(setq ro (xdrx_getpropertyvalue x "Rotation"))
(or (equal ro an 1e-2)
(equal ro (+ an pi) 1e-2)
)
)
(xdrx_pickset->ents ss)
)
)
(setq box (XD::Geom:Box->9pt (xdrx_entity_box (car zl))))
(if (zerop an)
(setq p (nth 7 box))
(setq p (nth 5 box))
)
;;(xdrx_point_make p)
(setq txt (xdrx_text_make
p
(strcat (itoa (fix n)) "根" (itoa (fix (/ l 10))))
(xdrx_getpropertyvalue (car zl) "Height")
(abs (- an _pi2))
)
)
(xdrx_text_setvermode txt 1)
(xdrx_text_sethozmode txt 1)
)
)
)
(defun c:tt (/ e1 e2 sp d)
(if (and (setq e1 (car (xdrx_entsel "\nPick First: " '((0 . "line")))))
(setq e2 (car (xdrx_entsel "\nPick Second: " '((0 . "line")))))
(setq sp (getdist "\nSpace dist: "))
(setq d (getdist "\nDist: "))
)
(calcbar e1 e2 sp d)
)
(princ)
)

(defun calcbar (e1 e2 space dis        / sp1 ep1 sp2 ep2 l d num ss zl        box p 
                txt) 
  (setq        sp1 (xdrx_curve_getstartpoint e1) 
        ep1 (xdrx_curve_getendpoint e1) 
        sp2 (xdrx_curve_getstartpoint e2) 
        ep2 (xdrx_curve_getendpoint e2) 
        an  (XD::Geom:AngleFormat (angle sp1 ep1)) 
  ) 
  (if (inters sp1 sp2 ep1 ep2) 
    (setq ss (ssget "C" sp1 sp2 '((0 . "text") (1 . "*@*"))) 
          d  (distance sp1 ep2) 
    ) 
    (setq ss (ssget "C" sp1 ep2 '((0 . "text") (1 . "*@*"))) 
          d  (distance sp1 sp2) 
    ) 
  ) 
  (setq        N (1+ (fix (/ d space))) 
        l (+ d (* 2 dis)) 
  ) 
  (if ss 
    (progn 
      (setq zl (vl-remove-if 
                 '(lambda (x) 
                    (setq ro (xdrx_getpropertyvalue x "Rotation")) 
                    (or        (equal ro an 1e-2) 
                        (equal ro (+ an pi) 1e-2) 
                    ) 
                  ) 
                 (xdrx_pickset->ents ss) 
               ) 
      ) 
      (setq box (XD::Geom:Box->9pt (xdrx_entity_box (car zl)))) 
      (if (zerop an) 
        (setq p (nth 7 box)) 
        (setq p (nth 5 box)) 
      ) 
      ;;(xdrx_point_make p) 
      (setq txt        (xdrx_text_make 
                  p 
                  (strcat (itoa (fix n)) "根" (itoa (fix (/ l 10)))) 
                  (xdrx_getpropertyvalue (car zl) "Height") 
                  (abs (- an _pi2)) 
                ) 
      ) 
      (xdrx_text_setvermode txt 1) 
      (xdrx_text_sethozmode txt 1) 
    ) 
  ) 
) 
(defun c:tt (/ e1 e2 sp d) 
  (if (and (setq e1 (car (xdrx_entsel "\nPick First: " '((0 . "line"))))) 
           (setq e2 (car (xdrx_entsel "\nPick Second: " '((0 . "line"))))) 
           (setq sp (getdist "\nSpace dist: ")) 
           (setq d (getdist "\nDist: ")) 
      ) 
    (calcbar e1 e2 sp d) 
  ) 
  (princ) 
)

西楚河神 · 发表于 2013-11-25 11:42:38

XDSoft 发表于 2013-11-25 00:24
你啥专业的？结构设计还是预算？

要我看，直接全图一框，一下把整个楼层算出都能做。

预算下料的插件按此动画逐个....

西楚河神 · 发表于 2013-11-25 11:51:34

st788796 发表于 2013-11-25 09:27
先写个函数，方便后面批量处理

谢谢大师在17楼已经上传了个动画视频供您参考完善此一系列的插件

hphkjz · 发表于 2013-11-25 12:31:24

st788796 发表于 2013-11-24 22:51
不懂这些，你做个演示吧

哥，没有必要，分布筋用不了几根，一边一般也就是个3根或4根。他不同于支座负筋，数量多，且不一样，这就需要标出来。

st788796 · 发表于 2013-11-25 12:45:05

西楚河神发表于 2013-11-25 11:51
谢谢大师在17楼已经上传了个动画视频供您参考完善此一系列的插件

你这是专业算量软件，太复杂，业务编程弄不了，哪些地方需要补充可以写写

hphkjz · 发表于 2013-11-25 14:29:47

st788796 发表于 2013-11-25 12:45
你这是专业算量软件，太复杂，业务编程弄不了，哪些地方需要补充可以写写

哥，我用过专业下料软件，可不如自己亲手下料的系统和准确，就是统计这个统计那个需要时间，前两天有好多问题哥都给帮忙解决了。钢筋料全下下来了，就差系统的配料了，如果哥能把配料方案的程序给编一下就一切ok啦。

0zoro · 发表于 2013-12-9 16:03:50

看看好好学习

q3_2006 · 发表于 2013-12-9 16:13:20

先收了，也许有用。。。

chxl5878 · 发表于 2014-1-6 20:55:17

{:soso_e100:}

qyming1996 · 发表于 2014-1-10 18:46:40

结构最爱。。。。

qyming1996 · 发表于 2014-1-10 18:53:11

结构最爱。。。。

eastsuner · 发表于 2014-1-13 11:21:21

{:soso_e102:}{:soso_e102:}

ytcxl1005 · 发表于 2014-1-18 09:12:17

谢谢楼主{:soso_e100:}

fisic · 发表于 2014-1-22 13:16:02

好好看看，帮帮楼主帮顶

skg123 · 发表于 2014-4-4 07:16:20

经典中的经典，你值得拥有

账号		自动登录	找回密码
密码			立即注册

[标注] 分布钢筋标注

点评

点评

点评