动态提取cad坐标到EXCEL或EXCEL到CAD
- 格式:doc
- 大小:30.50 KB
- 文档页数:3
(defun c:lsp_49a()
(setvar "cmdecho" 0)
(setq ffn (getfiled "写出文件" "" "xls" 1)) (setvar "pdmode" 34)
(setq ff (open ffn "w"))
(close ff)
(setq pt (getpoint "\n点位置: "))
(while (/= pt nil)
(command "point" pt)
(setq ff (open ffn "a"))
(princ (car pt) ff)
(princ " " ff)
(princ (cadr pt) ff)
(princ " " ff)
(princ (caddr pt) ff)
(princ "\n" ff)
(close ff)
(setq pt (getpoint "\n点位置: ")) )
(princ (strcat "\n写出文件: " ffn))
(prin1)
)
(defun c:lsp_49b()
(setvar "cmdecho" 0)
(setvar "pdmode" 34)
(setq ffn (getfiled "选取文件" "" "xls" 2)) (setq ff (open ffn "r"))
(setq data (read-line ff))
(while data
(setq p "" pp "" ppp '() i 1)
(setq nn (strlen data))
(repeat nn
(setq p (substr data i 1))
(if (/= p " ")
(setq pp (strcat pp p))
(setq ppp (cons pp ppp) pp "")
)
(setq i (1+ i))
)
(setq ppp (cons pp ppp))
(setq ppp (reverse ppp))
(draw_pt)
(setq data (read-line ff))
)
(close ff)
)
(defun draw_pt()
(setq x (atof (car ppp)))
(setq y (atof (cadr ppp)))
(setq z (atof (caddr ppp)))
(setq pt (list x y z))
(command "point" pt)
)
(princ "\n----------<
(prin1)