zzc83 发表于 2014-11-27 16:36:58

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

本帖最后由 zzc83 于 2014-11-27 17:40 编辑

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

llsheng_73 发表于 2014-11-27 17:32:39

(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)))
      ))
)

llsheng_73 发表于 2014-11-27 17:15:31

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

zzc83 发表于 2014-11-27 17:18:17

本帖最后由 zzc83 于 2014-11-27 17:19 编辑

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

zzc83 发表于 2014-11-27 17:18:48

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


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

鱼与熊掌 发表于 2014-11-27 17:31:37

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

yamjqq 发表于 2020-4-7 21:15:22

各位老师,框选文字，把相应图层名写入所选的文字,怎样才能保留原文本
;;;框选文字，把相应图层名写入所选的文字
程序怎样才能保留原文本
(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)
       )
      )
      
      )
    )
)
页: [1]
查看完整版本: [已解决]：框选文字，把相应图层名写入 所选的文字。请高手帮忙。