帮忙看看到底哪里有问题？

xyp1964

1. (defun c:tt ()
   
2.   (defun dxf(code e)(cdr(assoc code(entget e))))
   
3.   (defun SubUpd(e c v)(entmod(subst(cons c v)(assoc c(entget e))(entget e)))(entupd e))
   
4.   (defun ss2list(ss)(mapcar'cadr(vl-remove-if-not'(lambda(x)(equal(type(cadr x))'ENAME))(ssnamex ss))))
   
5.   (prompt "\n选择文本: ")
   
6.   (if (setq ss (ssget '((0 . "TEXT"))))
   
7.     (progn
   
8.       (setq lst  (ss2list ss)
   
9.             lst (vl-sort lst '(lambda (x y) (> (cadr (DXF 10 x)) (cadr (DXF 10 y)))))
   
10.             txt (strcat (getenv "TEMP") "\\cad_text.txt")
    
11.             fn  (open txt "w")
    
12.       )
    
13.       (foreach a lst
    
14.         (write-line (cdr (assoc 1 (entget a))) fn)
    
15.       )
    
16.       (close fn)
    
17.       (startapp "notepad.exe" txt)
    
18.       (prompt "\n修改...\n")
    
19.       (getstring)
    
20.       (setq fn (open txt "r"))
    
21.       (foreach a lst
    
22.         (if (setq tx (read-line fn))
    
23.           (SubUpd a 1 tx)
    
24.         )
    
25.       )
    
26.       (close fn)
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )

(defun c:tt ()<br />   (defun dxf(code e)(cdr(assoc code(entget e))))<br />   (defun SubUpd(e c v)(entmod(subst(cons c v)(assoc c(entget e))(entget e)))(entupd e))<br />   (defun ss2list(ss)(mapcar'cadr(vl-remove-if-not'(lambda(x)(equal(type(cadr x))'ENAME))(ssnamex ss))))<br />   (prompt "\n选择文本: ")<br />   (if (setq ss (ssget '((0 . "TEXT"))))<br />     (progn<br />       (setq lst  (ss2list ss)<br />             lst (vl-sort lst '(lambda (x y) (> (cadr (DXF 10 x)) (cadr (DXF 10 y)))))<br />             txt (strcat (getenv "TEMP") "\\cad_text.txt")<br />             fn  (open txt "w")<br />       )<br />       (foreach a lst<br />         (write-line (cdr (assoc 1 (entget a))) fn)<br />       )<br />       (close fn)<br />       (startapp "notepad.exe" txt)<br />       (prompt "\n修改...\n")<br />       (getstring)<br />       (setq fn (open txt "r"))<br />       (foreach a lst<br />         (if (setq tx (read-line fn))<br />           (SubUpd a 1 tx)<br />         )<br />       )<br />       (close fn)<br />     )<br />   )<br />   (princ)<br /> )

wyy81061

xyp1964 发表于 2024-10-24 13:21

好厉害啊，这么点代码就搞定了

yefei812678

谢谢分享谢谢分享谢谢分享