664571221 发表于 2018-5-31 10:47:55

求修改一个程序，大神来看看，这个文字合并的顺序反了，怎么修改


[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(defun c:tt()

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq ss (ssget '((0 . "text"))))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(if ss

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (progn

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq en (ssname ss 0))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq txt (cdr (assoc 1 (setq enl (entget en)))))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (ssdel en ss)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (repeat (sslength ss)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq e (ssname ss 0))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (ssdel e ss)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq txt (strcat txt (cdr (assoc 1 (entget e)))))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (entdel e)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq enl (subst (cons 1 txt) (assoc 1 enl) enl))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (entmod enl)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)








自贡黄明儒 发表于 2018-5-31 10:56:33

先对文字按坐标排序。

664571221 发表于 2018-5-31 11:00:54

本帖最后由 664571221 于 2018-5-31 11:03 编辑

自贡黄明儒 发表于 2018-5-31 10:56
先对文字按坐标排序。
能不能弄一个我截图给你看下，就是按顺序，角度不要变

evayleung 发表于 2018-5-31 12:31:19

这么标准的梁筋集中标注，还要怎么合并呢？

664571221 发表于 2018-6-24 20:49:46

evayleung 发表于 2018-5-31 12:31
这么标准的梁筋集中标注，还要怎么合并呢？

是合并成一排要有空格
页: [1]
查看完整版本: 求修改一个程序，大神来看看，这个文字合并的顺序反了，怎么修改