快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

CAD外挂程序简繁切换

可以通过系统变量LOCATE来判定你的系统属于什么语言。英文系统为enu。简体中文为chs,繁体中文为cht。

建议把所有的文字提示内容写在程序前面用变量定义(最好是用LIST列表的形式写到一个变量中),每一种语言写一个列表变量,语言判定后直接取相应语言的列表。在程序中需要显示文字的地方则直接显示列表中的某一位置的内容就行。这有得于程序的简朴化,修改及添加其它语言的资源也简朴。

(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))  


返回类别: AuotoCAD教程
上一教程: 谈AutoCAD中线型的定制和使用
下一教程: AutoCAD应用技巧

您可以阅读与"CAD外挂程序简繁切换"相关的教程:
· CAD中自动画管线图的LISP程序
· AutoCAD二次开发程序的自动安装处理
· AUTOCAD系列批量处理程序
· 使用VBA创建应用程序
· 使用Visual LISP创建简朴的LISP应用程序
    微笑服务 优质保证 索取样品