明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2698|回复: 8

[已解答] 如何提取文本的数据组成一个表

[复制链接]
发表于 2014-3-18 16:29:14 | 显示全部楼层 |阅读模式
5明经币
本帖最后由 peraperson 于 2014-3-20 17:25 编辑

(之前可能写的太啰嗦了,改了一下。。)
我现在有一个 图层.txt 的文本 里面有 内容为 beam column slab 三行数据,(仅做举例用,实际上有多行数据)。 请问如何提取这3行数据形成 表 ’(“beam" "column" "slab") ?
谢谢

最佳答案

查看完整内容

(while (setq txt (read-line fp)) (setq Txtss (cons txt Txtss)) ) (close fp) (reverse Txtss)
发表于 2014-3-18 16:29:15 | 显示全部楼层
(while (setq txt (read-line fp))
  (setq Txtss (cons txt Txtss))
)
(close fp)
(reverse Txtss)
回复

使用道具 举报

发表于 2014-3-19 10:36:59 | 显示全部楼层
未验证
(command "_.erase" (ssget "X" '((8 . "beam,column,slab"))) "")
回复

使用道具 举报

 楼主| 发表于 2014-3-19 10:48:07 | 显示全部楼层
自贡黄明儒 发表于 2014-3-19 10:36
未验证
(command "_.erase" (ssget "X" '((8 . "beam,column,slab"))) "")

谢谢黄兄。你可能误会了我的意思,我的问题在于 我现在有一个文本,里面写有 beam, column, slab 3行数据,我想知道怎么提取这3个数据组成一个表,从而来跟我款选的图元所在的图层做比较。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

发表于 2014-3-19 11:45:07 | 显示全部楼层
peraperson 发表于 2014-3-19 10:48
谢谢黄兄。你可能误会了我的意思,我的问题在于 我现在有一个文本,里面写有 beam, column, slab 3行数 ...

那么表是什么内容?
回复

使用道具 举报

发表于 2014-3-19 12:09:05 | 显示全部楼层

(defun readfn (/ fn ftext crtlst)
    (setq fn (open (findfile "tcf.ini") "r"))
    (while (setq ftext (read-line fn)) (setq crtlst (append crtlst (list ftext))))
    (close fn)
    (setq textstr (nth 0 crtlst))
    crtlst
  )
回复

使用道具 举报

 楼主| 发表于 2014-3-19 13:09:24 | 显示全部楼层
本帖最后由 peraperson 于 2014-3-19 13:23 编辑
自贡黄明儒 发表于 2014-3-19 11:45
那么表是什么内容?

简单的说,我的问题就是:我现在有如下图所示的文本,我希望利用这个文本得到 ’("Beam" "Column" "Slab")这个表,请问如何实现?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

 楼主| 发表于 2014-3-20 17:13:08 | 显示全部楼层
本帖最后由 peraperson 于 2014-3-20 17:34 编辑
Andyhon 发表于 2014-3-19 16:43
(while (setq txt (read-line fp))
  (setq Txtss (cons txt Txtss))
)

谢谢!

回复

使用道具 举报

发表于 2014-3-21 11:38:29 | 显示全部楼层
盗用院长函数:XYP-TXT2LST
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-24 00:45 , Processed in 0.216895 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表