[编程申请]：求LISP程序，点给文字则加前缀Z

lengliqun

求LISP程序，点给文字则加前缀Z
本论坛有个此类程序下载后解压错误。

snsj

最初由 lengliqun 发布
[B]求LISP程序，点给文字则加前缀Z
本论坛有个此类程序下载后解压错误。 [/B]

2. [php]
   
3. ;;;|文字加前缀
   
4. (defun c:jz (/ ent ss i)
   
5. (setq ss (ssget '((0 . "*TEXT")))i 0)
   
6.   (repeat (sslength ss)
   
7.     (setq ent (entget(ssname ss i)))
   
8.     (entmod(subst(vl-list* 1 (strcat "Z" (cdr(assoc 1 ent))))
   
9.           (assoc 1 ent) ent))
   
10.     (setq i (1+ i))
    
11.    )
    
12. )
    
13. [/php]

[php]<br /> ;;;|文字加前缀 <br /> (defun c:jz (/ ent ss i)<br /> (setq ss (ssget '((0 . "*TEXT")))i 0)<br />   (repeat (sslength ss)<br />     (setq ent (entget(ssname ss i)))<br />     (entmod(subst(vl-list* 1 (strcat "Z" (cdr(assoc 1 ent))))<br />           (assoc 1 ent) ent))<br />     (setq i (1+ i))<br />    )<br /> )<br /> [/php]

lengliqun

谢谢，在CAD2002下可用，在CAD R14下不可用，我急需在CAD R14可用的，请帮忙。

snsj

最初由 lengliqun 发布
[B]谢谢，在CAD2002下可用，在CAD R14下不可用，我急需在CAD R14可用的，请帮忙。 [/B]

2. 
   
3. ;;;|文字加前缀
   
4. (defun c:jz (/ ent ss i)
   
5. (setq ss (ssget '((0 . "*TEXT")))i 0)
   
6.   (repeat (sslength ss)
   
7.     (setq ent (entget(ssname ss i)))
   
8.     (entmod(subst(cons 1 (strcat "Z" (cdr(assoc 1 ent))))
   
9.       (assoc 1 ent) ent))
   
10.     (setq i (1+ i))
    
11.    )
    
12. )
    

<br /> ;;;|文字加前缀 <br /> (defun c:jz (/ ent ss i)<br /> (setq ss (ssget '((0 . "*TEXT")))i 0)<br />   (repeat (sslength ss)<br />     (setq ent (entget(ssname ss i)))<br />     (entmod(subst(cons 1 (strcat "Z" (cdr(assoc 1 ent))))<br />       (assoc 1 ent) ent))<br />     (setq i (1+ i))<br />    )<br /> )<br />

2002zjp

在本空间找ctt

xmchy

在论坛里,找文字修改大师