[求助]：帮我看看这个lsp程序是什么地方的问题

wangwei628

(vmon)
(defun c:main()
(load "dfh")
(load "lfhdraw")
(load "lfhdraw1")
(load "lfhdraw2")
(load "lfhdraw3")
(load "lfhdraw4")
(load "lfhmain")
(load "textfh")
(load "pmfh")
(load "Qmfh")
(load "smfh")
(load "MyHelp")
(initget (+ 1 2 4))
(setq scale (getreal "\n输入比例尺(500/2000)："))
(setq as (strcat "1:" (rtos scale 2 2)))
(setq scl (/ scale 1000.0))
(setvar "ltscale" scl)
(setvar "plinegen" 1)
(setvar "modemacro" as)
(princ "\n   E_Map自动化符号化程序-武汉市勘测院测量一室 99.8")
;(princ "\n          帮助请输入MYHELP")
(princ)
)
加载说是函数错误？

Underway

只能在您的机了子上才查得到问题所在
您这样子依序在命令列调试....        
        
Commend: (load "dfh")
Commend: (load "lfhdraw")
Commend: (load "lfhdraw1")
......
.....
Commend: (load "MyHelp")
........

........

直到出现错误....

wangwei628

这个lsp程序时在r14下运行的
它的原程序是：
(load "dfh")
(load "lfhdraw")
(load "lfhdraw1")
(load "lfhdraw2")
(load "lfhdraw3")
(load "lfhdraw4")
(load "lfhmain")
(load "textfh")
(load "pmfh")
(load "Qmfh")
(load "smfh")
(load "MyHelp")
(initget (+ 1 2 4))
(setq scale (getreal "\n输入比例尺(500/2000)："))
(setq as (strcat "1:" (rtos scale 2 2)))
(setq scl (/ scale 1000.0))
(setvar "ltscale" scl)
(setvar "plinegen" 1)
(setvar "modemacro" as)
(princ "\n E_Map自动化符号化程序-武汉市勘测院测量一室 99.8")
;(princ "\n 帮助请输入MYHELP")
(princ)
没有命令，有些是我加的，要怎么改才能在cad2004上运行。