[编程申请]：编程将图中文字输出到文本文件

gzlpwyyy · 发表于 2004-11-16 18:54:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用AUTOLISP语言编程,将CAD中的文字按原图中的相对位置输出到一文本文件,文件的保存最好以用对话框选择保存位置.

aidraft · 发表于 2004-11-16 21:01:05

下面的代码我好像贴过一次，自己改改使适合要求
(defun c:txtout (/ ss index lst fln f)
  (setq ss (ssget '((0 . "*TEXT"))))
  (setq index -1
lst '()
  )
  (while (< (setq index (1+ index)) (sslength ss))
(setq lst (cons (ssname ss index) lst))
  )
  (setq lst (vl-sort
      (vl-sort lst
         '(lambda (e1 e2)
   (< (cadr (assoc 10 (entget e1)))
      (cadr (assoc 10 (entget e2)))
   )
)
      )
      '(lambda (e1 e2)
   (> (caddr (assoc 10 (entget e1)))
      (caddr (assoc 10 (entget e2)))
   )
         )
      )
  )
  (setq fln (getstring "\nFilename:"))
  (setq fln (strcat fln ".txt"))
  (setq f (open fln "w"))
  (foreach en lst
(write-line (cdr (assoc 1 (entget en))) f)
  )
  (close f)
  (startapp "notepad.exe" (findfile fln))
  (princ)
)

qjcpj · 发表于 2004-11-16 23:00:58

网上此类程序甚多，1楼楼主可用搜索工具查找一下！

xyp1964 · 发表于 2004-11-16 23:15:15

最初由 gzlpwyyy 发布
[B]用AUTOLISP语言编程,将CAD中的文字按原图中的相对位置输出到一文本文件,文件的保存最好以用对话框选择保存位置. [/B]

试试这个：
输出文本程序。
按文本(text)对齐点纵坐标从上到下顺序输出。
加载SCWB.FAS，运行SCWB。
2004年11月16日, 23:11:34版

自由的鱼 · 发表于 2004-11-17 22:54:29

具体要求怎样的/

bluesky1000 · 发表于 2004-11-19 09:16:35

好东西，这里的精彩的东西太多了。

nymbhet · 发表于 2007-4-4 23:36:10

2楼的东东好。谢谢

黄河之水 · 发表于 2007-4-8 10:59:51

个人模仿,但有小量改动
(defun c:txtout()
(setq ffn (getfiled "写出文件----记事本---2007.01" "" "txt" 1))
(princ "\n选取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "\n" ff)))
(setq i (1+ i)))
(close ff)
(princ (strcat "\n写出文件: " ffn))(prin1))

账号		自动登录	找回密码
密码			立即注册

[编程申请]：编程将图中文字输出到文本文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：编程将图中文字输出到文本文件