明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: wyy81061

[提问] 帮忙看看到底哪里有问题?

  [复制链接]
发表于 2024-10-24 13:21:50 | 显示全部楼层
  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. )

评分

参与人数 1明经币 +1 收起 理由
panliang9 + 1 院长出手,就是最终话了!

查看全部评分

 楼主| 发表于 2024-10-24 13:54:55 | 显示全部楼层

好厉害啊,这么点代码就搞定了
发表于 2024-10-24 15:26:46 | 显示全部楼层
谢谢分享谢谢分享谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-21 01:26 , Processed in 0.162304 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表