注册 发表于 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
附图：在选择完ym1724ym1524后选择目标对象时可以框选ym1和ym2，而不是现在的点选，谢谢

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

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

沉的很快，泰坦尼克

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

每天一顶，顶出希望
页: [1]
查看完整版本: 如何在下面这段源码（覆盖对应文本）中可以框选目标文字