stulsx 发表于 2004-3-23 21:10:00

一一覆盖对应文本,对于图纸目录的填写很有用处

;一一覆盖对应文本<BR>(defun c:yyfg()<BR>(princ "\n选择要复制的文字组:")<BR>       (setq obts (ssget '((-4 . "&lt;AND") <BR>                                                                                                                                                                                                                                                                                                                                                       (-4 . "&lt;AND") <BR>                                                                                                                                                                      (0 . "TEXT") <BR>                                                                                                                                                                               (-4 . "AND&gt;") <BR>                                                                                                                                                                                                                                                                                               (-4 . "&lt;NOT") <BR>                                                                                                                                                                                                               (0 . "LINE") <BR>                                                                                                              (-4 . "NOT&gt;")<BR>                                                                                                               (-4 . "AND&gt;"))       )<BR>       )


                       (setq N_obts (sslength obts))       <BR>                       (setq ii 0)       <BR>                       (while (&lt; ii N_obts)<BR>                                                                       (setq sgtI               (ssname obts ii))               <BR>        <BR>                                                                       (setq tab (assoc 1 (entget sgtI)))                                                               <BR>                       <BR>                                                                       (princ "\n 对应 ")(princ (cdr tab))<BR>                                                                                                                                                                                                               


               (setq new_obt (car (entsel " 的文本")))<BR>                                                       (setq tpt3 (entget new_obt))                                                                                                                       


                                                       (setq pp (cons 1 (cdr tab)))<BR>                                                       (setq tpt3x (subst pp (assoc 1 tpt3) tpt3))<BR>                                                       (entmod tpt3x)                       <BR>                                                       (setq ii (+ ii 1))


                               )               <BR>)<BR>

烟盒迷唇 发表于 2019-8-26 16:40:58

被修改的文字也能批量就好了，不用一个一个选，按照框选的顺序修改

cqu20104225 发表于 2020-4-28 12:23:05

好创意的源码，感谢分享，收下了！

kucha007 发表于 2021-1-8 17:40:06

有趣的创意，先mark学习~~

wowan1314 发表于 2012-4-3 15:49:09

有创意!!!! 支持！

注册 发表于 2012-4-3 22:32:28

灭看懂，纯支持

tianyi1230 发表于 2012-4-5 19:32:34

建议楼主来个掩饰截图

timmy521 发表于 2012-4-6 17:01:40

楼主能不能做个。GIF动画

vlisp2012 发表于 2012-4-6 19:44:21

顺序选择文字，在按照选择的顺序修改文字内容。
很好的程序。

注册 发表于 2012-4-18 11:29:24

haode多谢了啊

longer1000 发表于 2012-4-18 13:31:54

652758365 发表于 2012-4-19 16:19:22

................................

652758365 发表于 2012-4-19 16:31:30

......................
页: [1] 2 3
查看完整版本: 一一覆盖对应文本,对于图纸目录的填写很有用处