如何实现autolisp调用数据文件＊.dat

changch · 发表于 2004-10-6 15:08:00

能否发个LISP编写的源程序看看，如果可行的话，我将学习编写标准件，提供给大家

alin · 发表于 2004-10-6 15:11:00

Use the following functions:

open, read-line, close

Read on-line help file of AutoCAD for details.

changch · 发表于 2004-10-6 17:22:00

能不能发个简单的例子啊

spring · 发表于 2004-10-6 17:46:00

;;;调用格式 (GET_FILE_NR "aa.dat")
(defun GET_FILE_NR (fi / fil pe fel screw_list)
(setq screw_list nil)
(if (findfile fi)
(progn
(setq fil (findfile fi))
(setq pe (open fil "r"))
(setq fel T)
(while (/= fel nil)
(setq fel (read-line pe))
(setq screw_list (cons fel screw_list))
)
(close pe)
(setq screw_list (cdddr (reverse (cdr screw_list))))
;根据文本的内容而定
)
)
screw_list
)

changch · 发表于 2004-10-7 08:46:00

请帮忙帮我改一下我的这个程序好不好： LISP文件： (defun read_file()
(findfile "ddd.dat")
(setq fname "ddd.dat")
(setq rdata (open fname "r"))
(setq data1 (read-line rdata))
(setq data1-1 (read data1)) (setq canshu data1-1)
(setq d1 (nth 0 canshu))
(setq d2 (nth 1 canshu))
(setq d3 (nth 2 canshu))
(setq d4 (nth 3 canshu))
(close rdata)
) (defun fanhui()
(setq shuju (get_tile "canshu"))
(setq shuju (atof shuju))
)
(defun C:dd()
(setq pt1 (getpoint "\n请输入绘制点:"))
(setq pt2 (polar pt1 0 (* scal 20)))
(setq pt3 (polar pt1 0 (* scal 40)))
(setq pt4 (polar pt1 0 (* scal 60)))
(read_file)
(setq shuju (get_tile "canshu"))
(fanhui)
(command "text" pt1 "" "" d1)
(command "text" pt2 "" "" d2)
(command "text" pt3 "" "" d3)
(command "text" pt4 "" "" d4) ) DAT文件：文件名为ddd.dat (20 15 4 5)
(25 20 5 6)
(30 25 5 6)
(40 32 6 5)
(50 42 8 10)

meflying · 发表于 2004-10-7 10:07:00

(defun read_file ()
(findfile "ddd.dat")
(setq fname "ddd.dat")
(setq rdata (open fname "r"))
(setq data1 (read-line rdata))
(setq data1-1 (read data1))
(setq canshu data1-1)
(setq d1 (nth 0 canshu))
(setq d2 (nth 1 canshu))
(setq d3 (nth 2 canshu))
(setq d4 (nth 3 canshu))
(close rdata)
) (defun C:dd ()
(setq scal 1)
(setq pt1 (getpoint "\n请输入绘制点:"))
(setq pt2 (polar pt1 0 (* scal 20)))
(setq pt3 (polar pt1 0 (* scal 40)))
(setq pt4 (polar pt1 0 (* scal 60)))
(read_file)
(command "text" pt1 "" "" d1)
(command "text" pt2 "" "" d2)
(command "text" pt3 "" "" d3)
(command "text" pt4 "" "" d4)
)

changch · 发表于 2004-10-7 10:15:00

怎么还不能用啊

meflying · 发表于 2004-10-7 12:34:00

你确定ddd.dat在搜索路径里吗?????? 把其中一个函数改成如下试试 (defun read_file ()
(setq fname (getfiled "" "" "dat" 0)
(setq rdata (open fname "r"))
(setq data1 (read-line rdata))
(setq data1-1 (read data1))
(setq canshu data1-1)
(setq d1 (nth 0 canshu))
(setq d2 (nth 1 canshu))
(setq d3 (nth 2 canshu))
(setq d4 (nth 3 canshu))
(close rdata)
)

changch · 发表于 2004-10-7 13:31:00

非常感谢呀，终于成功了 (setq fname (getfiled "" "" "dat" 0)　　　后面再加个）

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