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

梦de深巷

求大神帮写一插件

该贴已经同步到 梦de深巷的微博

carrot1983

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

xyp1964

2. ;; tt(梁配筋最大值)
   
3. (defun c:tt ()
   
4.   (xyp-StartSc)
   
5.   (setq i -1)
   
6.   (if (setq ss (ssget '((0 . "text") (1 . "*-*-*"))))
   
7.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.       (setq lst (xyp-Str2LstSpr (xyp-DXF 1 s1) "-")
   
9.             tx        (car (vl-sort lst '(lambda (x y) (> (atoi x) (atoi y)))))
   
10.             p0        (xyp-9pt s1 5)
    
11.             rad        (xyp-DXF 50 s1)
    
12.             th        (xyp-DXF 40 s1)
    
13.             pt        (polar p0 (- rad (* pi 0.5)) (* th 0.8))
    
14.             s2        (xyp-Text 5 pt tx)
    
15.             s2        (xyp-SubUpd s2 '(1 40 50 62) (list a th rad 1))
    
16.       )
    
17.     )
    
18.   )
    
19.   (xyp-End)
    
20. )

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

梦de深巷

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

萝卜大婶  谢谢啊

carrot1983

梦de深巷 发表于 2015-6-19 15:56
萝卜大婶  谢谢啊

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

梦de深巷

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

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

/fendou结构绘图

/fendou结构绘图

我CAD不能识辨(xyp-StartSc)这种函数，是怎么回事。老大