明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1235|回复: 7

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

[复制链接]
发表于 2015-6-19 11:07 | 显示全部楼层 |阅读模式
求大神帮写一插件

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

本帖子中包含更多资源

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

x
发表于 2015-6-19 13:33 | 显示全部楼层
  1. ;; tt(梁配筋最大值)
  2. (defun c:tt ()
  3.   (xyp-StartSc)
  4.   (setq i -1)
  5.   (if (setq ss (ssget '((0 . "text") (1 . "*-*-*"))))
  6.     (while (setq s1 (ssname ss (setq i (1+ i))))
  7.       (setq lst (xyp-Str2LstSpr (xyp-DXF 1 s1) "-")
  8.             tx        (car (vl-sort lst '(lambda (x y) (> (atoi x) (atoi y)))))
  9.             p0        (xyp-9pt s1 5)
  10.             rad        (xyp-DXF 50 s1)
  11.             th        (xyp-DXF 40 s1)
  12.             pt        (polar p0 (- rad (* pi 0.5)) (* th 0.8))
  13.             s2        (xyp-Text 5 pt tx)
  14.             s2        (xyp-SubUpd s2 '(1 40 50 62) (list a th rad 1))
  15.       )
  16.     )
  17.   )
  18.   (xyp-End)
  19. )
发表于 2015-6-19 14:55 | 显示全部楼层
院长出手了,打个招呼问声好。
楼主,你以为你以为的就是你以为的吗?
 楼主| 发表于 2015-6-19 15:56 | 显示全部楼层
carrot1983 发表于 2015-6-19 14:55
院长出手了,打个招呼问声好。
楼主,你以为你以为的就是你以为的吗?

萝卜大婶  谢谢啊
发表于 2015-6-19 16:36 | 显示全部楼层
梦de深巷 发表于 2015-6-19 15:56
萝卜大婶  谢谢啊

谢我什么?谢沙发的院长。
我不会告诉你健胃工具箱里有个替换成最大值
命令: jw
[JW]★数字运算(不考虑负号)
★支持类型: 单行文本、多行文本、天正文字
★[替换成最大值(A)/替换成最小值(S)/取多数最大值(D)/取多数最小值(F)/多数增减(G)/多数结果(H)]<H>:
 楼主| 发表于 2015-6-19 17:50 | 显示全部楼层
carrot1983 发表于 2015-6-19 16:36
谢我什么?谢沙发的院长。
我不会告诉你健胃工具箱里有个替换成最大值
命令: jw

学习了  确实解决了很多问题啊
发表于 2018-9-14 18:17 | 显示全部楼层
我CAD不能识辨(xyp-StartSc)这种函数,是怎么回事。老大
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 21:58 , Processed in 0.253272 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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