精品试听季，好课抢鲜听 工程师进阶必备，全套项目资料包来袭！
      土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 数字取50的倍数

      数字取50的倍数

      发布于：2010-11-14 00:09:14 来自：建筑设计/CAD下载及教程 [复制转发]
      能不能帮我实现这样的一个功能，比如，同时有900到1200之间好几个楼。能不能让900～950之间的改成950，950～1000的数改成1000。能框选。谢谢。
      举报

      全部回复（2 ）

      只看楼主 我来说两句抢地板
      • a66232467
        a66232467 沙发
        非常感谢，已经实现了我的功能，我好好研读下这个程序，好好的学习一下，再次表示感谢。
        2010-11-14 09:39:14

        回复 举报
        赞同0
      • 5guozhijian
        5guozhijian 板凳
        ;取整50
        (DEFUN C:TXTFIX ()
        (SETVAR "CMDECHO" 0)
        (PRINC "\nPlease Select Text(s) 请选择文字 :")
        (IF (SETQ SS (SSGET '((0 . "TEXT")))) (PROGN
        (PRINC SS)
        (SETQ SL (SSLENGTH SS) I 0)
        (REPEAT SL
        (SETQ SN (SSNAME SS I) I (1+ I)
        DL (ENTGET SN)
        TT (CDR (ASSOC 1 DL))
        TF (ASCII TT))
        (IF (AND (> TF (ASCII "0")) (<= TF (ASCII "9"))) (PROGN
        (SETQ TN (ATOI TT))
        (IF (> (ABS (- (/ TN 50.0) (/ TN 50))) 1E-6) (PROGN
        (SETQ TT1 (ITOA (* (1+ (/ TN 50)) 50))
        DL (SUBST (CONS 1 TT1) (CONS 1 TT) DL))
        (ENTMOD DL)
        ))
        ))
        )
        ))
        (SETVAR "CMDECHO" 1)
        (PRINC)
        )
        2010-11-14 09:25:14

        回复 举报
        赞同0
      相关推荐
      a66232467
      这个家伙什么也没有留下。。。

      主题

      10

      回复

      31

      粉丝

      0
      + 关注 私信

      CAD下载及教程

      返回版块

      52.09 万条内容 · 667 人订阅

      猜你喜欢

      阅读下一篇

      04G353

      04G353

      返回土木在线首页 返回论坛首页
      a66232467
      我来说两句抢地板 免费打赏 2

      回帖成功

      经验值 +10

      关于我们 | 联系我们 | 网站声明 | 帮助中心 | 网站地图 | 土木在线手机版

      Copyright©2000-2024  常州易宝网络服务有限公司版权所有  苏B2-20220726  出版物经营许可证