yanshengjiang 发表于 2011-9-18 01:10:45

输入任意汉字，执行声母命令 (明镜亦非台）

本帖最后由 yanshengjiang 于 2011-9-18 02:23 编辑

                            为庆祝论坛发言不乱码，所以搞个搞耍的程序出来耍一盘

；；本程序引用了燕川布衣的智能命令
；；感谢明总提出的汉字机器码的算法（貌似是叫机器码）
；；整理by明镜亦非台   （yanshengjiang）
；；暂时只支持单个字母，比如输入"测绘"。只执行“测”的”c“命令。

eg：输入 “额 饿 呃 俄 恶“等以字母E为声母的汉字，执行删除命令 e
      输入 ”才 测 错 吃 次 从"等以字母为为声母的汉字，执行复制命令c


(vl-load-com)
(or *doc* (setq *doc* (vla-get-ActiveDocument (vlax-get-acad-object))))
(or *chinese-text* (setq *chinese-text* (vlr-editor-reactor nil '((:vlr-unknownCommand . chinese-text)))))
(defun chinese-text(a b)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq c (strcase(car b)))
(setq asc (+ (* (ascii c) 1000) (ascii (substr c 2 1))));得到汉字机器码（貌似是）
(cond;cond
((<= 176161 asc 176196)(setq sendcommand-text"_.TRIM "));A啊
((<= 178193 asc 180237)(setq sendcommand-text"_.copy "));C才
((<= 182234 asc 183161)(setq sendcommand-text"_.erase "));E 额
((<= 183162 asc 184192)(setq sendcommand-text"_.fuzhi " ));F发
((<= 184193 asc 185253)(setq sendcommand-text"_.DRAWGCD " ));G个
((<= 185254 asc 187246)(setq sendcommand-text"_.huan "));H好
((<= 187247 asc 191165)(setq sendcommand-text"_.POLYJOIN " ));J就
((<= 191166 asc 192171)(setq sendcommand-text"_.DRAWDK " ));K看
((<= 191166 asc 196194)(setq sendcommand-text"_.move "));M 门
((<= 196195 asc 197181)(setq sendcommand-text"_.PLIND "));N你
((<= 198218 asc 200186)(setq sendcommand-text"_.EXTEND "));Q去
((<= 200187 asc 200245)(setq sendcommand-text"_.offset "));R人
((<= 200246 asc 203249)(setq sendcommand-text"_.putp "));S是
((<= 203250 asc 205217)(setq sendcommand-text"_.TEXT "));T 他
((<= 205218 asc 206243)(setq sendcommand-text"_.DRAWWQ " ));W我
((<= 206244 asc 209184)(setq sendcommand-text"_.DJF3 0 " ));X想
((<= 209185 asc 212208)(setq sendcommand-text"_.POLYINS " ));Y有
((<= 212209 asc)       (setq sendcommand-text"_.zoom e "));Z 中
((>= 176161 asc)       (setq sendcommand-text nil));如果不是汉字就
)   ;cond
(if (/= sendcommand-text nil)
(vla-sendcommand *doc* sendcommand-text)
    )
(setq sendcommand-text nil)
(princ)
)

rocking2008 发表于 2019-1-11 21:31:32

((<= 178193 asc 180237)(setq sendcommand-text"_.copy "));C才

求以下汉字是什么码：以同的搂上主有要经比末 屯   峭双权大孤炎
这些字的机器码是什么。
或者能不能给一下汉字机器码的工具。
多谢多谢。

rocking2008 发表于 2019-1-24 19:46:08

yanshengjiang 发表于 2019-1-23 14:38
命令: (ascii "以")
210

不是这样的格式吗：
((<= 178193 asc 180237)(setq sendcommand-text"_.copy "));C才


你那个以，210，怎么写成上面这样的178193，这是6个数字呀。

rocking2008 发表于 2019-1-14 20:55:18

yanshengjiang 发表于 2019-1-14 17:10
这个我没有也不会。你用lisp你们的ascii函数试试

那你这些汉字的机器码是哪里来的？

yanshengjiang 发表于 2011-9-18 01:11:40

大半夜的 沙发是我的哇 嘿嘿

yanshengjiang 发表于 2011-9-18 02:04:44

修该的时候主要没每个命令后面有个空格哦！！貌似是必须的   吼吼

(setq sendcommand-text"_.copy ")
                                             空格

caoyin 发表于 2011-9-18 04:50:19

明静看起来进步不小哦，支持一下

lrd1861 发表于 2011-9-18 05:32:03

支持一下……

gbhsu 发表于 2011-9-18 09:46:31

明镜，呵呵
严重支持一下
以后多发贴哦！

display18 发表于 2011-9-18 10:36:08

有才了，呵呵，支持

yanshengjiang 发表于 2011-9-18 14:09:47

caoyin 发表于 2011-9-18 04:50 static/image/common/back.gif
明静看起来进步不小哦，支持一下

感谢c版的表扬。我会努力的。。

669423907 发表于 2011-9-18 22:03:22

这个很好！

jicqj 发表于 2011-12-3 20:14:22

L的 汉字区位码是多少？m的这个区位码 有错 191166 应该不对
   ((<= 191166 asc 196194)(setq sendcommand-text"_.move "));M 门
页: [1] 2 3
查看完整版本: 输入任意汉字，执行声母命令 (明镜亦非台）