把此贴删除了

Gu_xl

500w008 发表于 2011-12-7 16:02

1. (defun c:tt()
   
2. (while (and (setq e1 (car(entsel "\n选择源文字:")))
   
3.               (setq e2 (car(entsel "\n选择修改文字:")))
   
4.            )
   
5. (setq el (subst (assoc 1 (entget e1))  (setq el (assoc 1 (entget e2)) ) el))
   
6. (entmod el)
   
7. (princ "\n继续？")
   
8. )
   
9. (princ)
   
10. )
    

(defun c:tt()<br /> (while (and (setq e1 (car(entsel "\n选择源文字:")))<br />               (setq e2 (car(entsel "\n选择修改文字:")))<br />            )<br /> (setq el (subst (assoc 1 (entget e1))  (setq el (assoc 1 (entget e2)) ) el))<br /> (entmod el)<br /> (princ "\n继续？")<br /> )<br /> (princ)<br /> )<br />

xyp1964

2. 
   
3. ;;需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (setq ss (ssget '((0 . "TEXT") (8 . "LGJ1")))
   
7. i  -1
   
8.   )
   
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.     (setq rad (xyp-get-dxf 50 s1)
    
11.    pt  (xyp-get-dxf 10 s1)
    
12.    p1  (polar pt rad 800)
    
13.    p2  (polar pt rad 1200)
    
14.    p2  (polar p2 (- rad (* pi 0.5)) 200)
    
15.     )
    
16.     (if (and (setq ss1 (ssget "c" p1 p2 '((0 . "TEXT") (8 . "BEAM"))))
    
17.       (= (sslength ss1) 1)
    
18. )
    
19.       (xyp-SubUpd s1 1 (xyp-get-dxf 1 (ssname ss1 0)))
    
20.     )
    
21.   )
    
22.   (CMDLA1)
    
23. )

<br /> ;;需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq ss (ssget '((0 . "TEXT") (8 . "LGJ1")))<br /> i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq rad (xyp-get-dxf 50 s1)<br />    pt  (xyp-get-dxf 10 s1)<br />    p1  (polar pt rad 800)<br />    p2  (polar pt rad 1200)<br />    p2  (polar p2 (- rad (* pi 0.5)) 200)<br />     )<br />     (if (and (setq ss1 (ssget "c" p1 p2 '((0 . "TEXT") (8 . "BEAM"))))<br />       (= (sslength ss1) 1)<br /> )<br />       (xyp-SubUpd s1 1 (xyp-get-dxf 1 (ssname ss1 0)))<br />     )<br />   )<br />   (CMDLA1)<br /> )

【KAIXIN】

xyp1964 发表于 2011-12-7 19:41

过滤的好，支持院长一下

lidi4013

太深奥了，看不懂

vlisp2012

hi：Gu_xl版主
是不是e1和e2重复了。无法使用啊！？
参数类型错误: consp