梦de深巷 发表于 2015-6-19 11:07:14

求一个自动选择梁上部和下部梁配筋最大值的插件

求大神帮写一插件

http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 梦de深巷的微博

carrot1983 发表于 2015-6-19 14:55:36

院长出手了，打个招呼问声好。
楼主，你以为你以为的就是你以为的吗？

xyp1964 发表于 2015-6-19 13:33:13

;; tt(梁配筋最大值)
(defun c:tt ()
(xyp-StartSc)
(setq i -1)
(if (setq ss (ssget '((0 . "text") (1 . "*-*-*"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq lst (xyp-Str2LstSpr (xyp-DXF 1 s1) "-")
          tx        (car (vl-sort lst '(lambda (x y) (> (atoi x) (atoi y)))))
          p0        (xyp-9pt s1 5)
          rad        (xyp-DXF 50 s1)
          th        (xyp-DXF 40 s1)
          pt        (polar p0 (- rad (* pi 0.5)) (* th 0.8))
          s2        (xyp-Text 5 pt tx)
          s2        (xyp-SubUpd s2 '(1 40 50 62) (list a th rad 1))
      )
    )
)
(xyp-End)
)

梦de深巷 发表于 2015-6-19 15:56:48

carrot1983 发表于 2015-6-19 14:55 static/image/common/back.gif
院长出手了，打个招呼问声好。
楼主，你以为你以为的就是你以为的吗？

萝卜大婶谢谢啊

carrot1983 发表于 2015-6-19 16:36:07

梦de深巷 发表于 2015-6-19 15:56 static/image/common/back.gif
萝卜大婶谢谢啊

谢我什么？谢沙发的院长。
我不会告诉你健胃工具箱里有个替换成最大值
命令: jw
★数字运算(不考虑负号)
★支持类型: 单行文本、多行文本、天正文字
★[替换成最大值(A)/替换成最小值(S)/取多数最大值(D)/取多数最小值(F)/多数增减(G)/多数结果(H)]<H>:

梦de深巷 发表于 2015-6-19 17:50:35

carrot1983 发表于 2015-6-19 16:36 static/image/common/back.gif
谢我什么？谢沙发的院长。
我不会告诉你健胃工具箱里有个替换成最大值
命令: jw


学习了确实解决了很多问题啊

/fendou结构绘图 发表于 2018-9-14 18:13:21

/fendou结构绘图 发表于 2018-9-14 18:17:25

我CAD不能识辨(xyp-StartSc)这种函数，是怎么回事。老大
页: [1]
查看完整版本: 求一个自动选择梁上部和下部梁配筋最大值的插件