明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 314|回复: 5

[源码] 字符串转拼音

[复制链接]
发表于 2019-7-16 01:28 | 显示全部楼层 |阅读模式
本帖最后由 1291500406 于 2019-7-16 01:30 编辑

字符串转拼音 by必强
(defun c:bb()(bb_str_piny(list
"On Error Resume Next""Set d = createObject(\"Scripting.Dictionary\") "
"d.add \"a\",-20319 ""d.add \"ai\",-20317 ""d.add \"an\",-20304 "
"d.add \"ang\",-20295 ""d.add \"ao\",-20292 ""d.add \"ba\",-20283 ""d.add \"bai\",-20265 "
"d.add \"ban\",-20257 ""d.add \"bang\",-20242 ""d.add \"bao\",-20230 ""d.add \"bei\",-20051 "
"d.add \"ben\",-20036 ""d.add \"beng\",-20032 ""d.add \"bi\",-20026 ""d.add \"bian\",-20002 "
"d.add \"biao\",-19990 ""d.add \"bie\",-19986 ""d.add \"bin\",-19982 ""d.add \"bing\",-19976 "
"d.add \"bo\",-19805 ""d.add \"bu\",-19784 ""d.add \"ca\",-19775 ""d.add \"cai\",-19774 "
"d.add \"can\",-19763 ""d.add \"cang\",-19756 ""d.add \"cao\",-19751 ""d.add \"ce\",-19746 "
"d.add \"ceng\",-19741 ""d.add \"cha\",-19739 ""d.add \"chai\",-19728 ""d.add \"chan\",-19725 "
"d.add \"chang\",-19715 ""d.add \"chao\",-19540 ""d.add \"che\",-19531 ""d.add \"chen\",-19525 "
"d.add \"cheng\",-19515 ""d.add \"chi\",-19500 ""d.add \"chong\",-19484 ""d.add \"chou\",-19479 "
"d.add \"chu\",-19467 ""d.add \"chuai\",-19289 ""d.add \"chuan\",-19288 ""d.add \"chuang\",-19281 "
"d.add \"chui\",-19275 ""d.add \"chun\",-19270 ""d.add \"chuo\",-19263 ""d.add \"ci\",-19261 "
"d.add \"cong\",-19249 ""d.add \"cou\",-19243 ""d.add \"cu\",-19242 ""d.add \"cuan\",-19238 "
"d.add \"cui\",-19235 ""d.add \"cun\",-19227 ""d.add \"cuo\",-19224 ""d.add \"da\",-19218 "
"d.add \"dai\",-19212 ""d.add \"dan\",-19038 ""d.add \"dang\",-19023 ""d.add \"dao\",-19018 "
"d.add \"de\",-19006 ""d.add \"deng\",-19003 ""d.add \"di\",-18996 ""d.add \"dian\",-18977 "
"d.add \"diao\",-18961 ""d.add \"die\",-18952 ""d.add \"ding\",-18783 ""d.add \"diu\",-18774 "
"d.add \"dong\",-18773 ""d.add \"dou\",-18763 ""d.add \"du\",-18756 ""d.add \"duan\",-18741 "
"d.add \"dui\",-18735 ""d.add \"dun\",-18731 ""d.add \"duo\",-18722 ""d.add \"e\",-18710 "
"d.add \"en\",-18697 ""d.add \"er\",-18696 ""d.add \"fa\",-18526 ""d.add \"fan\",-18518 "
"d.add \"fang\",-18501 ""d.add \"fei\",-18490 ""d.add \"fen\",-18478 ""d.add \"feng\",-18463 "
"d.add \"fo\",-18448 ""d.add \"fou\",-18447 ""d.add \"fu\",-18446 ""d.add \"ga\",-18239 "
"d.add \"gai\",-18237 ""d.add \"gan\",-18231 ""d.add \"gang\",-18220 ""d.add \"gao\",-18211 "
"d.add \"ge\",-18201 ""d.add \"gei\",-18184 ""d.add \"gen\",-18183 ""d.add \"geng\",-18181 "
"d.add \"gong\",-18012 ""d.add \"gou\",-17997 ""d.add \"gu\",-17988 ""d.add \"gua\",-17970 "
"d.add \"guai\",-17964 ""d.add \"guan\",-17961 ""d.add \"guang\",-17950 ""d.add \"gui\",-17947 "
"d.add \"gun\",-17931 ""d.add \"guo\",-17928 ""d.add \"ha\",-17922 ""d.add \"hai\",-17759 "
"d.add \"han\",-17752 ""d.add \"hang\",-17733 ""d.add \"hao\",-17730 ""d.add \"he\",-17721 "
"d.add \"hei\",-17703 ""d.add \"hen\",-17701 ""d.add \"heng\",-17697 ""d.add \"hong\",-17692 "
"d.add \"hou\",-17683 ""d.add \"hu\",-17676 ""d.add \"hua\",-17496 ""d.add \"huai\",-17487 "
"d.add \"huan\",-17482 ""d.add \"huang\",-17468 ""d.add \"hui\",-17454 ""d.add \"hun\",-17433 "
"d.add \"huo\",-17427 ""d.add \"ji\",-17417 ""d.add \"jia\",-17202 ""d.add \"jian\",-17185 "
"d.add \"jiang\",-16983 ""d.add \"jiao\",-16970 ""d.add \"jie\",-16942 ""d.add \"jin\",-16915 "
"d.add \"jing\",-16733 ""d.add \"jiong\",-16708 ""d.add \"jiu\",-16706 ""d.add \"ju\",-16689 "
"d.add \"juan\",-16664 ""d.add \"jue\",-16657 ""d.add \"jun\",-16647 ""d.add \"ka\",-16474 "
"d.add \"kai\",-16470 ""d.add \"kan\",-16465 ""d.add \"kang\",-16459 ""d.add \"kao\",-16452 "
"d.add \"ke\",-16448 ""d.add \"ken\",-16433 ""d.add \"keng\",-16429 ""d.add \"kong\",-16427 "
"d.add \"kou\",-16423 ""d.add \"ku\",-16419 ""d.add \"kua\",-16412 ""d.add \"kuai\",-16407 "
"d.add \"kuan\",-16403 ""d.add \"kuang\",-16401 ""d.add \"kui\",-16393""d.add \"kun\",-16220 "
"d.add \"kuo\",-16216 ""d.add \"la\",-16212 ""d.add \"lai\",-16205 ""d.add \"lan\",-16202 "
"d.add \"lang\",-16187 ""d.add \"lao\",-16180 ""d.add \"le\",-16171 ""d.add \"lei\",-16169 "
"d.add \"leng\",-16158 ""d.add \"li\",-16155 ""d.add \"lia\",-15959 ""d.add \"lian\",-15958 "
"d.add \"liang\",-15944 ""d.add \"liao\",-15933 ""d.add \"lie\",-15920 ""d.add \"lin\",-15915 "
"d.add \"ling\",-15903 ""d.add \"liu\",-15889 ""d.add \"long\",-15878 ""d.add \"lou\",-15707 "
"d.add \"lu\",-15701 ""d.add \"lv\",-15681 ""d.add \"luan\",-15667 ""d.add \"lue\",-15661 "
"d.add \"lun\",-15659 ""d.add \"luo\",-15652 ""d.add \"ma\",-15640 ""d.add \"mai\",-15631 "
"d.add \"man\",-15625 ""d.add \"mang\",-15454 ""d.add \"mao\",-15448 ""d.add \"me\",-15436 "
"d.add \"mei\",-15435 ""d.add \"men\",-15419 ""d.add \"meng\",-15416 ""d.add \"mi\",-15408 "
"d.add \"mian\",-15394 ""d.add \"miao\",-15385 ""d.add \"mie\",-15377 ""d.add \"min\",-15375 "
"d.add \"ming\",-15369 ""d.add \"miu\",-15363 ""d.add \"mo\",-15362 ""d.add \"mou\",-15183 "
"d.add \"mu\",-15180 ""d.add \"na\",-15165 ""d.add \"nai\",-15158 ""d.add \"nan\",-15153 "
"d.add \"nang\",-15150 ""d.add \"nao\",-15149 ""d.add \"ne\",-15144 ""d.add \"nei\",-15143 "
"d.add \"nen\",-15141 ""d.add \"neng\",-15140 ""d.add \"ni\",-15139 ""d.add \"nian\",-15128 "
"d.add \"niang\",-15121 ""d.add \"niao\",-15119 ""d.add \"nie\",-15117 ""d.add \"nin\",-15110 "
"d.add \"ning\",-15109 ""d.add \"niu\",-14941 ""d.add \"nong\",-14937 ""d.add \"nu\",-14933 "
"d.add \"nv\",-14930 ""d.add \"nuan\",-14929 ""d.add \"nue\",-14928 ""d.add \"nuo\",-14926 "
"d.add \"o\",-14922 ""d.add \"ou\",-14921 ""d.add \"pa\",-14914 ""d.add \"pai\",-14908 "
"d.add \"pan\",-14902 ""d.add \"pang\",-14894 ""d.add \"pao\",-14889 ""d.add \"pei\",-14882 "
"d.add \"pen\",-14873 ""d.add \"peng\",-14871 ""d.add \"pi\",-14857 ""d.add \"pian\",-14678 "
"d.add \"piao\",-14674 ""d.add \"pie\",-14670 ""d.add \"pin\",-14668 ""d.add \"ping\",-14663 "
"d.add \"po\",-14654 ""d.add \"pu\",-14645 ""d.add \"qi\",-14630 ""d.add \"qia\",-14594 "
"d.add \"qian\",-14429 ""d.add \"qiang\",-14407 ""d.add \"qiao\",-14399 ""d.add \"qie\",-14384 "
"d.add \"qin\",-14379 ""d.add \"qing\",-14368 ""d.add \"qiong\",-14355 ""d.add \"qiu\",-14353 "
"d.add \"qu\",-14345 ""d.add \"quan\",-14170 ""d.add \"que\",-14159 ""d.add \"qun\",-14151 "
"d.add \"ran\",-14149 ""d.add \"rang\",-14145 ""d.add \"rao\",-14140 ""d.add \"re\",-14137 "
"d.add \"ren\",-14135 ""d.add \"reng\",-14125 ""d.add \"ri\",-14123 ""d.add \"rong\",-14122 "
"d.add \"rou\",-14112 ""d.add \"ru\",-14109 ""d.add \"ruan\",-14099 ""d.add \"rui\",-14097 "
"d.add \"run\",-14094 ""d.add \"ruo\",-14092 ""d.add \"sa\",-14090 ""d.add \"sai\",-14087 "
"d.add \"san\",-14083 ""d.add \"sang\",-13917 ""d.add \"sao\",-13914 ""d.add \"se\",-13910 "
"d.add \"sen\",-13907 ""d.add \"seng\",-13906 ""d.add \"sha\",-13905 ""d.add \"shai\",-13896 "
"d.add \"shan\",-13894 ""d.add \"shang\",-13878 ""d.add \"shao\",-13870 ""d.add \"she\",-13859 "
"d.add \"shen\",-13847 ""d.add \"sheng\",-13831 ""d.add \"shi\",-13658 ""d.add \"shou\",-13611 "
"d.add \"shu\",-13601 ""d.add \"shua\",-13406 ""d.add \"shuai\",-13404 ""d.add \"shuan\",-13400 "
"d.add \"shuang\",-13398 ""d.add \"shui\",-13395 ""d.add \"shun\",-13391 ""d.add \"shuo\",-13387 "
"d.add \"si\",-13383 ""d.add \"song\",-13367 ""d.add \"sou\",-13359 ""d.add \"su\",-13356 "
"d.add \"suan\",-13343 ""d.add \"sui\",-13340 ""d.add \"sun\",-13329 ""d.add \"suo\",-13326 "
"d.add \"ta\",-13318 ""d.add \"tai\",-13147 ""d.add \"tan\",-13138 ""d.add \"tang\",-13120 "
"d.add \"tao\",-13107 ""d.add \"te\",-13096 ""d.add \"teng\",-13095 ""d.add \"ti\",-13091"
"d.add \"tian\",-13076 ""d.add \"tiao\",-13068 ""d.add \"tie\",-13063 ""d.add \"ting\",-13060 "
"d.add \"tong\",-12888 ""d.add \"tou\",-12875 ""d.add \"tu\",-12871 ""d.add \"tuan\",-12860 "
"d.add \"tui\",-12858 ""d.add \"tun\",-12852 ""d.add \"tuo\",-12849 ""d.add \"wa\",-12838 "
"d.add \"wai\",-12831 ""d.add \"wan\",-12829 ""d.add \"wang\",-12812 ""d.add \"wei\",-12802 "
"d.add \"wen\",-12607 ""d.add \"weng\",-12597 ""d.add \"wo\",-12594 ""d.add \"wu\",-12585 "
"d.add \"xi\",-12556 ""d.add \"xia\",-12359 ""d.add \"xian\",-12346 ""d.add \"xiang\",-12320 "
"d.add \"xiao\",-12300 ""d.add \"xie\",-12120 ""d.add \"xin\",-12099 ""d.add \"xing\",-12089 "
"d.add \"xiong\",-12074 ""d.add \"xiu\",-12067 ""d.add \"xu\",-12058 ""d.add \"xuan\",-12039 "
"d.add \"xue\",-11867 ""d.add \"xun\",-11861 ""d.add \"ya\",-11847 ""d.add \"yan\",-11831 "
"d.add \"yang\",-11798 ""d.add \"yao\",-11781 ""d.add \"ye\",-11604 ""d.add \"yi\",-11589 "
"d.add \"yin\",-11536 ""d.add \"ying\",-11358 ""d.add \"yo\",-11340 ""d.add \"yong\",-11339 "
"d.add \"you\",-11324 ""d.add \"yu\",-11303 ""d.add \"yuan\",-11097 ""d.add \"yue\",-11077 "
"d.add \"yun\",-11067 ""d.add \"za\",-11055 ""d.add \"zai\",-11052 ""d.add \"zan\",-11045 "
"d.add \"zang\",-11041 ""d.add \"zao\",-11038 ""d.add \"ze\",-11024 ""d.add \"zei\",-11020 "
"d.add \"zen\",-11019 ""d.add \"zeng\",-11018 ""d.add \"zha\",-11014 ""d.add \"zhai\",-10838 "
"d.add \"zhan\",-10832 ""d.add \"zhang\",-10815 ""d.add \"zhao\",-10800 ""d.add \"zhe\",-10790 "
"d.add \"zhen\",-10780 ""d.add \"zheng\",-10764 ""d.add \"zhi\",-10587 ""d.add \"zhong\",-10544 "
"d.add \"zhou\",-10533 ""d.add \"zhu\",-10519 ""d.add \"zhua\",-10331 ""d.add \"zhuai\",-10329 "
"d.add \"zhuan\",-10328 ""d.add \"zhuang\",-10322 ""d.add \"zhui\",-10315 ""d.add \"zhun\",-10309 "
"d.add \"zhuo\",-10307 ""d.add \"zi\",-10296 ""d.add \"zong\",-10281 ""d.add \"zou\",-10274 "
"d.add \"zu\",-10270 ""d.add \"zuan\",-10262 ""d.add \"zui\",-10260 ""d.add \"zun\",-10256 "
"d.add \"zuo\",-10254 ""function g(num) ""if num>0 and num<160 then ""g=chr(num) ""else "
"if num<-20319 or num>-10247 then ""g=\"\"""else ""a=d.Items ""b=d.keys ""for i=d.count-1 to 0 step -1 "
"if a(i)<=num then exit for ""next ""g=b(i) ""end if ""end if ""end function ""function c(str) "
"c=\"\"""for i=1 to len(str) ""c=c&g(asc(mid(str,i,1))) ""next ""end function ""while ex<>\"exit\""
"ex=inputbox(c(ex),\"汉字转拼音,输入汉字\",ex)""Set objCAD = GetObject(, \"AutoCAD.Application\")"
"Set fs = CreateObject(\"Scripting.FileSystemObject\")""Set ws = CreateObject(\"WScript.Shell\")"
"ws.RegWrite \"HKEY_LOCAL_MACHINE\\Software\\ZHL_SOFT\\\" _""& \"zhlpath\", path""Err.Clear"
"Set app = GetObject(, \"autocad.Application\")""If app.Documents.Count = 0 Then""app.Documents.Add"
"End If""Set mgrp = app.MenuGroups""Err.Clear""Set ThisDrawing = objCAD.activedocument"
"ThisDrawing.SendCommand (\"(alert (strcase(vl-princ-to-string ' \"& c(ex) &\"\" &\")T))\"&vbCr)"
"if ex=\"\" then""wscript.quit""end if""wend"))(princ))
(defun bb_str_piny (  bb / bb1 bb2 s a) (setq bb1 (vl-filename-mktemp "bb.vbs")bb2(open bb1  "w"))
(foreach x bb(write-line x bb2)) (close bb2)(vlax-invoke (vla-GetInterfaceObject (vlax-get-acad-object)
"WScript.Shell")"run" bb1)(setq s(getvar "DATE") s(* 86400.0 (- s (fix s)))a 0)(while(< a (+ s 0.5))
(setq a(getvar "DATE")a(* 86400.0 (- a (fix a)))))(vl-file-delete  bb1)(princ))


评分

参与人数 2明经币 +2 收起 理由
USER2128 + 1 赞一个!
自贡黄明儒 + 1 很给力!

查看全部评分

 楼主| 发表于 2019-7-16 08:51 | 显示全部楼层
本帖最后由 1291500406 于 2019-7-19 12:07 编辑
taoyi0727 发表于 2019-7-16 02:22
这个好  就是不是纯lisp  除了lisp其它的都看不懂 哎
能不能改个不要窗口的 转拼音的函数


;;;;(alert(bb_str_py "石必强"))      (bb_str_py "石必强你好") -->  "shibiqiangnihao"

(defun bb_str_py( str / btxt bbtxt readtxt)(vl-load-com)(setq btxt (vl-filename-mktemp
(vl-list->string '(98 98 46 116 120 116))))(bb_str_piny(list "On Error Resume Next""Dim fso,TestFile"
"Set d = createObject(\"Scripting.Dictionary\") ""d.add \"a\",-20319 ""d.add \"ai\",-20317 ""d.add \"an\",-20304 "
"d.add \"ang\",-20295 ""d.add \"ao\",-20292 ""d.add \"ba\",-20283 ""d.add \"bai\",-20265 "
"d.add \"ban\",-20257 ""d.add \"bang\",-20242 ""d.add \"bao\",-20230 ""d.add \"bei\",-20051 "
"d.add \"ben\",-20036 ""d.add \"beng\",-20032 ""d.add \"bi\",-20026 ""d.add \"bian\",-20002 "
"d.add \"biao\",-19990 ""d.add \"bie\",-19986 ""d.add \"bin\",-19982 ""d.add \"bing\",-19976 "
"d.add \"bo\",-19805 ""d.add \"bu\",-19784 ""d.add \"ca\",-19775 ""d.add \"cai\",-19774 "
"d.add \"can\",-19763 ""d.add \"cang\",-19756 ""d.add \"cao\",-19751 ""d.add \"ce\",-19746 "
"d.add \"ceng\",-19741 ""d.add \"cha\",-19739 ""d.add \"chai\",-19728 ""d.add \"chan\",-19725 "
"d.add \"chang\",-19715 ""d.add \"chao\",-19540 ""d.add \"che\",-19531 ""d.add \"chen\",-19525 "
"d.add \"cheng\",-19515 ""d.add \"chi\",-19500 ""d.add \"chong\",-19484 ""d.add \"chou\",-19479 "
"d.add \"chu\",-19467 ""d.add \"chuai\",-19289 ""d.add \"chuan\",-19288 ""d.add \"chuang\",-19281 "
"d.add \"chui\",-19275 ""d.add \"chun\",-19270 ""d.add \"chuo\",-19263 ""d.add \"ci\",-19261 "
"d.add \"cong\",-19249 ""d.add \"cou\",-19243 ""d.add \"cu\",-19242 ""d.add \"cuan\",-19238 "
"d.add \"cui\",-19235 ""d.add \"cun\",-19227 ""d.add \"cuo\",-19224 ""d.add \"da\",-19218 "
"d.add \"dai\",-19212 ""d.add \"dan\",-19038 ""d.add \"dang\",-19023 ""d.add \"dao\",-19018 "
"d.add \"de\",-19006 ""d.add \"deng\",-19003 ""d.add \"di\",-18996 ""d.add \"dian\",-18977 "
"d.add \"diao\",-18961 ""d.add \"die\",-18952 ""d.add \"ding\",-18783 ""d.add \"diu\",-18774 "
"d.add \"dong\",-18773 ""d.add \"dou\",-18763 ""d.add \"du\",-18756 ""d.add \"duan\",-18741 "
"d.add \"dui\",-18735 ""d.add \"dun\",-18731 ""d.add \"duo\",-18722 ""d.add \"e\",-18710 "
"d.add \"en\",-18697 ""d.add \"er\",-18696 ""d.add \"fa\",-18526 ""d.add \"fan\",-18518 "
"d.add \"fang\",-18501 ""d.add \"fei\",-18490 ""d.add \"fen\",-18478 ""d.add \"feng\",-18463 "
"d.add \"fo\",-18448 ""d.add \"fou\",-18447 ""d.add \"fu\",-18446 ""d.add \"ga\",-18239 "
"d.add \"gai\",-18237 ""d.add \"gan\",-18231 ""d.add \"gang\",-18220 ""d.add \"gao\",-18211 "
"d.add \"ge\",-18201 ""d.add \"gei\",-18184 ""d.add \"gen\",-18183 ""d.add \"geng\",-18181 "
"d.add \"gong\",-18012 ""d.add \"gou\",-17997 ""d.add \"gu\",-17988 ""d.add \"gua\",-17970 "
"d.add \"guai\",-17964 ""d.add \"guan\",-17961 ""d.add \"guang\",-17950 ""d.add \"gui\",-17947 "
"d.add \"gun\",-17931 ""d.add \"guo\",-17928 ""d.add \"ha\",-17922 ""d.add \"hai\",-17759 "
"d.add \"han\",-17752 ""d.add \"hang\",-17733 ""d.add \"hao\",-17730 ""d.add \"he\",-17721 "
"d.add \"hei\",-17703 ""d.add \"hen\",-17701 ""d.add \"heng\",-17697 ""d.add \"hong\",-17692 "
"d.add \"hou\",-17683 ""d.add \"hu\",-17676 ""d.add \"hua\",-17496 ""d.add \"huai\",-17487 "
"d.add \"huan\",-17482 ""d.add \"huang\",-17468 ""d.add \"hui\",-17454 ""d.add \"hun\",-17433 "
"d.add \"huo\",-17427 ""d.add \"ji\",-17417 ""d.add \"jia\",-17202 ""d.add \"jian\",-17185 "
"d.add \"jiang\",-16983 ""d.add \"jiao\",-16970 ""d.add \"jie\",-16942 ""d.add \"jin\",-16915 "
"d.add \"jing\",-16733 ""d.add \"jiong\",-16708 ""d.add \"jiu\",-16706 ""d.add \"ju\",-16689 "
"d.add \"juan\",-16664 ""d.add \"jue\",-16657 ""d.add \"jun\",-16647 ""d.add \"ka\",-16474 "
"d.add \"kai\",-16470 ""d.add \"kan\",-16465 ""d.add \"kang\",-16459 ""d.add \"kao\",-16452 "
"d.add \"ke\",-16448 ""d.add \"ken\",-16433 ""d.add \"keng\",-16429 ""d.add \"kong\",-16427 "
"d.add \"kou\",-16423 ""d.add \"ku\",-16419 ""d.add \"kua\",-16412 ""d.add \"kuai\",-16407 "
"d.add \"kuan\",-16403 ""d.add \"kuang\",-16401 ""d.add \"kui\",-16393""d.add \"kun\",-16220 "
"d.add \"kuo\",-16216 ""d.add \"la\",-16212 ""d.add \"lai\",-16205 ""d.add \"lan\",-16202 "
"d.add \"lang\",-16187 ""d.add \"lao\",-16180 ""d.add \"le\",-16171 ""d.add \"lei\",-16169 "
"d.add \"leng\",-16158 ""d.add \"li\",-16155 ""d.add \"lia\",-15959 ""d.add \"lian\",-15958 "
"d.add \"liang\",-15944 ""d.add \"liao\",-15933 ""d.add \"lie\",-15920 ""d.add \"lin\",-15915 "
"d.add \"ling\",-15903 ""d.add \"liu\",-15889 ""d.add \"long\",-15878 ""d.add \"lou\",-15707 "
"d.add \"lu\",-15701 ""d.add \"lv\",-15681 ""d.add \"luan\",-15667 ""d.add \"lue\",-15661 "
"d.add \"lun\",-15659 ""d.add \"luo\",-15652 ""d.add \"ma\",-15640 ""d.add \"mai\",-15631 "
"d.add \"man\",-15625 ""d.add \"mang\",-15454 ""d.add \"mao\",-15448 ""d.add \"me\",-15436 "
"d.add \"mei\",-15435 ""d.add \"men\",-15419 ""d.add \"meng\",-15416 ""d.add \"mi\",-15408 "
"d.add \"mian\",-15394 ""d.add \"miao\",-15385 ""d.add \"mie\",-15377 ""d.add \"min\",-15375 "
"d.add \"ming\",-15369 ""d.add \"miu\",-15363 ""d.add \"mo\",-15362 ""d.add \"mou\",-15183 "
"d.add \"mu\",-15180 ""d.add \"na\",-15165 ""d.add \"nai\",-15158 ""d.add \"nan\",-15153 "
"d.add \"nang\",-15150 ""d.add \"nao\",-15149 ""d.add \"ne\",-15144 ""d.add \"nei\",-15143 "
"d.add \"nen\",-15141 ""d.add \"neng\",-15140 ""d.add \"ni\",-15139 ""d.add \"nian\",-15128 "
"d.add \"niang\",-15121 ""d.add \"niao\",-15119 ""d.add \"nie\",-15117 ""d.add \"nin\",-15110 "
"d.add \"ning\",-15109 ""d.add \"niu\",-14941 ""d.add \"nong\",-14937 ""d.add \"nu\",-14933 "
"d.add \"nv\",-14930 ""d.add \"nuan\",-14929 ""d.add \"nue\",-14928 ""d.add \"nuo\",-14926 "
"d.add \"o\",-14922 ""d.add \"ou\",-14921 ""d.add \"pa\",-14914 ""d.add \"pai\",-14908 "
"d.add \"pan\",-14902 ""d.add \"pang\",-14894 ""d.add \"pao\",-14889 ""d.add \"pei\",-14882 "
"d.add \"pen\",-14873 ""d.add \"peng\",-14871 ""d.add \"pi\",-14857 ""d.add \"pian\",-14678 "
"d.add \"piao\",-14674 ""d.add \"pie\",-14670 ""d.add \"pin\",-14668 ""d.add \"ping\",-14663 "
"d.add \"po\",-14654 ""d.add \"pu\",-14645 ""d.add \"qi\",-14630 ""d.add \"qia\",-14594 "
"d.add \"qian\",-14429 ""d.add \"qiang\",-14407 ""d.add \"qiao\",-14399 ""d.add \"qie\",-14384 "
"d.add \"qin\",-14379 ""d.add \"qing\",-14368 ""d.add \"qiong\",-14355 ""d.add \"qiu\",-14353 "
"d.add \"qu\",-14345 ""d.add \"quan\",-14170 ""d.add \"que\",-14159 ""d.add \"qun\",-14151 "
"d.add \"ran\",-14149 ""d.add \"rang\",-14145 ""d.add \"rao\",-14140 ""d.add \"re\",-14137 "
"d.add \"ren\",-14135 ""d.add \"reng\",-14125 ""d.add \"ri\",-14123 ""d.add \"rong\",-14122 "
"d.add \"rou\",-14112 ""d.add \"ru\",-14109 ""d.add \"ruan\",-14099 ""d.add \"rui\",-14097 "
"d.add \"run\",-14094 ""d.add \"ruo\",-14092 ""d.add \"sa\",-14090 ""d.add \"sai\",-14087 "
"d.add \"san\",-14083 ""d.add \"sang\",-13917 ""d.add \"sao\",-13914 ""d.add \"se\",-13910 "
"d.add \"sen\",-13907 ""d.add \"seng\",-13906 ""d.add \"sha\",-13905 ""d.add \"shai\",-13896 "
"d.add \"shan\",-13894 ""d.add \"shang\",-13878 ""d.add \"shao\",-13870 ""d.add \"she\",-13859 "
"d.add \"shen\",-13847 ""d.add \"sheng\",-13831 ""d.add \"shi\",-13658 ""d.add \"shou\",-13611 "
"d.add \"shu\",-13601 ""d.add \"shua\",-13406 ""d.add \"shuai\",-13404 ""d.add \"shuan\",-13400 "
"d.add \"shuang\",-13398 ""d.add \"shui\",-13395 ""d.add \"shun\",-13391 ""d.add \"shuo\",-13387 "
"d.add \"si\",-13383 ""d.add \"song\",-13367 ""d.add \"sou\",-13359 ""d.add \"su\",-13356 "
"d.add \"suan\",-13343 ""d.add \"sui\",-13340 ""d.add \"sun\",-13329 ""d.add \"suo\",-13326 "
"d.add \"ta\",-13318 ""d.add \"tai\",-13147 ""d.add \"tan\",-13138 ""d.add \"tang\",-13120 "
"d.add \"tao\",-13107 ""d.add \"te\",-13096 ""d.add \"teng\",-13095 ""d.add \"ti\",-13091"
"d.add \"tian\",-13076 ""d.add \"tiao\",-13068 ""d.add \"tie\",-13063 ""d.add \"ting\",-13060 "
"d.add \"tong\",-12888 ""d.add \"tou\",-12875 ""d.add \"tu\",-12871 ""d.add \"tuan\",-12860 "
"d.add \"tui\",-12858 ""d.add \"tun\",-12852 ""d.add \"tuo\",-12849 ""d.add \"wa\",-12838 "
"d.add \"wai\",-12831 ""d.add \"wan\",-12829 ""d.add \"wang\",-12812 ""d.add \"wei\",-12802 "
"d.add \"wen\",-12607 ""d.add \"weng\",-12597 ""d.add \"wo\",-12594 ""d.add \"wu\",-12585 "
"d.add \"xi\",-12556 ""d.add \"xia\",-12359 ""d.add \"xian\",-12346 ""d.add \"xiang\",-12320 "
"d.add \"xiao\",-12300 ""d.add \"xie\",-12120 ""d.add \"xin\",-12099 ""d.add \"xing\",-12089 "
"d.add \"xiong\",-12074 ""d.add \"xiu\",-12067 ""d.add \"xu\",-12058 ""d.add \"xuan\",-12039 "
"d.add \"xue\",-11867 ""d.add \"xun\",-11861 ""d.add \"ya\",-11847 ""d.add \"yan\",-11831 "
"d.add \"yang\",-11798 ""d.add \"yao\",-11781 ""d.add \"ye\",-11604 ""d.add \"yi\",-11589 "
"d.add \"yin\",-11536 ""d.add \"ying\",-11358 ""d.add \"yo\",-11340 ""d.add \"yong\",-11339 "
"d.add \"you\",-11324 ""d.add \"yu\",-11303 ""d.add \"yuan\",-11097 ""d.add \"yue\",-11077 "
"d.add \"yun\",-11067 ""d.add \"za\",-11055 ""d.add \"zai\",-11052 ""d.add \"zan\",-11045 "
"d.add \"zang\",-11041 ""d.add \"zao\",-11038 ""d.add \"ze\",-11024 ""d.add \"zei\",-11020 "
"d.add \"zen\",-11019 ""d.add \"zeng\",-11018 ""d.add \"zha\",-11014 ""d.add \"zhai\",-10838 "
"d.add \"zhan\",-10832 ""d.add \"zhang\",-10815 ""d.add \"zhao\",-10800 ""d.add \"zhe\",-10790 "
"d.add \"zhen\",-10780 ""d.add \"zheng\",-10764 ""d.add \"zhi\",-10587 ""d.add \"zhong\",-10544 "
"d.add \"zhou\",-10533 ""d.add \"zhu\",-10519 ""d.add \"zhua\",-10331 ""d.add \"zhuai\",-10329 "
"d.add \"zhuan\",-10328 ""d.add \"zhuang\",-10322 ""d.add \"zhui\",-10315 ""d.add \"zhun\",-10309 "
"d.add \"zhuo\",-10307 ""d.add \"zi\",-10296 ""d.add \"zong\",-10281 ""d.add \"zou\",-10274 "
"d.add \"zu\",-10270 ""d.add \"zuan\",-10262 ""d.add \"zui\",-10260 ""d.add \"zun\",-10256 "
"d.add \"zuo\",-10254 ""function g(num) ""if num>0 and num<160 then ""g=chr(num) ""else "
"if num<-20319 or num>-10247 then ""g=\"\"""else ""a=d.Items ""b=d.keys ""for i=d.count-1 to 0 step -1 "
"if a(i)<=num then exit for ""next ""g=b(i) ""end if ""end if ""end function ""function c(str) "
"c=\"\"""for i=1 to len(str) ""c=c&g(asc(mid(str,i,1))) ""next ""end function "(strcat "ex=" "\"" str "\"")
"Set fso=CreateObject(\"Scripting.FileSystemObject\")"(strcat "Set TestFile=fso.CreateTextFile(\"" btxt "\" ,Ture)" )
"TestFile.WriteLine(c(ex))""TestFile.Close"))(setq bbtxt(open btxt "R")readtxt(read-line bbtxt))(close bbtxt)
(vl-file-delete btxt) readtxt)(defun bb_str_piny (  bb / bb1 bb2 s a) (setq bb1 (vl-filename-mktemp
(vl-list->string '(98 46 118 98 115)))bb2(open bb1  "w"))(foreach x bb(write-line x bb2)) (close bb2)
(vlax-invoke (vla-GetInterfaceObject (vlax-get-acad-object)"WScript.Shell")"run" bb1)(setq s(getvar "DATE") s(* 86400.0
(- s (fix s)))a 0)(while(< a (+ s 0.3))(setq a(getvar "DATE")a(* 86400.0 (- a (fix a)))))(vl-file-delete  bb1)(princ))

评分

参与人数 1明经币 +1 收起 理由
taoyi0727 + 1 谢谢~!~~就是看不懂,太遗憾了

查看全部评分

回复 支持 1 反对 0

使用道具 举报

发表于 2019-7-16 02:22 | 显示全部楼层
这个好  就是不是纯lisp  除了lisp其它的都看不懂 哎
能不能改个不要窗口的 转拼音的函数  
发表于 2019-7-16 09:32 | 显示全部楼层
进程是不是没有结束?多来两下电脑动不了啦

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2019-7-16 11:19 | 显示全部楼层
本帖最后由 1291500406 于 2019-7-16 11:33 编辑
taoyi0727 发表于 2019-7-16 09:32
进程是不是没有结束?多来两下电脑动不了啦

修复了bug,我忘记关进程了
发表于 2019-7-16 15:01 | 显示全部楼层
lisp调用vbs,这个弯转的牛
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-8-25 23:33 , Processed in 0.218389 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表