请问各位大侠：如何把这个文件转为vba

whitecloat

下载的 lisp文件，请问如何把这个文件转为vba (defun c:pltxt (/ oldcmd oldblip oldsnap fle fn pt)
(setq oldcmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq oldblip (getvar "blipmode"))
(setvar "blipmode" 0)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq fle (findfile "txt1.txt"))
(if (not fle)
(setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))
)
(if fle
(progn
(setq fn (open fle "r"))
(read-line fn)
(read-line fn)
(command "spline")
(while (setq pt (read-line fn))
(command (read (strcat "(" pt ")")))
)
(command "")
(close fn)
) (princ "\n未选择数据文件，退出")
)
(setvar "cmdecho" oldcmd)
(setvar "blipmode" oldblip)
(setvar "osmode" oldsnap)
(princ)
)

duanjunqi

好象是读取点数据文件然后再生成一个多义线段吧，能不能说清楚一点呀。