如何用lisp利用txt里的坐标和角度布置块
 

如何用lisp利用txt里的坐标和角度布置块
www.dimcax.com
如何用lisp利用txt里的坐标和角度布置块
各位大虾，能帮忙看看，
1、怎么从txt中读取数据，在cad中布置块
txt数据为
id x y 角度
2、从txt文件中读取数据，在对应坐标位置插入单行文字
txt数据为
id x y data
d
(setq fn (getfiled "select data file:" "" "txt" 4))
(if fn
(progn
(setq inf (open fn "r"))
(setq strl (read-line inf))
(setq pt_list nil)
(while (and (setq strl (read-line inf)) (> (strlen strl) 10))
(setq strl (strcat "((" strl "))"))
(setq pt_list (append pt_list (read strl)))
)
... ...)
)未完待续... ...
d
等待中！谢谢这位朋友
d