乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 259|回复： 1

[编程交流] 文本修改

[复制链接]
asdfgh

8

主题

16

帖子

16

银币

初来乍到

Rank: 1

铜币
32
发表于 2022-10-18 14:30:13 | 显示全部楼层 |阅读模式
我有一些文本如下（蓝色文本），我希望所有文本都删除括号“（”和它之前的任何文本，以及括号“）”和它之后的任何文本，所以结果会像绿色的文本。
有人有lsp程序吗？
153019esmylrbmmb2abga1.png

153018e4177vccocbbsebc.png



回复

使用道具 举报

xj6019

67

主题

504

帖子

696

银币

中流砥柱

Rank: 25

铜币
757
QQ
发表于 2022-10-18 16:14:04 | 显示全部楼层
思路仅供参考
  • (defun c:NM (/ i s1 ss str str2)
  •   (setq i -1)
  •   (if(setq ss (ssget ":S"(list '(0 . "*TEXT"))))
  •     (while(and(setq s1 (ssname ss (setq i (1+ i)))))               
  •       (setq str(xj-getdxf s1 1))
  •       (setq str2(cadr(car(DTU-strsplit str '("(" ")")nil))))
  •       (xj-putdxf s1 1 str2)
  •     )
  •   )
  •   (princ)
  • )
         
BB.gif
lisp初级交流群：701625004 欢迎加入，一起进步！！
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2024-11-22 01:51 , Processed in 0.665366 second(s), 71 queries .

© 2020-2024 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表