[求助]：让vlisp程序自动加载出现了问题

yinwh · 发表于 2003-2-22 14:41:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我做了以下操作

在acad.mnu中最后处加上如下代码
(load "circlezhou.lsp")
(load "chmotor_line.lsp")
(load "chmotor_huazhou.lsp")
(load "chmotor_chgltype.lsp")

这四个文件都在C:\Program Files\ACAD2000\SUPPORT\chmotor目录下，并且我在support file search path 中加入了这个路径。

还在C:\Program Files\ACAD2000\SUPPORT\chmotor中建了1个acad.lsp文件，在里面加上
(load "circlezhou.lsp")
(load "chmotor_line.lsp")
(load "chmotor_huazhou.lsp")
(load "chmotor_chgltype.lsp")
然后在tools-->options-->system中选择了load acad.lsp with every drawing

双保险了！
我如果从acad.exe 启动cad2000时，这四个程序都能生效并正常使用，可是如果通过直接点击一个cad图形文件打开cad2000的话，在启动的时候就会由个错误提示
Opening an AutoCAD 2000 format file.
Regenerating model.
; error: syntax error
; error: syntax error
AutoCAD menu utilities loaded.
Command:
启动cad2000后，这四个程序都不能用，
显示错误提示：Unknown command "CIRCLEZHOU". Press F1 for help.

请大侠指点！我已经昏了。

eachy · 发表于 2003-2-22 14:56:55

晓东工具箱中是这样自动加载的
<normalfont>
1 菜单中只写命令，不用Load，如：

ID_CU_CL2PL [连接线段(&L)]^C^C_c_l2pl
ID_CU_QXHB [合并线段(&J)]^C^C_curve_join
[--]
ID_CU_XKPP [加粗曲线(&M)]^C^C_plw_match
ID_CU_delspl [删超短线(&E)]^C^C_XDTB_CurveDelSL
[--]
ID_CU_plarea [曲线统计(&T)]^C^C_plarea
ID_CU_CLEN [PL线长和(&D)]^C^C_cal_clen
ID_CU_CUDIST [测量长度(&S)]^C^C_XDTB_CurveLength
ID_CU_CUAREA [曲线面积(&U)]^C^C_XDTB_CurveArea

复制代码

2 加载命令放在同名的MNL中，用AutoLoad

;;The follow code Writen by QiuFeng
;; 此处自动加载一个命令的lisp程序，
;; !!!命令名必须与程序名相同，不然会导致溢出
(_Autoload_All_XdSoft_SingleCommand_Lisp
'("cline" "mk_wipeout" "modify_z" "outline"
"pldel" "s_trim" "slbmagic" "solid2pl"
"ssgetf" "swl2dote" "swltrim" "stopl"
"win_bat_modw" "draworder_by_layer"
)
)
;; 此处自动加载一个程序中含有多个命令的程序
(autoload "obj_block"
'("blk_trim" "BLK_XCLIP" "blk_rclip"
"del_blk_subent" "mod_blk_subent" "tjblk"
"regen_ss" "add_blk_ss" "blk_num"
"expblk2" "blk_scl" "BLK_ADDATTRIB"
)
)

复制代码

3 程序中判断Lsp、Arx文件是否加载，

;;Writen By Eachy
(defun $xdrx_load ($name / el)
;;判断一个ARX程序是否加载
(if (= (type $name) 'STR)
(setq el (list $name))
(setq el $name)
)
(foreach n el
(if (wcmatch (strcase n) "*.ARX")
(if (not (member (strcase n t)
(mapcar '(lambda (x) (strcase x t)) (arx))
)
)
(arxload n)
)
;;判断一个LSP程序是否加载
(if (and (not (member n _xdatoml))
(load n)
)
(setq _xdatoml (cons n _xdatoml))
)
)
)
(princ)
)

</normalfont>

yinwh · 发表于 2003-2-22 15:37:33

斑竹你写的东西我看不太懂啊，我有这几个程序
(load "circlezhou.lsp")
(load "chmotor_line.lsp")
(load "chmotor_huazhou.lsp")
(load "chmotor_chgltype.lsp")

要在任何时候都自动加载，应该怎么写？

秋枫 · 发表于 2003-2-22 16:08:55

就是说，你不应该加在mnu文件中，而应该放在 MNL 文件中。MNU文件不是写lsp代码的。

acad.mnu -> acad.mnl

在acad.mnu中最后处加上如下代码
(load "circlezhou.lsp")
(load "chmotor_line.lsp")
(load "chmotor_huazhou.lsp")
(load "chmotor_chgltype.lsp")

yinwh · 发表于 2003-2-22 16:34:48

谢谢！我按您的要求，把acad.mnu中加入的代码删掉，然后在acad.mnl的最后面加上(load "circlezhou.lsp")
(load "chmotor_line.lsp")
(load "chmotor_huazhou.lsp")
(load "chmotor_chgltype.lsp")

可是在通过点击一个DWG图形文件打开acad2000的时候还是报错
Opening an AutoCAD 2000 format file.
Regenerating model.
; error: syntax error
; error: syntax error
AutoCAD menu utilities loaded.; error: syntax error

秋枫 · 发表于 2003-2-22 17:45:02

试把 acad.MNC, MNS, MNR 三个文件备份一下，删除之。

eachy · 发表于 2003-2-22 18:08:12

最初由 yinwh 发布
[B]谢谢！我按您的要求，把acad.mnu中加入的代码删掉，然后在acad.mnl的最后面加上(load "circlezhou.lsp")
(load "chmotor_line.lsp")
(load "chmotor_huazhou.lsp")
(load "chmotor_chgltype.lsp")

可是在?.. [/B]

先试试注释掉加载，看看双击DWG启动时有错误吗。
2000下用VLsp的程序最前面加(vl-load-com)

yinwh · 发表于 2003-2-22 23:34:48

(vl-load-com)
是什么意思？
我用的是win98  acad2000中英文版混用

是否在每个lisp程序的最前面要加上这行代码？

我今天写程序的时候又碰到另外一个问题：
在写字程序的时候格式是
  (defun abc(自变量)
....

      )

可是在我的子程序中不仅有自变量，还有若干起辅助作用的局部变量，需要另外声明吗？格式是怎样的？

请不吝赐教！

ll_j · 发表于 2003-2-23 10:08:53

提示是语法错误，应该在acad.mnu去除相应几行，然后用menu命令重新加载acad.mnu，acad将重新编译菜单。
建议将这几句写成“(defun c:xx()(load "xxxxxx.lsp")(c:xx)”的形式，使用是自动加载。
另：如果局部变量在主程序（外部函数）中已经声明，定义内部函数时可以不声明，但如果内部函数中局部变量相互冲突，在各自的函数中也应该声明，声明后的局部变量当函数执行后退出（nil）。声明的格式同外部函数一样，为：
(defun abc(变元 / 局部变量) ;注意“/”前后各有一空格
...
)

yinwh · 发表于 2003-2-23 10:57:52

我把cad2000删除后重装了！是连文件夹都一起删除了

然后在acad.mnl最后面加上
(defun c:xx()
(load "circlezhou.lsp")
(load "chmotor_line.lsp")
(load "chmotor_huazhou.lsp")
(load "chmotor_chgltype.lsp")
)
(c:xx)

问题依旧啊，通过acad.exe启动就正常，通过dwg文件打开就提示

; error: syntax error
; error: syntax error

秋枫 · 发表于 2003-2-23 11:04:12

那换一种方法，不要写代码加载。使用AutoCAD中的启动组：
命令；appload

ll_j · 发表于 2003-2-23 12:06:28

最初由 yinwh 发布
我把cad2000删除后重装了！是连文件夹都一起删除了

然后在acad.mnl最后面加上
(defun c:xx()
(load "circlezhou.lsp")
(load "chmotor_line.lsp")
(load "chmotor_huazhou.lsp")
(load "chmotor_chgltype.l...

你再检查一下dwg所在目录是否有acad*.lsp，如果有，删除之。否则，如果秋枫的办法还不行，方便的话，将你的几个Lisp文件传上来，大家帮助检查一下。

另：我漏写了一个括号，我指的c:xx是程序xxxxxx.lsp中定义的外部函数，如c:cir。

yinwh · 发表于 2003-2-24 10:07:43

我用秋枫的方法试了一下，现在可以了！！

我有5个程序，4个是好的，在加载这个程序的时候有错误提示，请帮我看一下错在哪里？我觉得没错啊，因为我用手动加载的时候，是正常的啊

(setvar "cmdecho" 0)
(command "linetype" "l" "dianhuaxian" "" "")
(command "linetype" "l" "xuxian" "" "")
(command "layer" "m" 2 "l" "xuxian" "" "lw" "0.2" "" "")
(command "layer" "m" 3 "l" "dianhuaxian" "" "lw" "0.2" "" "")
(command "layer" "m" 4 "l" "continuous" "" "lw" "0.2" "" "")
(command "layer" "m" 1 "l" "continuous" "" "lw" "0.35" "" "")

xuxian 和dianhuaxian 我都已经定义好了
*dianhuaxian,Center ____ _ ____ _ ____ _ ____ _ ____ _ ____
A, 31.75, -6.35, 6.35, -6.35
*xuxian,Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _
A, 12.7, -6.35

为了测试，我是直接把里面原有的线型改了个名字

错误提示如下：

Opening an AutoCAD 2000 format file.
Regenerating model.
Invalid option keyword.
; error: Function cancelled
Enter an option [?/Create/Load/Set]:
Command:
AutoCAD menu utilities loaded.
AutoCAD Express Tools Menu loaded.
Invalid option keyword.
; error: Function cancelled
Enter an option [?/Create/Load/Set]:

可奇怪的是，虽然有错误提示，但xuxian和dianhuaxian还是加载上去了，这些错误提示是什么意思呢？
请各位帮帮忙，谢谢了！

还有：我如果想把配置移植到另外几台机子上，又不想在每台机子上一条一条的加到启动组，因为以后程序可能会很多，我该怎么做？同时需要移植的还有对应这些程序而定制的工具条按钮。

zhynt · 发表于 2003-2-24 14:58:34

我建议你还是去看看这方面的书籍，系统的学习学习。
关于工具条的问题，你可以打开菜单文件，看看定制前后的异同，研究一下吧，通过研究你的认识会更加深刻的。

yinwh · 发表于 2003-2-24 15:43:34

能不能推荐一本书？？我这里能买到的书都太浅了。。

如果有好的介绍，请写一下书名和出版商以及作者

我现在手上只有一本铁道出版社的autolisp&dcl基础篇

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：让vlisp程序自动加载出现了问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子