设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：读入数据文件问题，多谢
返回列表 发新帖
查看: 1158|回复: 10

[求助] [求助]：读入数据文件问题，多谢

[复制链接]
tjtghtghtgh
发表于 2005-7-16 21:43:23 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
举例说明，我的数据文件是点的坐标X,Y,Z，我只会分为三行读入，
500
1000
2000
如果我想一行输入，通过空格或逗号来区分
500，1000，2000
程序怎样识别出X,Y,Z
读入, 别出, 三行

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

xyp1964
发表于 2005-7-16 23:51:37 | 显示全部楼层
最好用空格分开xyz数值。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wkai
发表于 2005-7-17 00:06:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
xyp1964 还是说得更清楚些比较好
: )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-7-17 00:27:31 | 显示全部楼层
最初由 wkai 发布
[B]xyp1964 还是说得更清楚些比较好
: ) [/B]

格式：
x坐标 y坐标 z坐标
x坐标 y坐标 z坐标
x坐标 y坐标 z坐标
x坐标 y坐标 z坐标
x坐标 y坐标 z坐标
……
  2. [FONT=courier new];;;数据画线
  3. ;;;文本格式的一组坐标点调入AutoCAD自动绘制段线或多线段
  4. ;;;已知一组 X、Y ，并且已写入一文件TXT1.TXT,要根据此文件让其自动用“PLINE”绘出。
  5. ;;;文件内容格式如下：
  6. ;;;X坐标 Y坐标 Z坐标
  7. ;|实例：
  8. 123 456
  9. 222 333
  10. 444 555
  11. 777 888
  12. 888 999
  13. 999 754
  14. 111 755
  15. 333 666
  16. 555 777
  17. |;
  18. (defun c:test105 ()
  19.   (CMDLA0)
  20.   (alert
  21.     "数据格式:
  22.   X坐标 Y坐标 Z坐标
  23.   X坐标 Y坐标 Z坐标
  24.   X坐标 Y坐标 Z坐标
  25.   X坐标 Y坐标 Z坐标
  26.   X坐标 Y坐标 Z坐标
  27.   ..."
  28.   )
  29.   (prompt "\n\t稍候 ")
  30.   ;(MKLA "建筑-红线" 1)
  31.   (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))
  32.   (setq fle (findfile tn))
  33.   (if (not fle)
  34.     (setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))
  35.   )
  36.   (if fle
  37.     (progn
  38.       (setq fn (open fle "r"))
  39.       (command "pline")
  40.       (while (setq pt (read-line fn))
  41.         (princ ".")
  42.         (command (read (strcat "(" pt ")")))
  43.       )
  44.       (command "")
  45.       (close fn)
  46.     )
  47.     (princ "\n未选择数据文件，退出")
  48.   )
  49.   (prompt " 完毕！")
  50.   (CMDLA1)
  51. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2005-7-17 01:21:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
xyp1964  的意思应该是写入时用空格隔开，
(setq xyz-str (strcat (rtos x 2 2) " "(rtos y 2 2)" "(rtos y 2 2)))
读的时候就可以
(setq xyz-list (read (strcat "(" xyz-str  ")")))，方便一些。
当然你也可以不用空格，明经那里有关于字串和表互转的函数，可以用各种分隔符。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-7-17 09:22:08 | 显示全部楼层
X坐标 Y坐标 Z坐标
X坐标 Y坐标 Z坐标
X坐标 Y坐标 Z坐标
  2. [FONT=courier new](defun c:test141 ()
  3.   (cmdla0)
  4.   (alert (strcat "数据格式:"                "\nX坐标 Y坐标 Z坐标"
  5.                  "\nX坐标 Y坐标 Z坐标"        "\nX坐标 Y坐标 Z坐标"
  6.                  "\n..."                "\n..."
  7.                  "\n..."
  8.                 )
  9.   )
  10.   (prompt "\n稍候 : ")
  11.   (MKLA "建筑-红线" 1)
  12.   (while (not
  13.            (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))
  14.          )
  15.   )
  16.   (setq        fle    (findfile tn)
  17.         pt-lst '()
  18.   )
  19.   (if (not fle)
  20.     (setq fle (getfiled "请选择坐标数据文件" "" "txt;dat;*" 8))
  21.   )
  22.   (if fle
  23.     (progn
  24.       (setq fn (open fle "r")
  25.             n  0
  26.       )
  27.       (command "pline")
  28.       (while (setq pt (read-line fn))
  29.         (setq pt     (read (strcat "(" pt ")"))
  30.               pt-lst (cons pt pt-lst)
  31.               n             (1+ n)
  32.         )
  33.         (command pt)
  34.         (princ ".")
  35.       )
  36.       (command "")
  37.       (close fn)
  38.       (jzhz)
  39.       (MKLA "坐标" 3)
  40.       (mapcar '(lambda (#pt) (x_zb #pt)) pt-lst)
  41.       (princ "共输入和标注 ")
  42.       (princ n)
  43.       (princ " 个坐标点!")
  44.     )
  45.     (princ "\n未选择数据文件，退出")
  46.   )
  47.   (cmdla1)
  48. )[/FONT]


点位号 X坐标 Y坐标 Z坐标
点位号 X坐标 Y坐标 Z坐标
点位号 X坐标 Y坐标 Z坐标
  2. [FONT=courier new](defun c:test141a ()
  3.   (cmdla0)
  4.   (alert (strcat "数据格式 : "
  5.                  "\n点位号 X坐标 Y坐标 Z坐标"
  6.                  "\n点位号 X坐标 Y坐标 Z坐标"
  7.                  "\n点位号 X坐标 Y坐标 Z坐标"
  8.                  "\n..."
  9.                  "\n..."
  10.                  "\n..."
  11.                 )
  12.   )
  13.   (prompt "\n稍候 : ")
  14.   (MKLA "建筑-红线" 1)
  15.   (while (not
  16.            (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))
  17.          )
  18.   )
  19.   (setq        fle    (findfile tn)
  20.         pt-lst '()
  21.   )
  22.   (if (not fle)
  23.     (setq fle (getfiled "请选择坐标数据文件" "" "txt;dat;*" 8))
  24.   )
  25.   (if fle
  26.     (progn
  27.       (setq fn (open fle "r")
  28.             n  0
  29.       )
  30.       (command "pline")
  31.       (while (setq pt (read-line fn))
  32.         (setq pt     (cdr (read (strcat "(" pt ")")))
  33.               pt-lst (cons pt pt-lst)
  34.               n             (1+ n)
  35.         )
  36.         (command pt)
  37.         (princ ".")
  38.       )
  39.       (command "")
  40.       (close fn)
  41.       (jzhz)                                ;加载汉字
  42.       (MKLA "坐标" 3)
  43.       (mapcar '(lambda (#pt) (x_zb #pt)) pt-lst) ;标注顶点坐标
  44.       (princ "共输入和标注 ")
  45.       (princ n)
  46.       (princ " 个坐标点!")
  47.     )
  48.     (princ "\n未选择数据文件，退出")
  49.   )
  50.   (cmdla1)
  51. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tjtghtghtgh
 楼主| 发表于 2005-7-17 10:29:33 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我的程序是
(defun c:zzt (/)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq f (open "c:/1/ZKBZt.dat" "r"))

                                       
  (command "layer" "m" "ZK" "l"        "continuous" "zk" "c" "red" "zk" "")
  (command "layer" "s" "ZK" "")

  (setq sj (read-line f))                ;getreal "\ÊäÈëÏÂÒ»µã¹«Àï±ê:"))

  (while sj
    (setq sj (read (strcat "(" sj ")")))
    (setq kh (nth 0 sj))               
    (progn
      (princ "kh=")
      (princ kh)
    )
    (setq d (list (nth 1 sj) (nth 2 sj)))
    (setq bzd (list (+ (car d) 20) (- (cadr d) 3)))
    (command "DOnuT" 0 6 d "")
    (command "text" bzd 6 0 kh )
   
    (setq sj nil)
    (setq kh nil)
     (setq d nil)
     (setq bzd nil)

    (setq sj (read-line f))
  )
  (CLOSE F)
)

数据文件格式是：
05-ZC-1200  485762 423645
在执行到TEXT处，文字写不上去，原因是数据类型错误，我查了KH的类型是SYM,难道从表中提取的元素的类型都是SYM,如何转换成STR?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

狂刀
发表于 2005-7-17 10:34:33 | 显示全部楼层
可以不用空格
因为：
(command ".point" (x y z))和　(command ".point" "x,y,z")是一样的，
如果文本写成　x,y,z的格式
直接读入做为点的坐标就可以了，不用转换为表
但注意文本中的＂，＂号要用半角字符
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yshf

已领礼包: 111个

财富等级: 日进斗金
发表于 2005-7-17 22:10:18 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
;用以下程序段，可以读如下的三种格式的数据文件，并存入表fhb中：
;（1）格式1（空格作分隔）
;点位号 X坐标 Y坐标 Z坐标
;点位号 X坐标 Y坐标 Z坐标
;点位号 X坐标 Y坐标 Z坐标
;（2）格式2（英文状态的“,”号作分隔）
;点位号, X坐标, Y坐标, Z坐标
;点位号, X坐标, Y坐标, Z坐标
;点位号, X坐标, Y坐标, Z坐标
;（3）格式3（中文状态的“，”号作分隔）
;点位号， X坐标， Y坐标， Z坐标
;点位号， X坐标， Y坐标， Z坐标
;点位号， X坐标， Y坐标， Z坐标

   (setq ff (open (getfiled "请选择要展点的数据文件" "" "txt" 2) "r")
         fhb nil
   )
   (while (setq zb (read-line ff))
      (setq zb (vl-string-translate ","  " " (vl-string-translate "，"  " " zb))
            zb (read (strcat "(" zb ")"))
            fhb (append fhb (list (cons (vl-princ-to-string (car zb)) (cdr zb))))
                                       
      )
   )
   (close ff)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2005-7-18 01:02:13 | 显示全部楼层
最初由 cy956 发布
[B]xyp1964  的意思应该是写入时用空格隔开，
(setq xyz-str (strcat (rtos x 2 2) " "(rtos y 2 2)" "(rtos y 2 2)))
读的时候就可以
(setq xyz-list (read (strcat "(" xyz-str  ")")))，方便一些。
当然你也可以... [/B]


这里也有相同的函数，不会比明经上差的.
找找.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sssssss
发表于 2005-7-18 08:01:33 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
8楼的问题是先read，后提取引起的，数据由字符串变成了字符，过程如下：
"05-ZC-1200 485762 423645"     ；(setq sj (read-line f))
"(05-ZC-1200 485762 423645)"   ；(strcat "(" sj ")")
(05-ZC-1200 485762 423645)      ；(setq sj (read (strcat "(" sj ")")))
05-ZC-1200                                  ；(setq kh (nth 0 sj))
如想得到字符串，应先处理，后read。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-24 20:56 , Processed in 0.221526 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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