[讨论]关于自动加载的acad.lsp.

andyding

本人不懂编程,(没入过门),从事连续冲压方面的工作,主要搞端子模. 在工作中接触到了不少的LSP,于是上网搜索,找到了www.mjtd.com, 得到了mccad,myflying,bdycad,spring,zzxxqq,秋枫(排名不分先后,不一一列举)等等大侠的无私帮助.在此表示感谢! 因为他们的帮助我东拼西凑,写了如下的自动加载外挂程序及菜单的acad.lsp 大家共同讨论下这个方面的话题. (defun Load_cht ()
(setq as (getenv "ACAD"))
(setenv
"ACAD"
(strcat as "E:\\stamping\\bmp;E:\\stamping\\lsp;E:\\stamping\\lib;"
);;;加载支持路径,学BDYCAD的,
)
(defun Load_stamping ()
(command "_menuload" "E:\\stamping\\stamping.mns")
)
(if (not (menugroup "stamping"))
(Load_stamping)
);;;加载菜单,学秋枫的
(menucmd "p11=+stamping.pop1")
(menucmd "p12=+stamping.pop2")
(menucmd "p13=+stamping.pop3")
(load "stamping.lsp")
(setq aler (strcat "三十功名尘与土,八千里路云和月."
"\n莫等闲,白了少年头,空悲切."
"\n欢迎使用Stamping CAD Soft."
"\n整理制作:MR.Andy Ding *^_^* *~_~* "
)
)
(alert aler)
);;;欢迎信息,忘了学谁的了,
(if (= (getvar "SYSCODEPAGE") "ANSI_950")
(Load_cht)
);;;根据间繁来加载不同的菜单.学ZZXXQQ的
(princ)

andyding

这节感觉不好: (if (= (getvar "SYSCODEPAGE") "ANSI_950")
(Load_cht)
) 哪位高手把它改成能判断英简繁,如果为系统为英文版那么就加载英文版的菜单.

ZZXXQQ

代码：

1. (cond
2.   (= (getvar "SYSCODEPAGE") "ANSI_950")   (Load_cht))
3.   (= (getvar "SYSCODEPAGE") "ANSI_936")   (Load_chs))
4.   (= (getvar "SYSCODEPAGE") "BIG5 Chinese") (Load_cht))
5.   (= (getvar "SYSCODEPAGE") "GB2312 Chinese") (Load_chs))
6.   (T (load_eng))
7. )

复制代码

码页表：

1. ASCII
2. DOS932   Japan
3. BIG5   Chinese(Taiwan, Hong Kong))
4. KSC5601   Korean Wansung
5. JOHAB     Korean Johab, not supported in R14
6. ANSI_1250   Eastern European
7. ANSI_1251   Cyrillic
8. ANSI_1252   (US and Western Europe)
9. GB2312 Chinese (PRC, Singapore)
10. ANSI_1253   Greek
11. ANSI_1254   Turkish
12. ANSI_1255   Hebrew
13. ANSI_1256   Arabic
14. ANSI_1257   Baltic
15. ANSI_874   Thai
16. ANSI_932   Japan
17. ANSI_936   Chinese (PRC, Singapore))
18. ANSI_949   Korean
19. ANSI_950   Chinese (Taiwan, Hong Kong)
20. ANSI_1361   Korean Johab

复制代码

andyding

多谢ZZXXQQ大侠指点，有问题再麻烦你！！！

illcyt

不错的代码，收藏一下，谢谢

sixth

收藏了，谢谢楼主提供~~~~~~~~~~~~~