明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1911|回复: 2

[函数] 求个钢筋替换的程序

[复制链接]
发表于 2013-4-27 21:03:53 | 显示全部楼层 |阅读模式
本帖最后由 baiyier1112 于 2013-5-5 23:30 编辑


程序3已经实现,程序1,2不知道问题出在哪,请高手指点一下
  1. (defun x_ssn (ss / n lst)
  2. (repeat (setq N (sslength ss))
  3.     (setq LST (cons (ssname SS (setq N (1- N))) LST))
  4.   )
  5. )
  6. (defun c:150 (/ ss obj str en)
  7.   (while (setq ss (ssget '((0 . "text") (1 . "%%13*`@*"))))
  8.     (foreach en        (x_ssn ss)
  9. (setq obj        (vlax-ename->vla-object en)
  10.               str        (vla-get-TextString obj)
  11. )
  12. (vla-put-TextString obj(strcat(substr str 1 (1+(vl-string-search "@" str)))"150"(substr str (4+(vl-string-search "@" str)))))
  13.     )
  14.   )
  15. )

本帖子中包含更多资源

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

x
发表于 2013-4-27 22:31:18 | 显示全部楼层
CAD的查找替换功能就可以了啊
 楼主| 发表于 2013-4-29 07:47:46 | 显示全部楼层
yx5277 发表于 2013-4-27 22:31
CAD的查找替换功能就可以了啊

查找替换的插件很多,我想不要弹出框的,直接操作的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-6 09:40 , Processed in 0.184689 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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