[求助]请问各位大侠，怎么样才能叫 从CAD中导出的文字是按顺序的呢？

lxyufo

怎么样才能叫从CAD中的导出文字是按顺序的
    在导出的文本文件中 的文字是按顺序的那，
请各位大侠 附代码 ！！！！谢谢了 各位。

meflying

如果是位置顺序，则须在选择后对各个文字实体排序，因为选择时选择是无序的（至少我还没找出其顺序），这个函数我写过，不过使用比较麻烦，你要我可以给你，
如果是按字母顺序，那就将文字实体提取文字字符串后，用普通的编程方法将其排序

lxyufo

我想都看看，谢谢你了！！

lxyufo

meflying

因为是对表进行排序，所以要排序实体，必须将其做成其实体名的列表，再进行排序。做的粗糙，如有好的建议，希望不吝赐教。

（具体对数字的排序我用的是选择法）

;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;功能：给表序               
;lists---需要排序的表      
;funs----排序方法           
;"x" 为按X轴由小到大排序   
;"y" 为按Y轴由小到大排序   
;一般的数字表排序输入nil   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun sort(lists funs / n i d1 d_1 d1v d_1v getptx getpty tmp mn)
  (defun getptx(sname / sinf2 pts)
    (setq sinf2 (entget sname))
    (setq pts (cadr (assoc 10 sinf2)))
    pts
  )
  (defun getpty(sname / sinf2 pts)
    (setq sinf2 (entget sname))
    (setq pts (caddr (assoc 10 sinf2)))
    pts
  )
  (setq i 0)
  (while (< i (1- (length lists)))
    (setq mn i)
    (setq j (1+ i))
    (while (< j (length lists))
      (setq d1 (nth j lists))
      (setq d_1 (nth mn lists))
      (cond
        ((= funs "x") (progn (setq d1v (getptx d1)) (setq d_1v (getptx d_1))))
        ((= funs "y") (progn (setq d1v (getpty d1)) (setq d_1v (getpty d_1))))
        ((= funs nil) (progn (setq d1v d1) (setq d_1v d_1)))
      );cond
      (if (< d1v d_1v)
        (setq mn j)
      )
      (setq j (1+ j))
    )
    (setq tmp (nth mn lists))
    (setq lists (modlist lists (nth i lists) mn))
    (setq lists (modlist lists tmp i))
    (setq i (1+ i))
  );while1
  lists
)

香田里浪人

;;取得图层所有文本.
(defun c:lout()
(setq flnm (getfiled "保存文件名" "" "txt" 1))
　(setq fn (open flnm "w"))
　(setq s (ssget))
　(setq n (sslength s))
　(setq index ( - n 1))
　(repeat n
　　(setq ents (entget (ssname s index)))
　　(setq index ( - index 1))
　　(setq ent (assoc 0 ents))
　　(if ( = "TEXT" (cdr ent))
　　　　(progn
　　　　　　(setq txt (cdr (assoc 1 ents)))
　　　　　　(write-line txt fn)
　　　　)
　　)
　)
(close fn)
)
(princ "\n文本导出TXT")