(defun c:21demo1()
(setvar "cmdecho" 0)
(setq fileph (getfiled "选择文件" "G:/AutoLISP/" "txt" 2))
(setq file (open fileph "r"))
(setq fdata (read-line file))
(command "pline")
(while fdata
(command fdata)
(setq fdata (read-line file))
)
(command "")
(close file)
(princ)
)