[已解决]：框选文字，把相应图层名写入 所选的文字。请高手帮忙。

zzc83

最近有项任务要把作图的图层统计出来，这样可以节省不少时间，请各路高手帮忙，谢谢

llsheng_73

1. (defun c:tt(/ i ss e)
   
2.   (setq i 0)
   
3.   (if(setq ss(ssget'((0 . "TEXT"))))
   
4.     (repeat(sslength ss)
   
5.       (entmod(setq e(entget(ssname ss i))
   
6.                    i(1+ i)
   
7.                    e(subst(cons 1(cdr(assoc 8 e)))(assoc 1 e)e)))
   
8.       ))
   
9.   )

(defun c:tt(/ i ss e)<br />   (setq i 0)<br />   (if(setq ss(ssget'((0 . "TEXT"))))<br />     (repeat(sslength ss)<br />       (entmod(setq e(entget(ssname ss i))<br />                    i(1+ i)<br />                    e(subst(cons 1(cdr(assoc 8 e)))(assoc 1 e)e)))<br />       ))<br />   )

llsheng_73

相应图层写入所选的文字，那文字本来的内容还保留不？
统计作图的图层，可以节省不少时间。。。真会有这个效果？
到底是要修改文字内容为其所在图层名，还是要统计图层，或者统计图层上的文字？

zzc83

1文本原内容不用保留。
2不用点每个文字看图层再输入图层名，可以节约我很多时间
3只需要修改文字内容为其所在图层名。
非常感谢

zzc83

llsheng_73 发表于 2014-11-27 17:15
相应图层写入所选的文字，那文字本来的内容还保留不？
统计作图的图层，可以节省不少时间。。。真会有这个 ...

1文本原内容不用保留。
2不用点每个文字看图层再输入图层名，可以节约我很多时间
3只需要修改文字内容为其所在图层名。
非常感谢

鱼与熊掌

.~>~  其实也不困难。。。。。。。。。。。。。。

yamjqq

各位老师,框选文字，把相应图层名写入所选的文字,怎样才能保留原文本
;;;框选文字，把相应图层名写入所选的文字
程序怎样才能保留原文本
(defun c:tt(/ i ss e)
  (setq i 0)
  (if(setq ss(ssget'((0 . "TEXT"))))
    (repeat(sslength ss)
              (entmod
        (setq e (entget(ssname ss i))
                   i(1+ i)
                   e(subst(cons 1(cdr(assoc 8 e)))(assoc 1 e)e)
       )
        )
      
      )
    )
  )