求助，把CAD文字内容转为TXT文件

Dragon9813 · 发表于 2006-3-14 17:32:00

把该CAD图里面的文字内容转化成TXT文本格式，先谢了。。。。

就像下面的这样就行了

1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9
2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9
5.1 5.2 5.3 5.4 5.5 5.6 5.7 5.8 5.9
6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9
7.1 7.2 7.3 7.4 7.5 7.6 7.7 7.8 7.9
8.1 8.2 8.3 8.4 8.5 8.6 8.7 8.8 8.9
9.1 9.2 9.3 9.4 9.5 9.6 9.7 9.8 9.9
10.1 10.2 10.3 10.4 10.5 10.6 10.7 10.8 10.9
3.1 3.2 3.3 3.4 3.5 3.6 3.7 3.8 3.9
4.1 4.2 4.3 4.4 4.5 4.6 4.7 4.8 4.9

xyp1964 · 发表于 2006-3-14 17:59:00

差点劲：

(load "xyp_lib")
;|加载通用函数
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
通用函数下载地址:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
|;
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "TEXT")))
ss (xyp-Sort ss 10 "Y-max")
)
(foreach s ss
(princ"\n")
(princ (xyp-get-dxf 1 (cdr s)))
)
(CMDLA1)
)

Dragon9813 · 发表于 2006-3-17 15:02:00

看不懂你的原代码，能不能再加工一下，给定一个路径，帮我直接输出一个TXT文本文件，谢谢了

xyp1964 · 发表于 2006-3-18 00:22:00

(load "xyp_lib.vlx") ;版本 V.20060314
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
|;
(defun c:test ()
(CMDLA0)
(setq ffn (getfiled "\n保存的数据文件" "数据" "txt" 1)
ff (open ffn "w")
ss (Sort_pList (xyp-Sort (ssget '((0 . "TEXT"))) 10 "Y-max"))
)
(foreach s ss
(write-line (xyp-get-dxf 1 (cdr s)) ff)
)
(close ff)
(princ (strcat "\n 坐标写至=>" ffn))
(CMDLA1)
)
;;;从上至下、从左至右
(defun Sort_pList (plist / pt)
(setq plist
(vl-sort plist
'(lambda (p1 p2)
(cond ((and (= (car (car p1)) (car (car p2)))
(= (cadr (car p1)) (cadr (car p2)))
(> (caddr (car p1)) (caddr (car p2)))
)
T
)
((and (= (cadr (car p1)) (cadr (car p2)))
(< (car (car p1)) (car (car p2)))
)
T
)
((> (cadr (car p1)) (cadr (car p2))) T)
(T nil)
)
)
)
)
)

(load "xyp_lib.vlx") ;版本 V.20060314
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
|;
(defun c:test ()
  (CMDLA0)
  (setq ffn (getfiled "\n保存的数据文件" "数据" "txt" 1)
 ff  (open ffn "w")
 ss  (Sort_pList (xyp-Sort (ssget '((0 . "TEXT"))) 10 "Y-max"))
  )
  (foreach s ss
    (write-line (xyp-get-dxf 1 (cdr s)) ff)
  )
  (close ff)
  (princ (strcat "\n 坐标写至=>" ffn))
  (CMDLA1)
)
;;;从上至下、从左至右
(defun Sort_pList (plist / pt)
  (setq plist
  (vl-sort plist
    '(lambda (p1 p2)
       (cond ((and (= (car (car p1)) (car (car p2)))
     (= (cadr (car p1)) (cadr (car p2)))
     (> (caddr (car p1)) (caddr (car p2)))
       )
       T
      )
      ((and (= (cadr (car p1)) (cadr (car p2)))
     (< (car (car p1)) (car (car p2)))
       )
       T
      )
      ((> (cadr (car p1)) (cadr (car p2))) T)
      (T nil)
       )
     )
  )
  )
)

hustrys · 发表于 2006-3-18 13:12:00

怎么不能按原顺序排好呀！

xyp1964 · 发表于 2006-3-18 14:32:00

hustrys发表于2006-3-18 13:12:00怎么不能按原顺序排好呀！

都完成了就不用自己“努力用功”了！呵呵……

(load "xyp_lib.vlx") ;版本 V.20060314
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
dispbbs.asp?boardID=3&ID=37554&page=1
|;
(defun c:test ()
(CMDLA0)
(if (null int)
(setq int 9)
)
(setq ffn (getfiled "\n保存的数据文件" "数据" "txt" 1)
INT (UINT 7 "" "\n每行数据量" INT)
ff (open ffn "w")
ss (Sort_pList (xyp-Sort (ssget '((0 . "TEXT"))) 10 "Y-max"))
i 0
tx1 ""
)
(foreach s ss
(setq tx (xyp-get-dxf 1 (cdr s))
tx1 (strcat tx1 " " tx)
i (1+ i)
)
(if (= i int)
(progn
(setq tx1 (substr tx1 2))
(write-line tx1 ff)
(setq i 0
tx1 ""
)
)
)
)
(close ff)
(princ (strcat "\n 坐标写至=>" ffn))
(CMDLA1)
)
;;;从上至下、从左至右
(defun Sort_pList (plist / pt)
(setq plist
(vl-sort plist
'(lambda (p1 p2)
(cond ((and (= (car (car p1)) (car (car p2)))
(= (cadr (car p1)) (cadr (car p2)))
(> (caddr (car p1)) (caddr (car p2)))
)
T
)
((and (= (cadr (car p1)) (cadr (car p2)))
(< (car (car p1)) (car (car p2)))
)
T
)
((> (cadr (car p1)) (cadr (car p2))) T)
(T nil)
)
)
)
)
)

(load "xyp_lib.vlx")   ;版本 V.20060314
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
dispbbs.asp?boardID=3&ID=37554&page=1
|;
(defun c:test ()
  (CMDLA0)
  (if (null int)
    (setq int 9)
  )
  (setq ffn (getfiled "\n保存的数据文件" "数据" "txt" 1)
 INT (UINT 7 "" "\n每行数据量" INT)
 ff  (open ffn "w")
 ss  (Sort_pList (xyp-Sort (ssget '((0 . "TEXT"))) 10 "Y-max"))
 i   0
 tx1 ""
  )
  (foreach s ss
    (setq tx  (xyp-get-dxf 1 (cdr s))
   tx1 (strcat tx1 " " tx)
   i   (1+ i)
    )
    (if (= i int)
      (progn
 (setq tx1 (substr tx1 2))
 (write-line tx1 ff)
 (setq i   0
       tx1 ""
 )
      )
    )
  )
  (close ff)
  (princ (strcat "\n 坐标写至=>" ffn))
  (CMDLA1)
)
;;;从上至下、从左至右
(defun Sort_pList (plist / pt)
  (setq plist
  (vl-sort plist
    '(lambda (p1 p2)
       (cond ((and (= (car (car p1)) (car (car p2)))
     (= (cadr (car p1)) (cadr (car p2)))
     (> (caddr (car p1)) (caddr (car p2)))
       )
       T
      )
      ((and (= (cadr (car p1)) (cadr (car p2)))
     (< (car (car p1)) (car (car p2)))
       )
       T
      )
      ((> (cadr (car p1)) (cadr (car p2))) T)
      (T nil)
       )
     )
  )
  )
)

adc · 发表于 2012-12-20 00:35:14

mark 一下。。。

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

求助，把CAD文字内容转为TXT文件

本帖子中包含更多资源