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

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

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

(setq tab (assoc 1 (entget sgtI)))

(princ "\n 对应 ")(princ (cdr tab))
(setq new_obt (car (entsel " 的文本")))
(setq tpt3 (entget new_obt)) (setq pp (cons 1 (cdr tab)))
(setq tpt3x (subst pp (assoc 1 tpt3) tpt3))
(entmod tpt3x)
(setq ii (+ ii 1)) )
)

烟盒迷唇 · 发表于 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

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

账号		自动登录	找回密码
密码			注册