如何在下面这段源码（覆盖对应文本）中可以框选目标文字

注册 · 发表于 2012-4-18 16:38:33

如何在下面这段源码（感谢原作者）中可以框选目标文字
;一一覆盖对应文本
(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)) )
)

原帖见：
一一覆盖对应文本,对于图纸目录的填写很有用处
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=18366&fromuid=398533
附图：在选择完ym1724 ym1524后选择目标对象时可以框选ym1和ym2，而不是现在的点选，谢谢

明粉 · 发表于 2012-4-18 17:07:53

提示: 作者被禁止或删除内容自动屏蔽

注册 · 发表于 2012-4-19 19:39:25

沉的很快，泰坦尼克

注册 · 发表于 2012-4-20 07:57:49

每天一顶，顶出希望

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

如何在下面这段源码（覆盖对应文本）中可以框选目标文字

本帖子中包含更多资源

相关帖子

明粉明粉当前离线积分 96 明经币个注册时间 2012-4-17 在线时间小时威望金钱个贡献激情	发表于 2012-4-18 17:07:53 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡