andyding 发表于 2005-4-23 20:51:00

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

本帖最后由 作者 于 2005-4-23 21:11:56 编辑 <br /><br /> 本人不懂编程,(没入过门),从事连续冲压方面的工作,主要搞端子模.



在工作中接触到了不少的LSP,于是上网搜索,找到了<A href="http://www.mjtd.com/" target="_blank" >www.mjtd.com</A>,


得到了mccad,myflying,bdycad,spring,zzxxqq,秋枫(排名不分先后,不一一列举)等等大侠的无私帮助.在此表示感谢!


因为他们的帮助我东拼西凑,写了如下的自动加载外挂程序及菜单的acad.lsp


大家共同讨论下这个方面的话题.


(defun Load_cht ()<BR>       (setq as (getenv "ACAD"))<BR>       (setenv<BR>                       "ACAD"<BR>                       (strcat as "E:\\stamping\\bmp;E:\\stamping\\lsp;E:\\stamping\\lib;"<BR>                       );;;加载支持路径,学BDYCAD的,<BR>       )<BR>       (defun Load_stamping ()<BR>                       (command "_menuload" "E:\\stamping\\stamping.mns")<BR>       )<BR>       (if (not (menugroup "stamping"))<BR>                       (Load_stamping)<BR>       );;;加载菜单,学秋枫的<BR>       (menucmd "p11=+stamping.pop1")<BR>       (menucmd "p12=+stamping.pop2")<BR>       (menucmd "p13=+stamping.pop3")<BR>       (load "stamping.lsp")<BR>       (setq aler (strcat "三十功名尘与土,八千里路云和月."<BR>                               "\n莫等闲,白了少年头,空悲切."<BR>                               "\n欢迎使用Stamping CAD Soft."<BR>                               "\n整理制作:MR.Andy Ding *^_^* *~_~* "<BR>                               )<BR>       )<BR>       (alert aler)<BR>);;;欢迎信息,忘了学谁的了,<BR>(if (= (getvar "SYSCODEPAGE") "ANSI_950")<BR>       (Load_cht)<BR>);;;根据间繁来加载不同的菜单.学ZZXXQQ的<BR>(princ)<BR>











andyding 发表于 2005-4-24 20:54:00

这节感觉不好:


(if (= (getvar "SYSCODEPAGE") "ANSI_950")<BR>       (Load_cht)<BR>)


哪位高手把它改成能判断英简繁,如果为系统为英文版那么就加载英文版的菜单.

ZZXXQQ 发表于 2005-4-25 08:52:00

代码：(cond
(= (getvar "SYSCODEPAGE") "ANSI_950")   (Load_cht))
(= (getvar "SYSCODEPAGE") "ANSI_936")   (Load_chs))
(= (getvar "SYSCODEPAGE") "BIG5 Chinese") (Load_cht))
(= (getvar "SYSCODEPAGE") "GB2312 Chinese") (Load_chs))
(T (load_eng))
)码页表：ASCII
DOS932   Japan
BIG5   Chinese(Taiwan, Hong Kong))
KSC5601   Korean Wansung
JOHAB   Korean Johab, not supported in R14
ANSI_1250   Eastern European
ANSI_1251   Cyrillic
ANSI_1252   (US and Western Europe)
GB2312 Chinese (PRC, Singapore)
ANSI_1253   Greek
ANSI_1254   Turkish
ANSI_1255   Hebrew
ANSI_1256   Arabic
ANSI_1257   Baltic
ANSI_874   Thai
ANSI_932   Japan
ANSI_936   Chinese (PRC, Singapore))
ANSI_949   Korean
ANSI_950   Chinese (Taiwan, Hong Kong)
ANSI_1361   Korean Johab

andyding 发表于 2005-4-27 08:55:00

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

illcyt 发表于 2013-9-4 15:22:33

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

sixth 发表于 2013-9-4 18:44:43

收藏了，谢谢楼主提供~~~~~~~~~~~~~
页: [1]
查看完整版本: [讨论]关于自动加载的acad.lsp.