whitecloat 发表于 2004-12-16 11:25:00

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

下载的 lisp文件，请问如何把这个文件转为vba


(defun c:pltxt (/ oldcmd oldblip oldsnap fle fn pt) <BR>       (setq oldcmd (getvar "cmdecho")) <BR>       (setvar "cmdecho" 0) <BR>       (setq oldblip (getvar "blipmode")) <BR>       (setvar "blipmode" 0) <BR>       (setq oldsnap (getvar "osmode")) <BR>       (setvar "osmode" 0) <BR>       (setq fle (findfile "txt1.txt")) <BR>       (if (not fle) <BR>                       (setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8)) <BR>       ) <BR>       (if fle <BR>                       (progn <BR>                                       (setq fn (open fle "r")) <BR>                                       (read-line fn) <BR>                                       (read-line fn) <BR>                                       (command "spline") <BR>                                       (while (setq pt (read-line fn)) <BR>(command (read (strcat "(" pt ")"))) <BR>                                       ) <BR>                                       (command "") <BR>                                       (close fn) <BR>                       )


                       (princ "\n未选择数据文件，退出") <BR>       ) <BR>       (setvar "cmdecho" oldcmd) <BR>       (setvar "blipmode" oldblip) <BR>       (setvar "osmode" oldsnap) <BR>       (princ) <BR>)

duanjunqi 发表于 2004-12-28 16:11:00

好象是读取点数据文件然后再生成一个多义线段吧，能不能说清楚一点呀。
页: [1]
查看完整版本: 请问各位大侠：如何把这个文件转为vba