设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [编程申请]：能否将图纸中的数字按50 100取整 ...
返回列表 发新帖
查看: 1011|回复: 12

[编程申请]：能否将图纸中的数字按50 100取整

[复制链接]
magiczertul
发表于 2005-2-27 11:46:30 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
对支座钢筋长度取整修改很方便
支座, 图纸, 钢筋

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

zxq0220

已领礼包: 11288个

财富等级: 富甲天下
发表于 2005-2-27 22:04:28 | 显示全部楼层
不明白楼主的数字是
写在图中的文本？
还是块的属性？
或者是图线的长度？

另外：楼主的图纸呢？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ss1025
发表于 2005-2-28 12:49:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
楼主说的是在画板负筋的时候吧。你画负筋的时候输入长度不就可以了，难道你是随手画的？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

magiczertul
 楼主| 发表于 2005-3-1 15:13:50 | 显示全部楼层
数字是写在图中的文本,楼板钢筋我都用PKPM生成的，再用TSSD转，但PKPM的支座钢筋长度过于琐碎
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

f5612140
发表于 2005-3-1 20:03:53 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
請先看2樓的帖,沒有圖紙,別人怎知你真正的需求,早點上傳圖紙,2樓很快就幫你搞定
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

magiczertul
 楼主| 发表于 2005-3-1 20:46:45 | 显示全部楼层
谢谢各位关心，怪我没把问题说清，现上传附图
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

f5612140
发表于 2005-3-1 21:08:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
結構設計歸結構設計,檢料單時再這樣用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11288个

财富等级: 富甲天下
发表于 2005-3-1 23:38:01 | 显示全部楼层
不知道文字的类型是什么？下面的程序只对TEXT类实体有效。
程序：

  3. (DEFUN C:TXTFIX ()
  4. (SETVAR "CMDECHO" 0)
  5. (IF (SETQ SS (SSGET "X" '((0 . "TEXT")))) (PROGN
  6. (PRINC SS)
  7. (SETQ SL (SSLENGTH SS) I 0)
  8. (REPEAT SL
  9.   (SETQ SN (SSNAME SS I) I (1+ I)
  10.         DL (ENTGET SN)
  11.         TT (CDR (ASSOC 1 DL))
  12.         TF (ASCII TT))
  13.   (PRINC "\n") (PRINC DL)
  14.   (IF (AND (> TF (ASCII "0")) (<= TF (ASCII "9"))) (PROGN
  15.    (SETQ TN (ATOI TT))
  16.    (IF (> (ABS (- (/ TN 50.0) (/ TN 50))) 1E-6) (PROGN
  17.     (SETQ TT1 (ITOA (* (1+ (/ TN 50)) 50))
  18.           DL (SUBST (CONS 1 TT1) (CONS 1 TT) DL))
  19.     (ENTMOD DL)
  20.    ))
  21.   ))
  22. )
  23. ))
  24. (SETVAR "CMDECHO" 1)
  25. (PRINC)
  26. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

magiczertul
 楼主| 发表于 2005-3-2 16:39:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
先谢谢楼上相助，正是偶要的，下了试一试
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

蓝静如水
发表于 2005-3-7 20:02:02 | 显示全部楼层
这个程序怎么将我的整张图上的数字全部取整了？！刚才加载运行的时候，看到命令行不断闪过的一行行文字。诧异了。

请问可不可以先选择对象，再对所选对象中的数字取整呢？我想这样可能更灵活一些。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11288个

财富等级: 富甲天下
发表于 2005-3-7 23:47:41 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 蓝静如水 发布
[B]这个程序怎么将我的整张图上的数字全部取整了？！刚才加载运行的时候，看到命令行不断闪过的一行行文字。诧异了。

请问可不可以先选择对象，再对所选对象中的数字取整呢？我想这样可能更灵活一些。 [/B]

更改后：

  3. (DEFUN C:TXTFIX ()
  4. (SETVAR "CMDECHO" 0)
  5. (PRINC "\nPlease Select Text(s) 请选择文字 :")
  6. (IF (SETQ SS (SSGET '((0 . "TEXT")))) (PROGN
  7. (PRINC SS)
  8. (SETQ SL (SSLENGTH SS) I 0)
  9. (REPEAT SL
  10.   (SETQ SN (SSNAME SS I) I (1+ I)
  11.         DL (ENTGET SN)
  12.         TT (CDR (ASSOC 1 DL))
  13.         TF (ASCII TT))
  14.   (IF (AND (> TF (ASCII "0")) (<= TF (ASCII "9"))) (PROGN
  15.    (SETQ TN (ATOI TT))
  16.    (IF (> (ABS (- (/ TN 50.0) (/ TN 50))) 1E-6) (PROGN
  17.     (SETQ TT1 (ITOA (* (1+ (/ TN 50)) 50))
  18.           DL (SUBST (CONS 1 TT1) (CONS 1 TT) DL))
  19.     (ENTMOD DL)
  20.    ))
  21.   ))
  22. )
  23. ))
  24. (SETVAR "CMDECHO" 1)
  25. (PRINC)
  26. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

f5612140
发表于 2005-3-8 00:03:58 | 显示全部楼层
這樣容易懂些

  3. (defun c:txtfix()
  4.   (setvar "cmdecho" 0)
  5.   (setq ss (ssget '((0 . "TEXT"))))
  6.   (setq i 0)
  7.   (repeat (sslength ss)
  8.     (setq xobj (vlax-ename->vla-object (ssname ss i)))
  9.     (setq len1 (atof (vla-get-TextString xobj)))
  10.     (setq lena (rem len1 50.0))
  11.     (if (> lena 0.0)
  12.       (progn
  13.         (setq len2 (+ len1 (- 50.0 lena)))
  14.         (vla-put-TextString xobj (rtos len2 2 0))
  15.       )
  16.     )
  17.     (setq i (+ i 1))
  18.   )
  19. (prin1)
  20. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

蓝静如水
发表于 2005-3-8 08:59:59 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢二位，这么及时的解决问题。程序很好用！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-22 08:36 , Processed in 0.593722 second(s), 57 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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