[求助]：读入数据文件中的字符，怎样标注在图形中

SGP007 · 发表于 2009-9-15 22:37:07

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

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

×

数据文件格式如下：
256400.00 高度 228.088
256439.00 长度 527.923
256452.00 宽度 727.025

读入程序如下：
(setq F1 (open fname "r"))
(setq LST '())
  (while (setq STR (read-line F1))
(setq LST (cons (read (strcat "(" STR ")") LST)))
(setq GD (nth 0 LST)
         WZ (nth 1 LST)
         BG (nth 2 LST)
)
(setq wzbzd (list (/ GD 10000) (/ BG 1000) ) )
(command "_.text" "j" "bc" wzbzd "3" "0" wz)
这个WZ 怎么标注不起呢？它到底是个什么类型的变量啊

PLgis · 发表于 2009-9-16 06:19:47

WZ的值应该是字符串
你检查一下：(type wz)的值是什么？
另外，其他语句也好像有问题。
供参考。

SGP007 · 发表于 2009-9-16 08:58:52

是啊声明变量wz的时候就出错了

gysjy · 发表于 2009-9-16 10:37:32

wzbzd好象是一个点坐标，程序中的gd和bg却是字符串而不是实数。那么gd和bg应分别是
(setq gd (substr str 1 9) gd (atof gd))
(setq bg (substr str 15) bg (atof bg))

guohq · 发表于 2009-9-16 17:08:18

文本格式:

256400.00 "高度"  228.088
256439.00 "长度"  527.923
256452.00 "宽度"  727.025

(defun c:tt( / fname f1 lst str gd wz bg wzbzd)
  (setq fname (getfiled "tttt" "c:" "txt" 0))
  (setq F1 (open fname "r"))
  (setq LST '())
  (while (setq STR (read-line F1))
;;(setq LST (cons (read (strcat "(" STR ")")) LST));;此处有问题
(setq lst (read (strcat "(" str ")")))
(setq GD (nth 0 LST)
   WZ (nth 1 LST)
   BG (nth 2 LST)
)
(setq wzbzd (list (/ GD 10000) (/ BG 1000)))
(command "_.text" "j" "bc" wzbzd "3" "0" wz)
  )
(close f1)
  (prin1)
)

fvwbg · 发表于 2009-9-18 00:10:25

高手如云啊.学习了..

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

[求助] [求助]：读入数据文件中的字符，怎样标注在图形中

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

相关帖子