在dded中选择指定文本

wimal · 发表于 2022-7-5 18:34:33

我已经写了几个地方，我的画以下文本
MDB/L7/Z1/M1/2L3
MDB/L7/Z1/M1/2L2
EMDB/L7/Z1/M1/2L3
EMDB/L7/Z1/M1/2L2
发射型计算机断层扫描仪。

我需要在下一张图纸中将这个L7改为L4。
在DDEDIT对话框中是否有工具或lisp代码可以立即选择此L7。
然后我可以输入L4代替L7。

rlx · 发表于 2022-7-5 18:40:54

我的vt.lsp和ct。lsp可以做到这一点，李·麦克也有大量的实用程序来完成这项工作。只需搜索此论坛。

gr.Rlx

Tharwat · 发表于 2022-7-5 18:44:36

这应该会更改选定文本中的第一个L7。

copy


(defun c:Test (/ ss sn p st e )
 ;; Tharwat 29.9.2015 ;;
 (if (setq ss (ssget "_:L" '((0 . "TEXT")(1 . "*L7*"))))
 (while (setq sn (ssname ss 0))
   (if (setq p (vl-string-search "L7" (setq st (cdr (assoc 1 (setq e (entget sn)))))))  
   (entmod (subst (cons 1 (strcat (substr st 1 p) "L4" (substr st (+ 3 p)))) (assoc 1 e) e))
     )
   (ssdel sn ss)
   )
 )
(princ)
)

mostafa badran · 发表于 2022-7-5 18:51:24

这是指在其他封闭图纸中还是在同一图纸中？

wimal · 发表于 2022-7-5 18:55:31

谢谢以上代码比我预期的更符合我的要求。

wimal · 发表于 2022-7-5 18:59:52

我指的是另一张公开画。

mostafa badran · 发表于 2022-7-5 19:05:16

所以我推荐你这个李·麦克的Lisp程序。
http://lee-mac.com/bfind.html

Tharwat · 发表于 2022-7-5 19:07:44

不客气。

Lee Mac · 发表于 2022-7-5 19:15:52

好东西Tharwat-虽然是一个小建议，但由于您限制了原始选择，可以保证模式会出现，因此简单的vl字符串subst就足够了，例如：

copy

(defun c:test ( / e i s x )
   (if (setq s (ssget "_:L" '((0 . "TEXT") (1 . "*L7*"))))
       (repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i))))
                 x (assoc 1 e)
           )
           (entmod (subst (cons 1 (vl-string-subst "L4" "L7" (cdr x))) x e))
       )
   )
   (princ)
)

非常感谢大家的推荐！

Tharwat · 发表于 2022-7-5 19:19:54

李，是的，你是对的。
老实说，当我编写这些简单的代码时，我就意识到了这一点，只要不造成伤害，我就不会删除模式上的检查。

谢谢

[编程交流] 在dded中选择指定文本

发表回复

精选推荐