求个钢筋替换的程序

baiyier1112

程序3已经实现，程序1，2不知道问题出在哪，请高手指点一下

2. (defun x_ssn (ss / n lst)
   
3. (repeat (setq N (sslength ss))
   
4.     (setq LST (cons (ssname SS (setq N (1- N))) LST))
   
5.   )
   
6. )
   
7. (defun c:150 (/ ss obj str en)
   
8.   (while (setq ss (ssget '((0 . "text") (1 . "%%13*`@*"))))
   
9.     (foreach en        (x_ssn ss)
   
10. (setq obj        (vlax-ename->vla-object en)
    
11.               str        (vla-get-TextString obj)
    
12. )
    
13. (vla-put-TextString obj(strcat(substr str 1 (1+(vl-string-search "@" str)))"150"(substr str (4+(vl-string-search "@" str)))))
    
14.     )
    
15.   )
    
16. )
    

(defun x_ssn (ss / n lst)<br /> (repeat (setq N (sslength ss))<br />     (setq LST (cons (ssname SS (setq N (1- N))) LST))<br />   )<br /> )<br /> (defun c:150 (/ ss obj str en)<br />   (while (setq ss (ssget '((0 . "text") (1 . "%%13*`@*"))))<br />     (foreach en        (x_ssn ss)<br /> (setq obj        (vlax-ename->vla-object en)<br />               str        (vla-get-TextString obj)<br /> )<br /> (vla-put-TextString obj(strcat(substr str 1 (1+(vl-string-search "@" str)))"150"(substr str (4+(vl-string-search "@" str)))))<br />     )<br />   )<br /> )<br />

yx5277

CAD的查找替换功能就可以了啊

baiyier1112

yx5277 发表于 2013-4-27 22:31
CAD的查找替换功能就可以了啊

查找替换的插件很多，我想不要弹出框的，直接操作的。