请教几个问题！谢谢！

sfjlx

请教几个问题！谢谢！
1. 如何替换文字里的*号？比如说500*500，我想改为500x500,如何编程？
2. 如何替换文字里的@号？比如说500@500，我想改为500x500,如何编程？
3. 有没有把两个选择集合并的命令？找了半天未找到，只好遍求。

lucas_3333

查找替换　

langjs

12用查找替换，源码明经里边也很多。3貌似有，不过我忘了，个人觉得遍历更好一些。

ZZXXQQ

1

2. (defun c:tt ()
   
3. (if (setq ss (ssget '((0 . "TEXT") (1 . "*`*")))) (progn
   
4.   (foreach x (mapcar 'cadr (ssnamex ss))
   
5.    (setq ent (entget x))
   
6.    (setq txt (cdr(assoc 1 ent)))
   
7.    (setq txt (vl-string-subst "*" "X" (cdr(assoc 1 ent))))
   
8.    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))
   
9.   )
   
10. ))
    
11. (princ)
    
12. )
    

(defun c:tt ()<br /> (if (setq ss (ssget '((0 . "TEXT") (1 . "*`*")))) (progn<br />   (foreach x (mapcar 'cadr (ssnamex ss))<br />    (setq ent (entget x))<br />    (setq txt (cdr(assoc 1 ent)))<br />    (setq txt (vl-string-subst "*" "X" (cdr(assoc 1 ent))))<br />    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))<br />   )<br /> ))<br /> (princ)<br /> )<br />

2

2. (defun c:ttt ()
   
3. (if (setq ss (ssget '((0 . "TEXT") (1 . "*`@")))) (progn
   
4.   (foreach x (mapcar 'cadr (ssnamex ss))
   
5.    (setq ent (entget x))
   
6.    (setq txt (vl-string-subst "@" "X" (cdr(assoc 1 ent))))
   
7.    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))
   
8.   )
   
9. ))
   
10. (princ)
    
11. )
    

(defun c:ttt ()<br /> (if (setq ss (ssget '((0 . "TEXT") (1 . "*`@")))) (progn<br />   (foreach x (mapcar 'cadr (ssnamex ss))<br />    (setq ent (entget x))<br />    (setq txt (vl-string-subst "@" "X" (cdr(assoc 1 ent))))<br />    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))<br />   )<br /> ))<br /> (princ)<br /> )<br />

3

2. (defun addsel (s1 s2)
   
3. (command "select" s1 s2 "")
   
4. (ssget "P")
   
5. )

(defun addsel (s1 s2)<br /> (command "select" s1 s2 "")<br /> (ssget "P")<br /> )

sfjlx

感谢版主zzxxqq!最后一个程序真是巧妙！谢谢！
也谢谢其他各位！