[求助]各位大侠请帮助,CAD外挂程序简繁切换.

mccad

可以通过系统变量LOCATE来判断你的系统属于什么语言。英文系统为enu。简体中文为chs，繁体中文为cht。
建议把所有的文字提示内容写在程序前面用变量定义(最好是用LIST列表的形式写到一个变量中)，每一种语言写一个列表变量，语言判断后直接取相应语言的列表。在程序中需要显示文字的地方则直接显示列表中的某一位置的内容就行。这有得于程序的简单化，修改及添加其它语言的资源也简单。

秋枫

我提个建议：


就是把字符串资源相对集中放置，不用每次都用cond函数判断。


多语言的字符串做成表，在程序中用一个函数根据当前设定转换。


比如：


(setq lang '( ("rogram" "程式" "程序") ("Are you sure?" "真的确定吗？" "真的确定吗？") ...)


定义一个函数，比如命名为getlangstr


根据全局语言设定自动调用不同的字串，


比如 (getlangstr "rogram") 如果发现全局为繁体中文就返回 "程式"字串。

andyding

多谢明总及秋枫大侠! 我没学过编程,看得有点朦朦胧胧的,似懂非懂!唉,悲哀! 举个例子吧?实际操作下下面这段程序吧,多谢你们这些好心人了. (DEFUN C:OC() (vl-cmdf "_.undo" "_group")
(mapcar 'princ (list "Current offset dist= " (getvar "OFFSETDIST")" "))
(setq di (getstring "\nEnter Offset Dist:"))
(setq o (ssget))
(setq po (getpoint "\nSide to offset"))
(setq LAY (getvar "CLAYER"))
(if (/= di nil)
(COMMAND "OFFSET" di o po "")
(COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))
(if (= di nil)
(COMMAND "OFFSET" "" o po "")
(COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))
(vl-cmdf "_.undo" "_end")(princ))

龙龙仔

2. (defun C:OC (/ DI LANGLST LAY LST O PO)
3.    (setq  LANGLST  '(("ENU"
4.          "\nCurrent offset dist= "
5.          "\nEnter Offset Dist:"
6.          "\nSide to offset"
7.        )
8.        ("CHT"
9.          "\n目前偏移距离= "
10.          "\n输入偏移距离:"
11.          "\n选取偏移侧"
12.        )
13.      )
14.    )
15.    (setq LST (cdr (assoc (getvar "LOCALE") LANGLST)))
16.    (vl-cmdf "_.undo" "_group")
17.    (mapcar 'princ
18.      (list (nth 0 LST) (getvar "OFFSETDIST") " ")
19.    )
20.    (setq DI (getstring (nth 1 LST)))
21.    (setq O (ssget))
22.    (setq PO (getpoint (nth 2 LST)))
23.    (setq LAY (getvar "CLAYER"))
24.    (if (/= DI NIL)
25.        (command "OFFSET" DI O PO "")
26.        (command "CHPROP" "L" "" "LA" LAY "LT" "bylayer" "C" "bylayer" "")
27.    )
28.    (if (= DI NIL)
29.        (command "OFFSET" "" O PO "")
30.        (command "CHPROP" "L" "" "LA" LAY "LT" "bylayer" "C" "bylayer" "")
31.    )
32.    (vl-cmdf "_.undo" "_end")
33.    (princ)
34. )

(defun C:OC (/ DI LANGLST LAY LST O PO)    (setq  LANGLST  '(("ENU"          "\nCurrent offset dist= "          "\nEnter Offset Dist:"          "\nSide to offset"        )        ("CHT"          "\n目前偏移距离= "          "\n输入偏移距离:"          "\n选取偏移侧"        )      )    )    (setq LST (cdr (assoc (getvar "LOCALE") LANGLST)))    (vl-cmdf "_.undo" "_group")    (mapcar 'princ      (list (nth 0 LST) (getvar "OFFSETDIST") " ")    )    (setq DI (getstring (nth 1 LST)))    (setq O (ssget))    (setq PO (getpoint (nth 2 LST)))    (setq LAY (getvar "CLAYER"))    (if (/= DI NIL)        (command "OFFSET" DI O PO "")        (command "CHPROP" "L" "" "LA" LAY "LT" "bylayer" "C" "bylayer" "")    )    (if (= DI NIL)        (command "OFFSET" "" O PO "")        (command "CHPROP" "L" "" "LA" LAY "LT" "bylayer" "C" "bylayer" "")    )    (vl-cmdf "_.undo" "_end")    (princ) )

andyding

多谢龙哥!!!

andyding

在各位大位的帮助下﹐我的LSP全搞定了﹗多谢各位大侠﹗



又遇到个难题﹗LSP+DCL怎么办﹖也来个范例﹕

andyding

好心人们帮帮忙吧，相信这个问题是具有代表性的。

andyding

急盼好心人帮助!

秋枫

就是根据当前语言的设置加载不同的dcl文件啦～～或者同一个dcl中，不同的对话框。

andyding

一语惊醒梦中人!多谢秋枫大侠!


如有不懂之处再请教!