找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: st788796

[标注] 分布钢筋标注

  [复制链接]

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2013-11-25 09:27:01 | 显示全部楼层
西楚河神 发表于 2013-11-25 00:18
呵呵  画完了最后肯定要来个表格统计的   板底筋弄OK了  负筋也可以整出来的哈

先写个函数,方便后面批量处理
  1. (defun calcbar (e1 e2 space dis        / sp1 ep1 sp2 ep2 l d num ss zl        box p
  2.                 txt)
  3.   (setq        sp1 (xdrx_curve_getstartpoint e1)
  4.         ep1 (xdrx_curve_getendpoint e1)
  5.         sp2 (xdrx_curve_getstartpoint e2)
  6.         ep2 (xdrx_curve_getendpoint e2)
  7.         an  (XD::Geom:AngleFormat (angle sp1 ep1))
  8.   )
  9.   (if (inters sp1 sp2 ep1 ep2)
  10.     (setq ss (ssget "C" sp1 sp2 '((0 . "text") (1 . "*@*")))
  11.           d  (distance sp1 ep2)
  12.     )
  13.     (setq ss (ssget "C" sp1 ep2 '((0 . "text") (1 . "*@*")))
  14.           d  (distance sp1 sp2)
  15.     )
  16.   )
  17.   (setq        N (1+ (fix (/ d space)))
  18.         l (+ d (* 2 dis))
  19.   )
  20.   (if ss
  21.     (progn
  22.       (setq zl (vl-remove-if
  23.                  '(lambda (x)
  24.                     (setq ro (xdrx_getpropertyvalue x "Rotation"))
  25.                     (or        (equal ro an 1e-2)
  26.                         (equal ro (+ an pi) 1e-2)
  27.                     )
  28.                   )
  29.                  (xdrx_pickset->ents ss)
  30.                )
  31.       )
  32.       (setq box (XD::Geom:Box->9pt (xdrx_entity_box (car zl))))
  33.       (if (zerop an)
  34.         (setq p (nth 7 box))
  35.         (setq p (nth 5 box))
  36.       )
  37.       ;;(xdrx_point_make p)
  38.       (setq txt        (xdrx_text_make
  39.                   p
  40.                   (strcat (itoa (fix n)) "根" (itoa (fix (/ l 10))))
  41.                   (xdrx_getpropertyvalue (car zl) "Height")
  42.                   (abs (- an _pi2))
  43.                 )
  44.       )
  45.       (xdrx_text_setvermode txt 1)
  46.       (xdrx_text_sethozmode txt 1)
  47.     )
  48.   )
  49. )
  50. (defun c:tt (/ e1 e2 sp d)
  51.   (if (and (setq e1 (car (xdrx_entsel "\nPick First: " '((0 . "line")))))
  52.            (setq e2 (car (xdrx_entsel "\nPick Second: " '((0 . "line")))))
  53.            (setq sp (getdist "\nSpace dist: "))
  54.            (setq d (getdist "\nDist: "))
  55.       )
  56.     (calcbar e1 e2 sp d)
  57.   )
  58.   (princ)
  59. )
bdj.gif

点评

谢谢大师 已经上传了个动画视频供您参考完善此一系列的插件  详情 回复 发表于 2013-11-25 11:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 163个

财富等级: 日进斗金

发表于 2013-11-25 11:42:38 | 显示全部楼层
XDSoft 发表于 2013-11-25 00:24
你啥专业的? 结构设计还是预算?

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

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

板.rar

3.23 MB, 下载次数: 16

预算下料专业软件做的动画

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 163个

财富等级: 日进斗金

发表于 2013-11-25 11:51:34 | 显示全部楼层
st788796 发表于 2013-11-25 09:27
先写个函数,方便后面批量处理

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

点评

你这是专业算量软件,太复杂,业务编程弄不了,哪些地方需要补充可以写写  详情 回复 发表于 2013-11-25 12:45
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-11-25 12:31:24 来自手机 | 显示全部楼层
st788796 发表于 2013-11-24 22:51
不懂这些,你做个演示吧

哥,没有必要,分布筋用不了几根,一边一般也就是个3根或4根。他不同于支座负筋,数量多,且不一样,这就需要标出来。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2013-11-25 12:45:05 来自手机 | 显示全部楼层
西楚河神 发表于 2013-11-25 11:51
谢谢大师   在17楼已经上传了个动画视频供您参考完善此一系列的插件

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

点评

哥,我用过专业下料软件,可不如自己亲手下料的系统和准确,就是统计这个统计那个需要时间,前两天有好多问题哥都给帮忙解决了。钢筋料全下下来了,就差系统的配料了,如果哥能把配料方案的程序给编一下就一切ok啦。  详情 回复 发表于 2013-11-25 14:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-11-25 14:29:47 来自手机 | 显示全部楼层
st788796 发表于 2013-11-25 12:45
你这是专业算量软件,太复杂,业务编程弄不了,哪些地方需要补充可以写写

哥,我用过专业下料软件,可不如自己亲手下料的系统和准确,就是统计这个统计那个需要时间,前两天有好多问题哥都给帮忙解决了。钢筋料全下下来了,就差系统的配料了,如果哥能把配料方案的程序给编一下就一切ok啦。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-12-9 16:03:50 | 显示全部楼层
看看  好好学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2013-12-9 16:13:20 | 显示全部楼层
先收了,也许有用。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-1-6 20:55:17 | 显示全部楼层
{:soso_e100:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 329个

财富等级: 日进斗金

发表于 2014-1-10 18:46:40 | 显示全部楼层
结构最爱。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 329个

财富等级: 日进斗金

发表于 2014-1-10 18:53:11 | 显示全部楼层
结构最爱。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2014-1-13 11:21:21 | 显示全部楼层
{:soso_e102:}{:soso_e102:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-1-18 09:12:17 | 显示全部楼层
谢谢楼主{:soso_e100:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-1-22 13:16:02 | 显示全部楼层
好好看看,帮帮楼主帮顶
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-4-4 07:16:20 | 显示全部楼层
经典中的经典,你值得拥有
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-13 09:04 , Processed in 0.478778 second(s), 58 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表