（完成）[编程申请]：请将软件形成的施工图的支座负筋根数减支2，且在前面加上支座负

lengliqun

软件形成的施工图其支座负筋包含了直通筋


请将软件形成的施工图的支座负筋根数减支2，且在前面加上支座负筋标志“Z”

请下载附件。

eachy

最初由 lengliqun 发布
[B]软件形成的施工图其支座负筋包含了直通筋


请将软件形成的施工图的支座负筋根数减支2，且在前面加上支座负筋标志“Z”

请下载附件。 [/B]

[CODE]
[program]
(defun c:XDTB_ChgZz (/ ss e str)
  (if (setq ss (ssget '((0 . "text") (1 . "*]*/*") )))
    (progn
      (xdrx_setsstodb ss 0)
      (while (setq e (xdrx_getentdata 0))
        (setq str (xdrx_getentdxf 1))
        (if (> (setq num (atoi (substr str 1 1))) 2)
          (setq        str (strcat "Z"
                            (itoa (- num 2))
                            (substr str 2)
                    )
          )
          (setq
            str        (strcat        "Z"
                        (substr str (1+ (xdrx_string_find str "/")))
                )
          )
        )
        (xdrx_modent 1 str)
      )
    )
  )
  (princ)
)[/program]

lengliqun

谢谢，CAD R14下可用；佩服，这么一小段时间内能编出这么好的程序来。
可是选择好象不是很方便，非得快速连击两次方可选定一段字符，能改进吗？
1、能单击一次选定，可框选。
2、能选择不同LAYER的字符，至少包含如下图层：Mxsteel、Mysteel、Sxsteel、Syteel。
我告诉你，我是属骆驼的，嘿嘿......

eachy

最初由 lengliqun 发布
[B]谢谢，CAD R14下可用；佩服，这么一小段时间内能编出这么好的程序来。
可是选择好象不是很方便，非得快速连击两次方可选定一段字符，能改进吗？
1、能单击一次选定，可框选。
2、能选择不同LAYER的字符，至少包含... [/B]

1 程序支持框选
2 去掉了图层选项，可以是任意图层[去掉 (8 . "xsteel")]，只由字符串匹配。

上面程序已修改。

lengliqun

能否先判断是否在Sxsteel、Systeel上，若是，则只加“Z"，因Sxsteel、Systeel为次梁所在图层，次梁无通筋啦。

eachy

最初由 lengliqun 发布
[B]能否先判断是否在Sxsteel、Systeel上，若是，则只加“Z"，因Sxsteel、Systeel为次梁所在图层，次梁无通筋啦。 [/B]

对图层的操作请详细说明，本人不是搞结构的，对此一窍不通。

lengliqun

若为3]25/2]25,则无论框选还是点击都能变成Z1]25/2]25，很好用，
但若为3]25，则只能快速连击两次方可选定变成Z1]25，我希望无论框选还是点击都能变成Z1]25
若为2]25，则不能变没了，我希望若为2]25时就变没了。

tc405003

请上面的楼主救我啊!请问楼主，有没有一种LISP可以将PKPM中的WP*。T文件的配筋量转成钢筋标注如：0-8-29，点取29，会自动配筋6根25，点怪标注位置就可以了标注了；我不想一次全变，只想人为一次次点

eachy

最初由 tc405003 发布
[B]请上面的楼主救我啊!请问楼主，有没有一种LISP可以将PKPM中的WP*。T文件的配筋量转成钢筋标注如：0-8-29，点取29，会自动配筋6根25，点怪标注位置就可以了标注了；我不想一次全变，只想人为一次次点 [/B]

29 配 6 根 25 的？难道不会有别的搭配方案？（本人不是搞结构的，随便说说）

pxt2001

eachy斑竹自称不是搞结构的，但是对结构还是有所了解嘛！
８楼老兄的配筋简图0-8-29为什么要一个个的手动转化为实际钢筋，而不用pkpm软件自身转化呢？