第1个回答 2014-10-28
假如我们有一个txt文件保存线坐标 路径如下"F:\\1.txt"
保存格式严格遵守如下:
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
左边为x轴坐标 右边为y轴坐标 中间含有一个空格 。然后从cad中加载如下lisp代码,
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:lli()
;;coded by 焚琴居主人
(setq f1 (open "F:\\1.txt" "r"))
(setq n 0)
(repeat 6
(setq n (+ n 1))
(set (read (strcat "A" (itoa n))) (read-line f1))
)
(close f1)
(setq biao1 (read (strcat "(" (eval (read "A1")) ")"))) ;展开成表
(setq biao2 (read (strcat "(" (eval (read "A2")) ")"))) ;
(command "line" biao1
biao2
)
(setq n 2)
(repeat 4
(setq n(+ 1 n))
(setq biao3 (read (strcat "(" (eval (read (strcat "A" (itoa n)))) ")"))) ;
(command biao3)
)
(command "")
(princ)