[求助]：将如下的文件中的字符串转换为表

menglangs · 发表于 2006-6-4 21:51:58

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

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

×

已知C:\ww.txt中有如下LINE的字符串(所有都是LINE实体)：

((-1 . <Entity name: 4006ae20>) (0 . LINE) (330 . <Entity name: 4006acf8>) (5 . 6C) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbLine) (10 458.956 189.657 0.0) (11 558.594 384.441 0.0) (210 0.0 0.0 1.0))
((-1 . <Entity name: 4006ae28>) (0 . LINE) (330 . <Entity name: 4006acf8>) (5 . 6D) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbLine) (10 558.594 384.441 0.0) (11 1060.89 156.852 0.0) (210 0.0 0.0 1.0))
。。。。。。。。

需要将字符串读为表，并提取成为
'((0 . "LINE") (8 . "0") (10 458.956 189.657 0.0) (11 558.594 384.441 0.0) )
'((0 . "LINE") (8 . "0") (10 558.594 384.441 0.0) (11 1060.89 156.852 0.0))等表串，

然后以entmake命令形成相应的实体。

可参考http://www.xdcad.net/forum/showt ... 1991103#post1991103的部分，但是不全。

xiao_longxin · 发表于 2006-6-4 23:15:09

(setq lst (read "((-1 . ) (0 . LINE) (330 . ) (5 . 6C) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbLine) (10 458.956 189.657 0.0) (11 558.594 384.441 0.0) (210 0.0 0.0 1.0))"))
(entmake lst)

lixuedong · 发表于 2006-6-4 23:50:40

可参考这个程序

fsxm · 发表于 2006-6-5 09:29:10

lixuedong 做什么呢还要收钱的啊？
xiao_longxin 都说出答案了只差没写出完整程序了哦！

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

[求助] [求助]：将如下的文件中的字符串转换为表

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

相关帖子