用最笨的办法获取单个汉字的拼音首字母

菜卷鱼

以前汉字转拼音
http://bbs.mjtd.com/forum.php?mo ... &fromuid=399892
(出处: 明经CAD社区)
2021之后，汉字的长度从2变成了1，用不了了，不知道怎么弄，就用最笨的办法吧
只收集了一些常用汉字

1. (defun pinysz (hz / zidian str)
   
2.   (setq  zidian
   
3.    (list
   
4.      "a啊阿呵"
   
5.      "ai埃挨哎唉哀皑蔼矮碍爱隘癌艾"
   
6.      "an鞍氨安俺按暗岸胺案"
   
7.      "ang肮昂盎"
   
8.      "ao凹敖熬翱袄傲奥懊澳"
   
9.      "ba芭捌叭吧笆八疤巴拔跋靶把坝霸罢爸扒耙"
   
10.      "bai白摆佰败拜柏百稗伯"
    
11.      "ban斑班搬扳颁板版扮拌伴瓣半办绊般"
    
12.      "bang邦帮梆榜绑棒镑傍谤膀磅蚌"
    
13.      "bao苞胞包褒雹保饱宝抱报豹鲍爆剥薄暴刨炮曝瀑堡"
    
14.      "bei杯碑悲卑北辈背贝钡倍狈备惫焙被"
    
15.      "ben奔苯本笨"
    
16.      "beng崩绷甭泵蹦迸蚌"
    
17.      "bi逼鼻比鄙笔彼碧蓖蔽毕毙毖币庇痹闭敝弊必壁避陛辟臂秘"
    
18.      "bian鞭边编贬变卞辨辩辫扁便遍"
    
19.      "biao标彪膘表"
    
20.      "bie鳖憋别瘪"
    
21.      "bin彬斌濒滨宾摈"
    
22.      "bing兵冰柄丙秉饼炳病并屏"
    
23.      "bo玻菠播拨钵博勃搏铂箔帛舶脖膊渤驳柏剥薄波泊卜般伯"
    
24.      "bu捕哺补埠布步簿部怖卜不埔堡"
    
25.      "ca擦"
    
26.      "cai猜裁材才财睬踩采彩菜蔡"
    
27.      "can餐残惭惨灿蚕参掺"
    
28.      "cang苍舱仓沧藏"
    
29.      "cao操糙槽曹草"
    
30.      "ce策册测厕侧"
    
31.      "cen参"
    
32.      "ceng层蹭曾"
    
33.      "cha插叉茶碴搽察岔诧茬查刹喳差"
    
34.      "chai柴豺拆差"
    
35.      "chan搀蝉馋谗缠铲产阐颤掺单"
    
36.      "chang昌猖场尝常偿肠厂畅唱倡长敞裳"
    
37.      "chao超抄钞潮巢吵炒朝嘲绰剿"
    
38.      "che扯撤掣彻澈车"
    
39.      "chen郴臣辰尘晨忱沉陈趁衬橙沈称秤"
    
40.      "cheng撑城成呈程惩诚承逞骋橙乘澄盛称秤"
    
41.      "chi痴持池迟弛驰耻齿侈赤翅斥炽吃匙尺"
    
42.      "chong充冲崇宠虫重"
    
43.      "chou抽酬畴踌稠愁筹仇绸瞅丑臭"
    
44.      "chu初出橱厨躇锄雏滁除楚础储矗搐触处畜"
    
45.      "chuai揣"
    
46.      "chuan川穿椽船喘串传"
    
47.      "chuang疮窗床闯创"
    
48.      "chui吹炊捶锤垂椎"
    
49.      "chun春椿醇唇淳纯蠢"
    
50.      "chuo戳绰"
    
51.      "ci疵茨磁雌辞慈瓷词此刺赐次伺兹差"
    
52.      "cong聪葱囱匆从丛"
    
53.      "cou凑"
    
54.      "cu粗醋簇促卒"
    
55.      "cuan蹿篡窜攒"
    
56.      "cui摧崔催脆瘁粹淬翠"
    
57.      "cun村存寸"
    
58.      "cuo磋搓措挫错撮"
    
59.      "da搭达答瘩打大"
    
60.      "dai歹傣戴带殆代贷袋待逮怠大呆"
    
61.      "dan耽担丹郸胆旦氮但惮淡诞蛋掸弹石单"
    
62.      "dang当挡党荡档"
    
63.      "dao刀捣蹈倒岛祷导到稻悼道盗"
    
64.      "de德得的地"
    
65.      "dei"
    
66.      "deng蹬灯登等瞪凳邓澄"
    
67.      "di低滴迪敌笛狄涤嫡抵蒂第帝弟递缔的堤翟底地提"
    
68.      "dian颠掂滇碘点典靛垫电甸店惦奠淀殿佃"
    
69.      "diao碉叼雕凋刁掉吊钓调"
    
70.      "die跌爹碟蝶迭谍叠"
    
71.      "ding盯叮钉顶鼎锭定订丁"
    
72.      "diu丢"
    
73.      "dong东冬董懂动栋冻洞侗恫"
    
74.      "dou兜抖斗陡豆逗痘都"
    
75.      "du督毒犊独堵睹赌杜镀肚渡妒都读度"
    
76.      "duan端短锻段断缎"
    
77.      "dui兑队对堆"
    
78.      "dun墩吨钝遁蹲敦顿囤盾"
    
79.      "duo掇哆多夺垛躲朵跺剁惰度舵堕"
    
80.      "e峨鹅俄额讹娥厄扼遏鄂饿阿蛾恶哦"
    
81.      "en恩"
    
82.      "er而耳尔饵洱二贰儿"
    
83.      "fa发罚筏伐乏阀法珐"
    
84.      "fan藩帆翻樊矾钒凡烦反返范贩犯饭泛番繁"
    
85.      "fang坊芳方肪房防妨仿访纺放"
    
86.      "fei菲非啡飞肥匪诽吠肺废沸费"
    
87.      "fen芬酚吩氛分纷坟焚汾粉奋份忿愤粪"
    
88.      "feng丰封枫蜂峰锋风疯烽逢缝讽奉凤冯"
    
89.      "fo佛"
    
90.      "fou否"
    
91.      "fu夫敷肤孵扶辐幅氟符伏俘服浮涪福袱弗甫抚辅俯釜斧腑府腐赴副覆赋复傅付阜父腹负富讣附妇缚咐佛拂脯"
    
92.      "ga噶嘎夹咖"
    
93.      "gai该改概钙溉盖芥"
    
94.      "gan干甘杆柑竿肝赶感秆敢赣乾"
    
95.      "gang冈刚钢缸肛纲岗港杠扛"
    
96.      "gao篙皋高膏羔糕搞稿镐告"
    
97.      "ge哥歌搁戈鸽疙割葛格阁隔铬个各胳革蛤咯"
    
98.      "gei给"
    
99.      "gen根跟"
    
100.      "geng耕更庚羹埂耿梗粳颈"
     
101.      "gong工攻功恭龚供躬公宫弓巩拱贡共汞"
     
102.      "gou钩勾沟苟狗垢构购够"
     
103.      "gu辜菇咕箍估沽孤姑古蛊骨股故顾固雇鼓谷贾"
     
104.      "gua刮瓜剐寡挂褂"
     
105.      "guai乖拐怪"
     
106.      "guan棺关官冠观管馆罐惯灌贯纶"
     
107.      "guang光逛广"
     
108.      "gui瑰规圭归闺轨鬼诡癸桂柜跪贵刽硅傀炔龟"
     
109.      "gun辊滚棍"
     
110.      "guo锅郭国果裹过涡"
     
111.      "ha蛤哈"
     
112.      "hai骸孩海氦亥害骇还咳"
     
113.      "han酣憨邯韩含涵寒函喊罕翰撼捍旱憾悍焊汗汉"
     
114.      "hang杭航夯吭巷行"
     
115.      "hao壕嚎豪毫郝好耗号浩镐貉"
     
116.      "he喝荷菏禾何盒阂河赫褐鹤贺核合涸吓呵貉和"
     
117.      "hei黑嘿"
     
118.      "hen痕很狠恨"
     
119.      "heng亨横衡恒哼行"
     
120.      "hong轰哄烘虹鸿洪宏弘红"
     
121.      "hou喉侯猴吼厚候后"
     
122.      "hu呼乎忽瑚壶葫胡蝴狐糊湖弧虎护互沪户唬和"
     
123.      "hua花华猾画化话哗滑划"
     
124.      "huai槐怀淮徊坏"
     
125.      "huan欢环桓缓换患唤痪豢焕涣宦幻还"
     
126.      "huang荒慌黄磺蝗簧皇凰惶煌晃幌恍谎"
     
127.      "hui灰挥辉徽恢蛔回毁悔慧卉惠晦贿秽烩汇讳诲绘会"
     
128.      "hun昏婚魂浑混荤"
     
129.      "huo活伙火获或惑霍货祸豁和"
     
130.      "ji击圾基机畸积箕肌饥迹激讥鸡姬绩吉极棘辑籍集及急疾汲即嫉级挤几脊己蓟技冀季伎剂悸济寄寂计记既忌际妓继纪给稽缉祭藉期奇齐系"
     
131.      "jia嘉枷佳加荚颊甲钾假稼架驾嫁夹贾价搅茄缴家"
     
132.      "jian歼监坚尖笺间煎兼肩艰奸缄茧检柬碱拣捡简俭剪减荐鉴践贱键箭件健舰剑饯渐溅涧建槛见浅"
     
133.      "jiang僵姜浆江疆蒋桨奖讲匠酱将降强"
     
134.      "jiao椒礁焦胶交郊浇骄娇脚教轿较叫窖蕉嚼搅铰狡饺绞酵觉校矫侥角缴剿"
     
135.      "jie揭接皆秸街阶截劫节杰捷睫竭洁结姐戒界借介疥诫届桔解藉芥"
     
136.      "jin巾筋斤金今津襟紧锦仅谨进靳晋禁近烬浸尽劲"
     
137.      "jing荆兢茎睛晶鲸京惊精经井警静境敬镜径痉靖竟竞净劲粳景颈"
     
138.      "jiong炯窘"
     
139.      "jiu揪究纠玖韭久灸九酒厩救旧臼舅咎就疚"
     
140.      "ju鞠拘狙疽驹菊局矩举沮聚拒据巨具距踞锯俱惧炬剧车桔居咀句蛆足"
     
141.      "juan捐鹃娟倦眷绢卷圈"
     
142.      "jue撅攫抉掘倔爵决诀绝嚼觉角"
     
143.      "jun菌钧军君峻俊竣郡骏均浚"
     
144.      "ka喀咖卡咯"
     
145.      "kai开揩凯慨楷"
     
146.      "kan刊堪勘坎砍看槛嵌"
     
147.      "kang康慷糠抗亢炕扛"
     
148.      "kao考拷烤靠"
     
149.      "ke坷苛柯棵磕颗科可渴克刻客课壳呵咳"
     
150.      "ken肯啃垦恳"
     
151.      "keng坑吭"
     
152.      "kong空恐孔控"
     
153.      "kou抠口扣寇"
     
154.      "ku枯哭窟苦酷库裤"
     
155.      "kua夸垮挎跨胯"
     
156.      "kuai块筷侩快会"
     
157.      "kuan宽款"
     
158.      "kuang匡筐狂框矿眶旷况"
     
159.      "kui亏盔岿窥葵奎魁馈愧傀溃"
     
160.      "kun坤昆捆困"
     
161.      "kuo扩廓阔括"
     
162.      "la垃拉喇辣啦蜡腊落"
     
163.      "lai莱来赖"
     
164.      "lan婪栏拦篮阑兰澜谰揽览懒缆烂滥蓝"
     
165.      "lang琅榔狼廊郎朗浪"
     
166.      "lao捞劳牢老佬涝姥酪烙潦落"
     
167.      "le勒乐肋了"
     
168.      "lei雷镭蕾磊累儡垒擂类泪勒肋"
     
169.      "leng楞冷棱"
     
170.      "li厘梨犁黎篱狸离漓理李里鲤礼莉荔吏栗丽厉励砾历利例俐痢立粒沥隶力璃哩"
     
171.      "lia"
     
172.      "lian联莲连镰廉涟帘敛脸链恋炼练怜"
     
173.      "liang粮凉梁粱良两辆量晾亮谅俩"
     
174.      "liao撩聊僚疗燎寥辽撂镣廖料潦了"
     
175.      "lie列裂烈劣猎"
     
176.      "lin琳林磷霖临邻鳞淋凛赁吝拎"
     
177.      "ling玲菱零龄铃伶羚凌灵陵岭领另令棱怜"
     
178.      "liu溜琉榴硫馏留刘瘤流柳六陆"
     
179.      "long龙聋咙笼窿隆垄拢陇弄"
     
180.      "lou楼娄搂篓漏陋露"
     
181.      "lu芦卢颅庐炉掳卤虏鲁麓路赂鹿潞禄录戮吕六碌露陆绿"
     
182.      "lv驴铝侣旅履屡缕虑氯律滤绿率"
     
183.      "lve掠略"
     
184.      "luan峦挛孪滦卵乱"
     
185.      "lun抡轮伦仑沦论纶"
     
186.      "luo萝螺罗逻锣箩骡裸洛骆烙络落咯"
     
187.      "ma妈麻玛码蚂马骂嘛吗摩抹么"
     
188.      "mai买麦卖迈埋脉"
     
189.      "man瞒馒蛮满曼慢漫谩埋蔓"
     
190.      "mang茫盲氓忙莽芒"
     
191.      "mao猫茅锚毛矛铆卯茂帽貌贸冒"
     
192.      "me么"
     
193.      "mei玫枚梅酶霉煤眉媒镁每美昧寐妹媚没糜"
     
194.      "men门闷们"
     
195.      "meng萌蒙檬锰猛梦孟盟"
     
196.      "mi眯醚靡迷弥米觅蜜密幂糜谜泌秘"
     
197.      "mian棉眠绵冕免勉缅面娩"
     
198.      "miao苗描瞄藐秒渺庙妙"
     
199.      "mie蔑灭"
     
200.      "min民抿皿敏悯闽"
     
201.      "ming明螟鸣铭名命"
     
202.      "miu谬"
     
203.      "mo摸摹蘑膜磨魔末莫墨默沫漠寞陌脉没模摩抹"
     
204.      "mou谋某牟"
     
205.      "mu拇牡亩姆母墓暮幕募慕木目睦牧穆姥模牟"
     
206.      "na拿钠纳呐那娜哪"
     
207.      "nai氖乃奶耐奈哪"
     
208.      "nan南男难"
     
209.      "nang囊"
     
210.      "nao挠脑恼闹淖"
     
211.      "ne呢哪"
     
212.      "nei馁内那哪"
     
213.      "nen嫩"
     
214.      "neng能"
     
215.      "ni妮霓倪泥尼拟你匿腻逆溺呢"
     
216.      "nian蔫拈年碾撵捻念粘"
     
217.      "niang娘酿"
     
218.      "niao鸟尿"
     
219.      "nie捏聂孽啮镊镍涅"
     
220.      "nin您"
     
221.      "ning柠狞凝宁拧泞"
     
222.      "niu牛扭钮纽"
     
223.      "nong脓浓农弄"
     
224.      "nu奴怒努"
     
225.      "nv女"
     
226.      "nve虐疟"
     
227.      "nuan暖"
     
228.      "nuo挪懦糯诺娜"
     
229.      "o哦"
     
230.      "ou欧鸥殴藕呕偶沤区"
     
231.      "pa啪趴爬帕怕扒耙琶"
     
232.      "pai拍排牌徘湃派迫"
     
233.      "pan攀潘盘磐盼畔判叛番胖般"
     
234.      "pang乓庞耪膀磅旁胖"
     
235.      "pao抛咆袍跑泡刨炮"
     
236.      "pei呸胚培裴赔陪配佩沛坏"
     
237.      "pen喷盆"
     
238.      "peng砰抨烹澎彭蓬棚硼篷膨朋鹏捧碰"
     
239.      "pi坯砒霹批披劈琵毗啤脾疲皮痞僻屁譬辟否匹坏"
     
240.      "pian篇偏片骗扁便"
     
241.      "piao飘漂瓢票朴"
     
242.      "pie撇瞥"
     
243.      "pin拼频贫品聘"
     
244.      "ping乒坪萍平凭瓶评苹屏"
     
245.      "po坡泼颇婆破粕泊迫魄朴"
     
246.      "pou剖"
     
247.      "pu扑铺仆莆葡菩蒲圃普浦谱脯埔曝瀑堡朴"
     
248.      "qi欺戚妻七凄柒沏棋歧崎脐旗祈祁骑起岂乞企启器气迄弃汽讫稽缉期栖其奇畦齐砌泣漆契"
     
249.      "qia掐卡洽"
     
250.      "qian牵扦钎千迁签仟谦黔钱钳前潜遣谴堑欠歉铅乾浅嵌纤"
     
251.      "qiang枪呛腔羌墙蔷抢强"
     
252.      "qiao锹敲悄桥乔侨巧撬翘峭俏窍壳橇瞧鞘雀"
     
253.      "qie切窃砌茄且怯"
     
254.      "qin钦侵秦琴勤芹擒禽寝亲沁"
     
255.      "qing青轻氢倾卿清擎晴氰情顷请庆亲"
     
256.      "qiong琼穷"
     
257.      "qiu秋丘邱球求囚酋泅"
     
258.      "qu趋曲躯屈驱渠取娶龋去区蛆趣"
     
259.      "quan颧权醛泉全痊拳犬券劝卷圈"
     
260.      "que缺瘸却鹊榷确炔雀"
     
261.      "qun裙群"
     
262.      "ran然燃冉染"
     
263.      "rang瓤壤攘嚷让"
     
264.      "rao饶扰绕"
     
265.      "re惹热"
     
266.      "ren壬仁人忍韧任认刃妊纫"
     
267.      "reng扔仍"
     
268.      "ri日"
     
269.      "rong戎茸蓉荣融熔溶容绒冗"
     
270.      "rou揉柔肉"
     
271.      "ru茹儒孺如辱乳汝入褥蠕"
     
272.      "ruan软阮"
     
273.      "rui蕊瑞锐"
     
274.      "run闰润"
     
275.      "ruo弱若"
     
276.      "sa撒洒萨"
     
277.      "sai腮鳃赛塞"
     
278.      "san三叁伞散"
     
279.      "sang桑嗓丧"
     
280.      "sao搔骚扫嫂梢"
     
281.      "se瑟涩塞色"
     
282.      "sen森"
     
283.      "seng僧"
     
284.      "sha砂杀沙纱傻啥煞莎刹杉厦"
     
285.      "shai筛晒色"
     
286.      "shan珊苫山删煽衫闪陕擅赡膳善汕扇缮杉栅掺单"
     
287.      "shang墒伤商赏晌上尚裳汤"
     
288.      "shao捎稍烧芍勺韶少哨邵绍鞘梢召"
     
289.      "she奢赊舌舍赦摄慑涉社设蛇拾折射"
     
290.      "shei"
     
291.      "shen砷申呻伸身深绅神审婶肾慎渗沈甚参娠什"
     
292.      "sheng声生甥牲升绳剩胜圣乘省盛"
     
293.      "shi师失狮施湿诗尸虱十时蚀实史矢使屎驶始式示士世柿事拭誓逝势是嗜噬适仕侍释饰市恃室视试匙石拾食识氏似嘘殖峙什"
     
294.      "shou收手首守寿授售受瘦兽熟"
     
295.      "shu蔬枢梳殊抒输叔舒淑疏书赎孰薯暑曙署蜀黍鼠述树束戍竖墅庶漱恕熟属术数"
     
296.      "shua刷耍"
     
297.      "shuai摔甩帅衰率"
     
298.      "shuan栓拴"
     
299.      "shuang霜双爽"
     
300.      "shui水睡税谁说"
     
301.      "shun吮瞬顺舜"
     
302.      "shuo硕朔烁数说"
     
303.      "si斯撕嘶私司丝死肆寺嗣四饲巳食思伺似"
     
304.      "song松耸怂颂送宋讼诵"
     
305.      "sou搜擞嗽艘"
     
306.      "su苏酥俗素速粟僳塑溯诉肃宿缩"
     
307.      "suan酸蒜算"
     
308.      "sui虽隋随绥髓碎岁穗遂隧祟尿"
     
309.      "sun孙损笋"
     
310.      "suo蓑梭唆琐索锁所莎缩"
     
311.      "ta塌他它她獭挞蹋踏塔拓"
     
312.      "tai胎苔抬台泰酞太态汰"
     
313.      "tan坍摊贪瘫滩坛檀痰潭谭谈坦毯袒碳探叹炭弹"
     
314.      "tang塘搪堂棠膛唐糖躺淌趟烫敞汤倘"
     
315.      "tao掏涛滔绦萄桃逃淘讨套陶"
     
316.      "te特"
     
317.      "teng藤腾疼誊"
     
318.      "ti梯剔踢锑题蹄啼体替嚏惕涕剃屉提"
     
319.      "tian天添填田甜恬舔腆蚕"
     
320.      "tiao挑条迢眺跳调"
     
321.      "tie贴铁帖"
     
322.      "ting厅烃汀廷停亭庭挺艇听"
     
323.      "tong通桐酮瞳同铜彤童桶捅筒统痛侗恫"
     
324.      "tou偷投头透"
     
325.      "tu秃突图徒途涂屠土吐兔凸余"
     
326.      "tuan湍团"
     
327.      "tui推颓腿蜕退褪"
     
328.      "tun吞屯臀囤"
     
329.      "tuo拖托脱鸵陀驼椭妥唾驮拓"
     
330.      "wa挖哇蛙洼娃瓦袜"
     
331.      "wai歪外"
     
332.      "wan豌弯湾玩顽丸烷完碗挽晚惋婉腕蔓皖宛万"
     
333.      "wang汪王枉网往旺望忘妄亡"
     
334.      "wei威巍微危韦违桅围唯惟为潍维苇萎委伟伪纬未味畏胃喂魏位渭谓慰卫尾蔚尉"
     
335.      "wen瘟温蚊文闻纹吻稳紊问"
     
336.      "weng嗡翁瓮"
     
337.      "wo挝蜗窝我斡卧握沃涡"
     
338.      "wu巫呜钨乌污诬屋芜梧吾吴毋武五捂午舞伍侮坞戊雾晤物勿务悟误恶无"
     
339.      "xi昔熙析西硒矽晰嘻吸锡牺稀息希悉膝夕惜熄烯汐犀檄袭席习媳喜隙细栖溪铣洗系戏"
     
340.      "xia瞎匣霞辖暇峡侠狭下虾厦夏吓"
     
341.      "xian掀锨先仙鲜咸贤衔舷闲涎弦嫌显险现献县腺馅羡宪陷限线铣纤"
     
342.      "xiang相厢镶香箱襄湘乡翔祥详想响享项橡像向象降巷"
     
343.      "xiao萧硝霄哮销消宵晓小孝肖啸笑效削嚣淆校"
     
344.      "xie楔些歇鞋协携胁谐写械卸蟹懈泄泻谢屑解蝎挟邪斜血叶契"
     
345.      "xin薪芯锌欣辛新忻心衅信"
     
346.      "xing星腥猩惺兴刑型形邢醒幸杏性姓省行"
     
347.      "xiong兄凶胸匈汹雄熊"
     
348.      "xiu休修羞朽嗅锈秀袖绣臭宿"
     
349.      "xu墟需虚须徐许蓄酗叙旭序恤絮婿绪续戌嘘畜吁"
     
350.      "xuan轩喧宣悬旋玄选癣眩绚"
     
351.      "xue靴薛学穴雪削血"
     
352.      "xun勋熏循旬询驯巡殉汛训讯逊迅浚寻"
     
353.      "ya压押鸦鸭呀丫牙蚜衙涯雅哑亚讶芽崖轧"
     
354.      "yan焉阉淹盐严研蜒岩延言颜阎炎沿奄掩眼衍演艳堰燕厌砚雁唁彦焰宴谚验铅咽烟殷"
     
355.      "yang殃央鸯秧杨扬佯疡羊洋阳氧仰痒养样漾"
     
356.      "yao邀腰妖瑶摇尧遥窑谣姚咬舀药要耀约钥侥"
     
357.      "ye椰噎耶爷野冶也页业夜咽掖叶腋液拽曳"
     
358.      "yi一壹医揖铱依伊衣颐夷移仪胰疑沂宜姨彝椅蚁倚已乙矣以艺抑易邑亿役臆逸肄疫亦裔意毅忆义益溢诣议谊译异翼翌绎遗屹"
     
359.      "yin茵荫因音阴姻吟银淫寅饮尹引隐印殷"
     
360.      "ying英樱婴鹰应缨莹萤营荧蝇迎赢盈影颖硬映"
     
361.      "yo哟"
     
362.      "yong拥佣臃痈庸雍踊蛹咏泳永恿勇用涌"
     
363.      "you幽优悠忧尤由邮铀犹油游酉有友右佑釉诱又幼"
     
364.      "yu迂淤于盂榆虞愚舆逾鱼愉渝渔隅予娱雨与屿禹宇语羽玉域芋郁遇喻峪御愈欲狱誉浴寓裕预豫驭尉余俞吁育"
     
365.      "yuan鸳渊冤元垣袁原援辕园圆猿源缘远苑愿怨院员"
     
366.      "yue曰越跃岳粤月悦阅乐约钥"
     
367.      "yun耘云郧匀陨允运蕴酝晕韵孕均员"
     
368.      "za匝砸杂扎咱咋"
     
369.      "zai栽哉灾宰载再在仔"
     
370.      "zan暂赞攒咱"
     
371.      "zang赃脏葬藏"
     
372.      "zao遭糟藻枣早澡蚤躁噪造皂灶燥凿"
     
373.      "ze责则泽择侧咋"
     
374.      "zei贼"
     
375.      "zen怎"
     
376.      "zeng增憎赠曾综"
     
377.      "zha渣札铡闸眨榨乍炸诈查扎喳栅柞轧咋"
     
378.      "zhai斋债寨翟祭择摘宅窄侧"
     
379.      "zhan瞻毡詹沾盏斩辗崭展蘸栈占战站湛绽颤粘"
     
380.      "zhang樟章彰漳张掌涨杖丈帐账仗胀瘴障长"
     
381.      "zhao招昭找沼赵照罩兆肇朝召爪着"
     
382.      "zhe遮哲蛰辙者蔗浙折锗这着"
     
383.      "zhei"
     
384.      "zhen珍斟真甄砧臻贞针侦枕疹诊震振镇阵帧"
     
385.      "zheng蒸挣睁征狰争怔整拯正政症郑证"
     
386.      "zhi芝支蜘知肢脂汁之织职直植执值侄址指止趾只旨纸志挚掷至致置帜制智秩稚质炙痔滞治窒识枝吱殖峙"
     
387.      "zhong中盅忠钟衷终肿仲众种重"
     
388.      "zhou舟周州洲诌轴肘帚咒皱宙昼骤粥"
     
389.      "zhu珠株蛛朱猪诸诛逐竹烛煮拄瞩嘱主柱助蛀贮铸筑住注祝驻属著"
     
390.      "zhua抓爪"
     
391.      "zhuai拽"
     
392.      "zhuan专砖撰篆传转赚"
     
393.      "zhuang桩庄装妆壮状幢撞"
     
394.      "zhui锥追赘坠缀椎"
     
395.      "zhun谆准"
     
396.      "zhuo捉拙卓桌茁酌啄灼浊琢缴着"
     
397.      "zi咨资姿滋淄孜紫籽滓子自渍字吱兹仔"
     
398.      "zong鬃棕踪宗总纵综"
     
399.      "zou邹走奏揍"
     
400.      "zu租族祖诅阻组足卒"
     
401.      "zuan钻纂"
     
402.      "zui嘴醉最罪"
     
403.      "zun尊遵"
     
404.      "zuo昨左佐做作坐座撮琢柞"
     
405.     )
     
406.   )
     
407.   (vl-some '(lambda (x)
     
408.         (if (wcmatch x (strcat "*" hz "*"))
     
409.     (setq str x)
     
410.         )
     
411.       )
     
412.      zidian
     
413.   )
     
414.   (if str
     
415.     (strcase (substr str 1 1))
     
416.   )
     
417. )

(defun pinysz (hz / zidian str)<br />   (setq  zidian<br />    (list<br />      "a啊阿呵"<br />      "ai埃挨哎唉哀皑蔼矮碍爱隘癌艾"<br />      "an鞍氨安俺按暗岸胺案"<br />      "ang肮昂盎"<br />      "ao凹敖熬翱袄傲奥懊澳"<br />      "ba芭捌叭吧笆八疤巴拔跋靶把坝霸罢爸扒耙"<br />      "bai白摆佰败拜柏百稗伯"<br />      "ban斑班搬扳颁板版扮拌伴瓣半办绊般"<br />      "bang邦帮梆榜绑棒镑傍谤膀磅蚌"<br />      "bao苞胞包褒雹保饱宝抱报豹鲍爆剥薄暴刨炮曝瀑堡"<br />      "bei杯碑悲卑北辈背贝钡倍狈备惫焙被"<br />      "ben奔苯本笨"<br />      "beng崩绷甭泵蹦迸蚌"<br />      "bi逼鼻比鄙笔彼碧蓖蔽毕毙毖币庇痹闭敝弊必壁避陛辟臂秘"<br />      "bian鞭边编贬变卞辨辩辫扁便遍"<br />      "biao标彪膘表"<br />      "bie鳖憋别瘪"<br />      "bin彬斌濒滨宾摈"<br />      "bing兵冰柄丙秉饼炳病并屏"<br />      "bo玻菠播拨钵博勃搏铂箔帛舶脖膊渤驳柏剥薄波泊卜般伯"<br />      "bu捕哺补埠布步簿部怖卜不埔堡"<br />      "ca擦"<br />      "cai猜裁材才财睬踩采彩菜蔡"<br />      "can餐残惭惨灿蚕参掺"<br />      "cang苍舱仓沧藏"<br />      "cao操糙槽曹草"<br />      "ce策册测厕侧"<br />      "cen参"<br />      "ceng层蹭曾"<br />      "cha插叉茶碴搽察岔诧茬查刹喳差"<br />      "chai柴豺拆差"<br />      "chan搀蝉馋谗缠铲产阐颤掺单"<br />      "chang昌猖场尝常偿肠厂畅唱倡长敞裳"<br />      "chao超抄钞潮巢吵炒朝嘲绰剿"<br />      "che扯撤掣彻澈车"<br />      "chen郴臣辰尘晨忱沉陈趁衬橙沈称秤"<br />      "cheng撑城成呈程惩诚承逞骋橙乘澄盛称秤"<br />      "chi痴持池迟弛驰耻齿侈赤翅斥炽吃匙尺"<br />      "chong充冲崇宠虫重"<br />      "chou抽酬畴踌稠愁筹仇绸瞅丑臭"<br />      "chu初出橱厨躇锄雏滁除楚础储矗搐触处畜"<br />      "chuai揣"<br />      "chuan川穿椽船喘串传"<br />      "chuang疮窗床闯创"<br />      "chui吹炊捶锤垂椎"<br />      "chun春椿醇唇淳纯蠢"<br />      "chuo戳绰"<br />      "ci疵茨磁雌辞慈瓷词此刺赐次伺兹差"<br />      "cong聪葱囱匆从丛"<br />      "cou凑"<br />      "cu粗醋簇促卒"<br />      "cuan蹿篡窜攒"<br />      "cui摧崔催脆瘁粹淬翠"<br />      "cun村存寸"<br />      "cuo磋搓措挫错撮"<br />      "da搭达答瘩打大"<br />      "dai歹傣戴带殆代贷袋待逮怠大呆"<br />      "dan耽担丹郸胆旦氮但惮淡诞蛋掸弹石单"<br />      "dang当挡党荡档"<br />      "dao刀捣蹈倒岛祷导到稻悼道盗"<br />      "de德得的地"<br />      "dei"<br />      "deng蹬灯登等瞪凳邓澄"<br />      "di低滴迪敌笛狄涤嫡抵蒂第帝弟递缔的堤翟底地提"<br />      "dian颠掂滇碘点典靛垫电甸店惦奠淀殿佃"<br />      "diao碉叼雕凋刁掉吊钓调"<br />      "die跌爹碟蝶迭谍叠"<br />      "ding盯叮钉顶鼎锭定订丁"<br />      "diu丢"<br />      "dong东冬董懂动栋冻洞侗恫"<br />      "dou兜抖斗陡豆逗痘都"<br />      "du督毒犊独堵睹赌杜镀肚渡妒都读度"<br />      "duan端短锻段断缎"<br />      "dui兑队对堆"<br />      "dun墩吨钝遁蹲敦顿囤盾"<br />      "duo掇哆多夺垛躲朵跺剁惰度舵堕"<br />      "e峨鹅俄额讹娥厄扼遏鄂饿阿蛾恶哦"<br />      "en恩"<br />      "er而耳尔饵洱二贰儿"<br />      "fa发罚筏伐乏阀法珐"<br />      "fan藩帆翻樊矾钒凡烦反返范贩犯饭泛番繁"<br />      "fang坊芳方肪房防妨仿访纺放"<br />      "fei菲非啡飞肥匪诽吠肺废沸费"<br />      "fen芬酚吩氛分纷坟焚汾粉奋份忿愤粪"<br />      "feng丰封枫蜂峰锋风疯烽逢缝讽奉凤冯"<br />      "fo佛"<br />      "fou否"<br />      "fu夫敷肤孵扶辐幅氟符伏俘服浮涪福袱弗甫抚辅俯釜斧腑府腐赴副覆赋复傅付阜父腹负富讣附妇缚咐佛拂脯"<br />      "ga噶嘎夹咖"<br />      "gai该改概钙溉盖芥"<br />      "gan干甘杆柑竿肝赶感秆敢赣乾"<br />      "gang冈刚钢缸肛纲岗港杠扛"<br />      "gao篙皋高膏羔糕搞稿镐告"<br />      "ge哥歌搁戈鸽疙割葛格阁隔铬个各胳革蛤咯"<br />      "gei给"<br />      "gen根跟"<br />      "geng耕更庚羹埂耿梗粳颈"<br />      "gong工攻功恭龚供躬公宫弓巩拱贡共汞"<br />      "gou钩勾沟苟狗垢构购够"<br />      "gu辜菇咕箍估沽孤姑古蛊骨股故顾固雇鼓谷贾"<br />      "gua刮瓜剐寡挂褂"<br />      "guai乖拐怪"<br />      "guan棺关官冠观管馆罐惯灌贯纶"<br />      "guang光逛广"<br />      "gui瑰规圭归闺轨鬼诡癸桂柜跪贵刽硅傀炔龟"<br />      "gun辊滚棍"<br />      "guo锅郭国果裹过涡"<br />      "ha蛤哈"<br />      "hai骸孩海氦亥害骇还咳"<br />      "han酣憨邯韩含涵寒函喊罕翰撼捍旱憾悍焊汗汉"<br />      "hang杭航夯吭巷行"<br />      "hao壕嚎豪毫郝好耗号浩镐貉"<br />      "he喝荷菏禾何盒阂河赫褐鹤贺核合涸吓呵貉和"<br />      "hei黑嘿"<br />      "hen痕很狠恨"<br />      "heng亨横衡恒哼行"<br />      "hong轰哄烘虹鸿洪宏弘红"<br />      "hou喉侯猴吼厚候后"<br />      "hu呼乎忽瑚壶葫胡蝴狐糊湖弧虎护互沪户唬和"<br />      "hua花华猾画化话哗滑划"<br />      "huai槐怀淮徊坏"<br />      "huan欢环桓缓换患唤痪豢焕涣宦幻还"<br />      "huang荒慌黄磺蝗簧皇凰惶煌晃幌恍谎"<br />      "hui灰挥辉徽恢蛔回毁悔慧卉惠晦贿秽烩汇讳诲绘会"<br />      "hun昏婚魂浑混荤"<br />      "huo活伙火获或惑霍货祸豁和"<br />      "ji击圾基机畸积箕肌饥迹激讥鸡姬绩吉极棘辑籍集及急疾汲即嫉级挤几脊己蓟技冀季伎剂悸济寄寂计记既忌际妓继纪给稽缉祭藉期奇齐系"<br />      "jia嘉枷佳加荚颊甲钾假稼架驾嫁夹贾价搅茄缴家"<br />      "jian歼监坚尖笺间煎兼肩艰奸缄茧检柬碱拣捡简俭剪减荐鉴践贱键箭件健舰剑饯渐溅涧建槛见浅"<br />      "jiang僵姜浆江疆蒋桨奖讲匠酱将降强"<br />      "jiao椒礁焦胶交郊浇骄娇脚教轿较叫窖蕉嚼搅铰狡饺绞酵觉校矫侥角缴剿"<br />      "jie揭接皆秸街阶截劫节杰捷睫竭洁结姐戒界借介疥诫届桔解藉芥"<br />      "jin巾筋斤金今津襟紧锦仅谨进靳晋禁近烬浸尽劲"<br />      "jing荆兢茎睛晶鲸京惊精经井警静境敬镜径痉靖竟竞净劲粳景颈"<br />      "jiong炯窘"<br />      "jiu揪究纠玖韭久灸九酒厩救旧臼舅咎就疚"<br />      "ju鞠拘狙疽驹菊局矩举沮聚拒据巨具距踞锯俱惧炬剧车桔居咀句蛆足"<br />      "juan捐鹃娟倦眷绢卷圈"<br />      "jue撅攫抉掘倔爵决诀绝嚼觉角"<br />      "jun菌钧军君峻俊竣郡骏均浚"<br />      "ka喀咖卡咯"<br />      "kai开揩凯慨楷"<br />      "kan刊堪勘坎砍看槛嵌"<br />      "kang康慷糠抗亢炕扛"<br />      "kao考拷烤靠"<br />      "ke坷苛柯棵磕颗科可渴克刻客课壳呵咳"<br />      "ken肯啃垦恳"<br />      "keng坑吭"<br />      "kong空恐孔控"<br />      "kou抠口扣寇"<br />      "ku枯哭窟苦酷库裤"<br />      "kua夸垮挎跨胯"<br />      "kuai块筷侩快会"<br />      "kuan宽款"<br />      "kuang匡筐狂框矿眶旷况"<br />      "kui亏盔岿窥葵奎魁馈愧傀溃"<br />      "kun坤昆捆困"<br />      "kuo扩廓阔括"<br />      "la垃拉喇辣啦蜡腊落"<br />      "lai莱来赖"<br />      "lan婪栏拦篮阑兰澜谰揽览懒缆烂滥蓝"<br />      "lang琅榔狼廊郎朗浪"<br />      "lao捞劳牢老佬涝姥酪烙潦落"<br />      "le勒乐肋了"<br />      "lei雷镭蕾磊累儡垒擂类泪勒肋"<br />      "leng楞冷棱"<br />      "li厘梨犁黎篱狸离漓理李里鲤礼莉荔吏栗丽厉励砾历利例俐痢立粒沥隶力璃哩"<br />      "lia"<br />      "lian联莲连镰廉涟帘敛脸链恋炼练怜"<br />      "liang粮凉梁粱良两辆量晾亮谅俩"<br />      "liao撩聊僚疗燎寥辽撂镣廖料潦了"<br />      "lie列裂烈劣猎"<br />      "lin琳林磷霖临邻鳞淋凛赁吝拎"<br />      "ling玲菱零龄铃伶羚凌灵陵岭领另令棱怜"<br />      "liu溜琉榴硫馏留刘瘤流柳六陆"<br />      "long龙聋咙笼窿隆垄拢陇弄"<br />      "lou楼娄搂篓漏陋露"<br />      "lu芦卢颅庐炉掳卤虏鲁麓路赂鹿潞禄录戮吕六碌露陆绿"<br />      "lv驴铝侣旅履屡缕虑氯律滤绿率"<br />      "lve掠略"<br />      "luan峦挛孪滦卵乱"<br />      "lun抡轮伦仑沦论纶"<br />      "luo萝螺罗逻锣箩骡裸洛骆烙络落咯"<br />      "ma妈麻玛码蚂马骂嘛吗摩抹么"<br />      "mai买麦卖迈埋脉"<br />      "man瞒馒蛮满曼慢漫谩埋蔓"<br />      "mang茫盲氓忙莽芒"<br />      "mao猫茅锚毛矛铆卯茂帽貌贸冒"<br />      "me么"<br />      "mei玫枚梅酶霉煤眉媒镁每美昧寐妹媚没糜"<br />      "men门闷们"<br />      "meng萌蒙檬锰猛梦孟盟"<br />      "mi眯醚靡迷弥米觅蜜密幂糜谜泌秘"<br />      "mian棉眠绵冕免勉缅面娩"<br />      "miao苗描瞄藐秒渺庙妙"<br />      "mie蔑灭"<br />      "min民抿皿敏悯闽"<br />      "ming明螟鸣铭名命"<br />      "miu谬"<br />      "mo摸摹蘑膜磨魔末莫墨默沫漠寞陌脉没模摩抹"<br />      "mou谋某牟"<br />      "mu拇牡亩姆母墓暮幕募慕木目睦牧穆姥模牟"<br />      "na拿钠纳呐那娜哪"<br />      "nai氖乃奶耐奈哪"<br />      "nan南男难"<br />      "nang囊"<br />      "nao挠脑恼闹淖"<br />      "ne呢哪"<br />      "nei馁内那哪"<br />      "nen嫩"<br />      "neng能"<br />      "ni妮霓倪泥尼拟你匿腻逆溺呢"<br />      "nian蔫拈年碾撵捻念粘"<br />      "niang娘酿"<br />      "niao鸟尿"<br />      "nie捏聂孽啮镊镍涅"<br />      "nin您"<br />      "ning柠狞凝宁拧泞"<br />      "niu牛扭钮纽"<br />      "nong脓浓农弄"<br />      "nu奴怒努"<br />      "nv女"<br />      "nve虐疟"<br />      "nuan暖"<br />      "nuo挪懦糯诺娜"<br />      "o哦"<br />      "ou欧鸥殴藕呕偶沤区"<br />      "pa啪趴爬帕怕扒耙琶"<br />      "pai拍排牌徘湃派迫"<br />      "pan攀潘盘磐盼畔判叛番胖般"<br />      "pang乓庞耪膀磅旁胖"<br />      "pao抛咆袍跑泡刨炮"<br />      "pei呸胚培裴赔陪配佩沛坏"<br />      "pen喷盆"<br />      "peng砰抨烹澎彭蓬棚硼篷膨朋鹏捧碰"<br />      "pi坯砒霹批披劈琵毗啤脾疲皮痞僻屁譬辟否匹坏"<br />      "pian篇偏片骗扁便"<br />      "piao飘漂瓢票朴"<br />      "pie撇瞥"<br />      "pin拼频贫品聘"<br />      "ping乒坪萍平凭瓶评苹屏"<br />      "po坡泼颇婆破粕泊迫魄朴"<br />      "pou剖"<br />      "pu扑铺仆莆葡菩蒲圃普浦谱脯埔曝瀑堡朴"<br />      "qi欺戚妻七凄柒沏棋歧崎脐旗祈祁骑起岂乞企启器气迄弃汽讫稽缉期栖其奇畦齐砌泣漆契"<br />      "qia掐卡洽"<br />      "qian牵扦钎千迁签仟谦黔钱钳前潜遣谴堑欠歉铅乾浅嵌纤"<br />      "qiang枪呛腔羌墙蔷抢强"<br />      "qiao锹敲悄桥乔侨巧撬翘峭俏窍壳橇瞧鞘雀"<br />      "qie切窃砌茄且怯"<br />      "qin钦侵秦琴勤芹擒禽寝亲沁"<br />      "qing青轻氢倾卿清擎晴氰情顷请庆亲"<br />      "qiong琼穷"<br />      "qiu秋丘邱球求囚酋泅"<br />      "qu趋曲躯屈驱渠取娶龋去区蛆趣"<br />      "quan颧权醛泉全痊拳犬券劝卷圈"<br />      "que缺瘸却鹊榷确炔雀"<br />      "qun裙群"<br />      "ran然燃冉染"<br />      "rang瓤壤攘嚷让"<br />      "rao饶扰绕"<br />      "re惹热"<br />      "ren壬仁人忍韧任认刃妊纫"<br />      "reng扔仍"<br />      "ri日"<br />      "rong戎茸蓉荣融熔溶容绒冗"<br />      "rou揉柔肉"<br />      "ru茹儒孺如辱乳汝入褥蠕"<br />      "ruan软阮"<br />      "rui蕊瑞锐"<br />      "run闰润"<br />      "ruo弱若"<br />      "sa撒洒萨"<br />      "sai腮鳃赛塞"<br />      "san三叁伞散"<br />      "sang桑嗓丧"<br />      "sao搔骚扫嫂梢"<br />      "se瑟涩塞色"<br />      "sen森"<br />      "seng僧"<br />      "sha砂杀沙纱傻啥煞莎刹杉厦"<br />      "shai筛晒色"<br />      "shan珊苫山删煽衫闪陕擅赡膳善汕扇缮杉栅掺单"<br />      "shang墒伤商赏晌上尚裳汤"<br />      "shao捎稍烧芍勺韶少哨邵绍鞘梢召"<br />      "she奢赊舌舍赦摄慑涉社设蛇拾折射"<br />      "shei"<br />      "shen砷申呻伸身深绅神审婶肾慎渗沈甚参娠什"<br />      "sheng声生甥牲升绳剩胜圣乘省盛"<br />      "shi师失狮施湿诗尸虱十时蚀实史矢使屎驶始式示士世柿事拭誓逝势是嗜噬适仕侍释饰市恃室视试匙石拾食识氏似嘘殖峙什"<br />      "shou收手首守寿授售受瘦兽熟"<br />      "shu蔬枢梳殊抒输叔舒淑疏书赎孰薯暑曙署蜀黍鼠述树束戍竖墅庶漱恕熟属术数"<br />      "shua刷耍"<br />      "shuai摔甩帅衰率"<br />      "shuan栓拴"<br />      "shuang霜双爽"<br />      "shui水睡税谁说"<br />      "shun吮瞬顺舜"<br />      "shuo硕朔烁数说"<br />      "si斯撕嘶私司丝死肆寺嗣四饲巳食思伺似"<br />      "song松耸怂颂送宋讼诵"<br />      "sou搜擞嗽艘"<br />      "su苏酥俗素速粟僳塑溯诉肃宿缩"<br />      "suan酸蒜算"<br />      "sui虽隋随绥髓碎岁穗遂隧祟尿"<br />      "sun孙损笋"<br />      "suo蓑梭唆琐索锁所莎缩"<br />      "ta塌他它她獭挞蹋踏塔拓"<br />      "tai胎苔抬台泰酞太态汰"<br />      "tan坍摊贪瘫滩坛檀痰潭谭谈坦毯袒碳探叹炭弹"<br />      "tang塘搪堂棠膛唐糖躺淌趟烫敞汤倘"<br />      "tao掏涛滔绦萄桃逃淘讨套陶"<br />      "te特"<br />      "teng藤腾疼誊"<br />      "ti梯剔踢锑题蹄啼体替嚏惕涕剃屉提"<br />      "tian天添填田甜恬舔腆蚕"<br />      "tiao挑条迢眺跳调"<br />      "tie贴铁帖"<br />      "ting厅烃汀廷停亭庭挺艇听"<br />      "tong通桐酮瞳同铜彤童桶捅筒统痛侗恫"<br />      "tou偷投头透"<br />      "tu秃突图徒途涂屠土吐兔凸余"<br />      "tuan湍团"<br />      "tui推颓腿蜕退褪"<br />      "tun吞屯臀囤"<br />      "tuo拖托脱鸵陀驼椭妥唾驮拓"<br />      "wa挖哇蛙洼娃瓦袜"<br />      "wai歪外"<br />      "wan豌弯湾玩顽丸烷完碗挽晚惋婉腕蔓皖宛万"<br />      "wang汪王枉网往旺望忘妄亡"<br />      "wei威巍微危韦违桅围唯惟为潍维苇萎委伟伪纬未味畏胃喂魏位渭谓慰卫尾蔚尉"<br />      "wen瘟温蚊文闻纹吻稳紊问"<br />      "weng嗡翁瓮"<br />      "wo挝蜗窝我斡卧握沃涡"<br />      "wu巫呜钨乌污诬屋芜梧吾吴毋武五捂午舞伍侮坞戊雾晤物勿务悟误恶无"<br />      "xi昔熙析西硒矽晰嘻吸锡牺稀息希悉膝夕惜熄烯汐犀檄袭席习媳喜隙细栖溪铣洗系戏"<br />      "xia瞎匣霞辖暇峡侠狭下虾厦夏吓"<br />      "xian掀锨先仙鲜咸贤衔舷闲涎弦嫌显险现献县腺馅羡宪陷限线铣纤"<br />      "xiang相厢镶香箱襄湘乡翔祥详想响享项橡像向象降巷"<br />      "xiao萧硝霄哮销消宵晓小孝肖啸笑效削嚣淆校"<br />      "xie楔些歇鞋协携胁谐写械卸蟹懈泄泻谢屑解蝎挟邪斜血叶契"<br />      "xin薪芯锌欣辛新忻心衅信"<br />      "xing星腥猩惺兴刑型形邢醒幸杏性姓省行"<br />      "xiong兄凶胸匈汹雄熊"<br />      "xiu休修羞朽嗅锈秀袖绣臭宿"<br />      "xu墟需虚须徐许蓄酗叙旭序恤絮婿绪续戌嘘畜吁"<br />      "xuan轩喧宣悬旋玄选癣眩绚"<br />      "xue靴薛学穴雪削血"<br />      "xun勋熏循旬询驯巡殉汛训讯逊迅浚寻"<br />      "ya压押鸦鸭呀丫牙蚜衙涯雅哑亚讶芽崖轧"<br />      "yan焉阉淹盐严研蜒岩延言颜阎炎沿奄掩眼衍演艳堰燕厌砚雁唁彦焰宴谚验铅咽烟殷"<br />      "yang殃央鸯秧杨扬佯疡羊洋阳氧仰痒养样漾"<br />      "yao邀腰妖瑶摇尧遥窑谣姚咬舀药要耀约钥侥"<br />      "ye椰噎耶爷野冶也页业夜咽掖叶腋液拽曳"<br />      "yi一壹医揖铱依伊衣颐夷移仪胰疑沂宜姨彝椅蚁倚已乙矣以艺抑易邑亿役臆逸肄疫亦裔意毅忆义益溢诣议谊译异翼翌绎遗屹"<br />      "yin茵荫因音阴姻吟银淫寅饮尹引隐印殷"<br />      "ying英樱婴鹰应缨莹萤营荧蝇迎赢盈影颖硬映"<br />      "yo哟"<br />      "yong拥佣臃痈庸雍踊蛹咏泳永恿勇用涌"<br />      "you幽优悠忧尤由邮铀犹油游酉有友右佑釉诱又幼"<br />      "yu迂淤于盂榆虞愚舆逾鱼愉渝渔隅予娱雨与屿禹宇语羽玉域芋郁遇喻峪御愈欲狱誉浴寓裕预豫驭尉余俞吁育"<br />      "yuan鸳渊冤元垣袁原援辕园圆猿源缘远苑愿怨院员"<br />      "yue曰越跃岳粤月悦阅乐约钥"<br />      "yun耘云郧匀陨允运蕴酝晕韵孕均员"<br />      "za匝砸杂扎咱咋"<br />      "zai栽哉灾宰载再在仔"<br />      "zan暂赞攒咱"<br />      "zang赃脏葬藏"<br />      "zao遭糟藻枣早澡蚤躁噪造皂灶燥凿"<br />      "ze责则泽择侧咋"<br />      "zei贼"<br />      "zen怎"<br />      "zeng增憎赠曾综"<br />      "zha渣札铡闸眨榨乍炸诈查扎喳栅柞轧咋"<br />      "zhai斋债寨翟祭择摘宅窄侧"<br />      "zhan瞻毡詹沾盏斩辗崭展蘸栈占战站湛绽颤粘"<br />      "zhang樟章彰漳张掌涨杖丈帐账仗胀瘴障长"<br />      "zhao招昭找沼赵照罩兆肇朝召爪着"<br />      "zhe遮哲蛰辙者蔗浙折锗这着"<br />      "zhei"<br />      "zhen珍斟真甄砧臻贞针侦枕疹诊震振镇阵帧"<br />      "zheng蒸挣睁征狰争怔整拯正政症郑证"<br />      "zhi芝支蜘知肢脂汁之织职直植执值侄址指止趾只旨纸志挚掷至致置帜制智秩稚质炙痔滞治窒识枝吱殖峙"<br />      "zhong中盅忠钟衷终肿仲众种重"<br />      "zhou舟周州洲诌轴肘帚咒皱宙昼骤粥"<br />      "zhu珠株蛛朱猪诸诛逐竹烛煮拄瞩嘱主柱助蛀贮铸筑住注祝驻属著"<br />      "zhua抓爪"<br />      "zhuai拽"<br />      "zhuan专砖撰篆传转赚"<br />      "zhuang桩庄装妆壮状幢撞"<br />      "zhui锥追赘坠缀椎"<br />      "zhun谆准"<br />      "zhuo捉拙卓桌茁酌啄灼浊琢缴着"<br />      "zi咨资姿滋淄孜紫籽滓子自渍字吱兹仔"<br />      "zong鬃棕踪宗总纵综"<br />      "zou邹走奏揍"<br />      "zu租族祖诅阻组足卒"<br />      "zuan钻纂"<br />      "zui嘴醉最罪"<br />      "zun尊遵"<br />      "zuo昨左佐做作坐座撮琢柞"<br />     )<br />   )<br />   (vl-some '(lambda (x)<br />         (if (wcmatch x (strcat "*" hz "*"))<br />     (setq str x)<br />         )<br />       )<br />      zidian<br />   )<br />   (if str<br />     (strcase (substr str 1 1))<br />   )<br /> )

cq4920

这个功能确实很难用纯autolisp实现，你的方法虽然看似笨拙，实际上其他的方式也是在调用其他程序或者环境里的拼音库！
我这里整理了一个pinyin字库，需要的自行下载吧！
反正我是整理了一个多小时，这大半夜的，不说了睡了！

1. a = 吖阿啊锕錒嗄呵腌
   
2. ai = 哎哀唉埃挨欸溾锿鎄啀捱皑凒嵦溰嘊敱敳皚癌毐昹娾嗳矮蔼躷噯濭藹譪霭彀瑏窗�砹硋隘嗌塧嫒愛碍叆暧瑷僾壒嬡懓薆懝曖璦賹餲鴱皧瞹馤礙譺鑀鱫靉呆阨呃阸呝隑絠阂閡烠鯦剀剴欬乃儗奇騃磑焥娭諰崖堨噫乂醷
   
3. an = 安侒峖桉氨庵菴谙媕萻葊痷腤鹌蓭誝鞌鞍盦諳闇馣鮟盫鵪韽鶕玵啽雸垵俺唵埯铵隌揞晻罯銨犴岸按洝荌案胺豻堓婩暗貋儑錌黯厂咹頞干广顸頇厈屽垾盒吳�鉗遃裺鴳陰隂碪
   
4. ang = 肮骯岇昂昻枊盎醠醃卬仰
   
5. ao = 凹坳垇柪軪爊敖厫隞嗷嗸嶅廒滶獒獓遨摮熬璈蔜磝翱聱螯翶謷翺鳌鏖鰲鷔鼇抝芺拗袄媪镺媼裔畳U岰傲奡奥嫯慠骜奧澚墺嶴澳懊擙謸鏊驁棍礉浇澆熝鏕噢墽磽嚣嚻囂郩鴁眑鴢泑梎蝹
   
6. ba = 八仈巴叭扒朳玐吧夿岜芭疤哵捌笆粑紦羓蚆釟豝鲃魞叐犮抜坺妭拔茇炦癹胈釛菝詙跋軷颰魃墢鼥把钯鈀靶坝弝爸垻罢跁鲅罷鮁覇矲霸壩灞欛捭萆伯柭鲌鮊茷峇皅杷耙湃笩啋p
   
7. bai = 扒挀掰白百佰柏栢捭竡粨絔摆擺襬呗庍拝败拜唄敗猈稗粺鞁薭贁韛鞴薜伯排派
   
8. ban = 扳攽朌班般颁斑搬斒頒瘢螁螌褩癍辬阪坂岅昄板版瓪钣粄舨鈑蝂魬闆办半伴扮姅怑拌绊秚湴絆鉡靽辦瓣辧辨辩辯彬豳並籓分肦鳻覂埿柈跘搫坢
   
9. bang = 邦峀垹帮捠梆浜邫幇幚縍幫鞤绑綁榜牓膀玤蚌傍棒棓硥谤塝徬稖蒡蜯磅镑艕謗鎊埲並蚄纺紡崗蛖旁嫎螃嗙髈挷彭搒騯
   
10. bao = 勹包佨孢苞胞剝笣煲龅蕔褒闁襃齙窇嫑雹宝怉饱保鸨珤堡堢媬葆寚飹飽褓駂鳵緥鴇賲藵寳寶靌勽报抱豹趵铇菢袌報鉋鲍靤骲暴髱虣鮑儤曓爆忁鑤剥薄嚗簿呆枹宀刨炮袍蚫砲裒瀑嘐裦
    
11. bei = 跋垻襬呗唄棓陂卑杯盃桮悲揹碑鹎藣鵯喺北鉳贝狈貝邶备昁牬苝背钡俻倍悖狽被偝偹梖珼鄁備僃惫焙琲軰辈愂碚禙蓓蛽犕褙誖骳輩鋇憊糒鞴鐾俾萆痺臂鐴波孛蜚杮怫茀萯棑柸錍埤椑諀喥衅瞎t
    
12. ben = 奔泍贲倴渀逩犇賁锛錛本苯奙畚楍坌捹桳笨撪獖輽蟦炃燌鐼夯翉喯夲体
    
13. beng = 榜蚌傍伻祊奟崩绷絣閍嵭痭嘣綳繃甭埄埲菶琣琫鞛泵迸逬跰塴甏镚蹦鏰唪俸旁嗙抨挷堋傰搒漨熢錋平
    
14. bi = 罷捭鞁陂卑被鐾贲賁皀屄偪毴逼豍螕鲾鎞鵖鰏柲荸鼻嬶匕比夶朼佊吡妣沘疕彼柀秕俾笔粃粊舭啚筆鄙聛貏匂币必毕闭佖坒庇诐邲妼怭枈畀畁苾哔毖珌疪胇荜陛毙狴畢袐铋婢庳敝梐萆萞閇閉堛弻弼愊愎湢皕禆筚詖貱赑嗶彃楅滗滭煏痹痺腷蓖蓽蜌裨跸辟鉍閟飶幣弊熚獙碧稫箅箆綼蔽鄪馝幤潷獘罼襅駜髲壁嬖廦篦篳縪薜觱避鮅斃濞臂蹕鞞髀奰璧鄨饆繴襞襣鏎鞸韠躃躄魓贔鐴驆鷝鷩鼊咇鮩波紴跛檗蘗费費佛拂服畐幅踾鶝复馥觊虑泌秘鴓箄纰怶悂紕旇翍鈚錍芘枇肶笓陴埤崥椑脾腗魮庀仳媲鸊殍瞥娝肸箃
    
15. bian = 辦豍邲边砭笾猵编萹煸牑甂箯編蝙獱邉鍽鳊邊鞭鯾鯿籩炞贬扁窆匾貶惼碥稨褊糄鴘藊卞弁忭挍M汴苄釆峅拚便变変昪覍徧揙缏遍閞辡緶艑頨辧辨辩辫辮辯變髟疺封覵臱鶣鞕稹
    
16. biao = 鏖苞灬杓彪标飑骉髟淲猋脿墂幖滮蔈颮骠標熛膘麃瘭镖飙飚儦颷瀌藨謤爂臕贆鏢穮镳飆飇飈飊驃鑣驫表婊裱諘褾錶檦俵摽鳔鰾膔剽漂篻僄嫖徱
    
17. bie = 扒捌拔柲苾蔽憋鳖鱉鼈虌龞別别咇莂蛂徶襒蟞蹩瘪癟彆柭穪秘撇撆猰
    
18. bin = 浜汃邠砏宾彬傧斌椕滨缤槟瑸豩賓賔镔儐濒濱濵虨豳璸瀕霦繽蠙桀牃啾鏖腚黧墧P鬂殯臏髌鬓髕鬢玢訜份频頻赟贇
    
19. bing = 絣痭跰鞞鞸槟冫仌氷冰兵栟掤梹鋲檳丙邴陃怲抦秉苪晻m柄炳饼眪窉蛃棅禀鈵鉼鞆餅餠燷并並併幷垪庰倂栤病竝偋傡寎摒誁鮩靐枋绠綆稟癛癝疒拼琕平屏燹
    
20. bo = 妭拔詙鲅鮁掰白百柏般剝趵暴爆薜癶拨波玻剥盋砵袚袯钵饽啵紴缽脖菠碆銉`嶓撥播餑磻蹳驋鱍仢伯孛犻驳帛泊狛瓝苩侼勃柭胉郣亳挬浡瓟秡钹铂桲淿舶博渤湐葧鹁愽搏猼鈸鉑馎鲌僰煿牔箔膊艊馛駁踣鋍镈壆薄馞駮鮊襏豰嚗懪礡簙鎛餺鵓犦髆髉欂襮礴鑮蚾跛箥簸孹擘檗甲L蘗蔔卜簿肑發茷番噃蕃襎佛帗服茀艴榑皪袹募蘖怕拍潘跑笩擗檘泼潑蔢喥瞧衅哑贇喎q彴
    
21. bu = 堡鞴薄峬庯逋钸晡鈽誧餔轐醭卜卟补哺捕補鳪獛鵏鸔不布佈吥步咘怖歨歩钚勏埗悑捗荹部埠瓿鈈廍蔀踄郶篰餢簿尃拊捬附秿輹箁婄抪柨陠撲擈鯆僕埔溥

复制代码

skyoo

真有耐心啊

mokson

将字典的字都弄完进去了吗，还有繁体字也写进去更佳。

zhaoxt

其实就是费事点，但挺准确可靠的，有时间可以不断的添加

liuhe

我把两位大佬的拼音库和代码结合到了一起，原来是输出的首字母，现在可以是输出拼音。我做的没啥技术含量。体力工作而已，分享给需要的人

xyz002

这个字库不全啊，如 yu ji 这些拼音的字 一个都没有

zxh92

感谢大佬分享

flowerson

那有人搞一段文字有转拼音吗？

lostbalance

汉字长度改成1了吗，这个影响还是挺大的啊，估计好多文字处理的程序要调整了