找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 627|回复: 11

[求助]:是否有象pkpm绘钢筋的工具

[复制链接]
发表于 2004-11-5 17:56:12 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
感觉pkpm中的绘箍筋,板筋较方便,cad中是否有这样的工具
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2004-11-7 10:42:23 | 显示全部楼层
當然有,香港有一軟件名sads,裡面包含另外三個小程式,(bdip 梁, sdip 樓板, cdip 柱)它也有跟pkpm绘钢筋功能,不過沒有破解,有沒有大俠可以幫忙一吓!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-11-7 13:45:17 | 显示全部楼层
我自己写了自己用的绘板底钢筋的小程序。


  1. ;;    =============================================
  2. ;;    |             板底钢筋自动绘制软件          |
  3. ;;    |              UPDATE: 2003.10.28           |
  4. ;;    =============================================

  5. (defun chgterr (s)
  6.   (if (/= s "命令被取消")                ; If an error (such as CTRL-C) occurs
  7.     (princ (strcat "\n错误: " s))        ; while this command is active...
  8.   )
  9.   (setvar "CMDECHO" 0)
  10.   (command "undo" "e")
  11.   (setq p nil)                                ; Free selection set
  12.   (setq *error* olderr)                        ; Restore old *error* handler
  13.   (princ)
  14. )

  15. (defun C:bdgj (/ lay os ctscale pt1 pt2 pt3 pt4 pt5 pt6 ang ptt
  16.                  txt txt1 txt2 gjxk gjjb gjjb1 dis)

  17.   (princ (strcat "\n***板底钢筋绘制软件V031028***"))
  18.   (princ (strcat "\n    ===  它山之石图形工作室作品  ==="))
  19.   (princ)

  20.   (command "undo" "be")
  21.   (setq        olderr        *error*                        ; Initialize variables
  22.         *error*        chgterr
  23.   )

  24.   (setvar "CMDECHO" 0)
  25.   (setq lay (getvar "clayer"))
  26.   (setq os (getvar "OSMODE"))
  27.   (command "color" "bylayer")

  28. ;;;若没有“板底钢筋”层则建立,否则置为当前
  29.   (if (or (= nil (tblsearch "layer" "钢筋__板底"))
  30.           (/= (cdr (assoc 8 (tblsearch "layer" "钢筋__板底"))) 0)
  31.       )
  32.       (command "layer" "m" "钢筋__板底" "c" "24" "钢筋__板底" "")
  33.       (command "layer" "s" "钢筋__板底" "" "")
  34.   )

  35. ;;;若没有“standard”字型则建立
  36.   (if (or (= nil (tblsearch "style" "rs"))
  37.           (/= (cdr (assoc 40 (tblsearch "style" "rs"))) 0)
  38.       )
  39.     (command "STYLE" "rs" "romans,hztxt" "0" ".7" "0" "n" "n" "n")
  40.   )

  41. ;;;定义出图比例
  42.   ;;;(if (= cts nil)(setq cts 100))
  43.   ;;;(setq ctscale (getreal (strcat "\n出图比例(1:?) <" (rtos cts 2 0) ">:")))
  44.   ;;;(if (= ctscale nil)(setq ctscale cts))
  45.   ;;;(setq cts ctscale)
  46.   (setq ctscale 100)

  47.   (setvar "OSMODE" 513)
  48.   (setq pt1 (getpoint "\n左下点 <退出>:"))
  49.   (if pt1;(not (null pt1))
  50.     (progn
  51.       (setvar "OSMODE" 160)
  52.       (setq pt2 (getpoint pt1 "\n右上点 <退出>:"))
  53. (if pt2
  54. (progn
  55.       (setq ang (angle pt1 pt2))
  56.       (setq pt3 (polar pt1 (+ ang (/ pi 2)) (* 1 ctscale)))
  57.       (setq pt4 (polar pt3 ang (* 1.6667 ctscale)))
  58.       (setq pt5 (polar pt2 (+ ang (/ pi 2)) (* 1 ctscale)))
  59.       (setq pt6 (polar pt5 ang (* -1.6667 ctscale)))
  60.       (setq gjxk (* 0.45 ctscale))
  61.       (setvar "OSMODE" 0)
  62.       (command "pline" pt4 "w" gjxk gjxk pt3 pt1 pt2 pt5 pt6 "")
  63.       (setq dis (distance pt1 pt2))
  64.       (setq ptt (polar pt1 ang (/ dis 2)))
  65.       (setq ptt (polar ptt (+ ang (/ pi 2)) (* 1 ctscale)))
  66.       (setq gjjb (getstring "\n钢筋级别<1>/0-不标注钢筋:"))
  67.       (if (/= gjjb "0")
  68.         (progn
  69.           (cond
  70.             ((= gjjb "") (setq gjjb1 "%%130"))
  71.             ((= gjjb "1") (setq gjjb1 "%%130"))
  72.             ((= gjjb "2") (setq gjjb1 "%%131"))
  73.             ((= gjjb "3") (setq gjjb1 "%%132"))
  74.             ((= gjjb "4") (setq gjjb1 "%%133"))
  75.             (t (setq gjjb1 "%%130"))
  76.           )
  77.           (setq txt1 (getstring "\n钢筋直径<φ8@150>:"))
  78.           (if (= txt1 "")
  79.               (setq txt (strcat gjjb1 "8@150"))
  80.                 (progn
  81.                   (setq txt2 (getstring (strcat "\n钢筋间距<φ" txt1 "@150>:")))
  82.                   (if (= txt2 "")
  83.                       (setq txt (strcat gjjb1 txt1 "@150"))
  84.                       (setq txt (strcat gjjb1 txt1 "@" txt2))
  85.                   );if txt2
  86.                 );progn
  87.           );if txt1

  88. ;;;若没有“板底钢筋标注”层则建立,否则置为当前

  89.           (if (or (= nil (tblsearch "layer" "钢筋__板底标注"))
  90.                   (/= (cdr (assoc 8 (tblsearch "layer" "钢筋__板底标注"))) 0)
  91.               )
  92.               (command "layer" "m" "钢筋__板底标注" "c" "253" "钢筋__板底标注" "")
  93.               (command "layer" "s" "钢筋__板底标注" "" "")
  94.           )
  95.           (command "text" "s" "rs" "c" ptt (* 2.5 ctscale)(* (/ ang pi) 180) txt )
  96.        );progn
  97.      );if gjjb
  98.     );progn
  99.   );if pt2
  100.     );progn
  101.   );if pt1

  102.   (setvar "OSMODE" os)
  103.   (command "layer" "s" lay "")
  104.   (command "redraw")

  105.   (setq *error* olderr)                        ; Restore old *error* handler
  106.   (command "undo" "e")

  107.   (princ (strcat "\n***板底钢筋绘制软件V031028 ***"))
  108.   (princ (strcat "\n  ===  它山之石图形工作室作品 ==="))
  109.   (princ)
  110. )

  111. ;;;2003.02.24新增功能
  112. ;;;  1、对图层设置进行了修订,保持与PKPM软件的设置一致。
  113. ;;;  2、当图中已存在钢筋及标注图层时,不再强制性的新建该图层,
  114. ;;;     而是用到时将其设为当前,程序完成后恢复原当前图层。
  115. ;;;  3、将出图比例隐含为1:100,不再给出选项。
  116. ;;;  4、增加了钢筋级别输入,当输入0时不标注钢筋。
  117. ;;;  5、将钢筋直径与间距分开输入。

  118. ;;;V030225新增功能
  119. ;;;  1、将程序定义的变量作为局部变量。
  120. ;;;  2、将出图比例变量与其它程序统一。

  121. ;;;V031028新增功能
  122. ;;;  1、增加“U”一步还原功能。
  123. ;;;  2、将图层与其它程序统一。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-11-11 21:35:03 | 显示全部楼层
最初由 lmt112233 发布
[B]當然有,香港有一軟件名sads,裡面包含另外三個小程式,(bdip 梁, sdip 樓板, cdip 柱)它也有跟pkpm绘钢筋功能,不過沒有破解,有沒有大俠可以幫忙一吓! [/B]

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

使用道具 举报

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

使用道具 举报

发表于 2004-11-11 22:11:19 | 显示全部楼层
谢谢它山之石。
提一个建议:对于钢筋直径和间距干脆就默认成φ8@150。输入扳底钢筋的左、右下点之后,直接把φ8@150标上去,免得我们一步一步输。然后我们再去修改。我觉得像现在这样反而要慢一点,毕竟修改快,个人意见!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

发表于 2004-11-29 11:24:55 | 显示全部楼层
最初由 qxs 发布
[B]用TSSD就行了 [/B]


  用PKPM也行。画好后转过来。T->DWG。呵呵

  另楼上的朋友,我原来也是隐含输入8@150之后再修改的。后来发现要改的地方并不多(因为现在配筋率要求提高了,一般住宅内的板底筋多为构造,不需标注,只在说明写未注明板底筋均为多少就行了)。所以改成了现在这个样子。
  其实程序隐含的还是8@150,你只是多点两下右键而已。我想程序提供了不输入钢筋字符的选项,而且提供了输入功能,你多点两下键应该是值得的。
  下面这个附件是输入两点就可以画好的版本。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-12-7 14:39:53 | 显示全部楼层
它山之石 能否编一个直钩的程序 毕竟现在都用三级钢了 另外有负筋的程序吗? 这里先谢谢了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-23 11:00 , Processed in 0.402471 second(s), 54 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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