一口气写完特殊字符
;;一口气写完特殊字符(defun c:xnzm()
(command "._style" "xinazimu" "Arial" 0 1 0 "N" "N")
(command "._textstyle" "xinazimu")
(setq pt (getpoint"\n起点："))
(command ".-MTEXT" pt "H" 20 "W" "1220" (strcat "希腊字母: " "\u+03B1" "\u+03B2" "\u+03B3" "\u+03B4" "\u+03B5" "\u+03B6" "\u+03B7" "\u+03B8" "\u+03B9" "\u+03BA" "\u+03BB" "\u+03BC" "\u+03BD" "\u+03BE" "\u+03BF" "\u+03C0" "\u+03C1" "\u+03C2" "\u+03C3" "\u+03C4" "\u+03C5" "\u+03C6" "\u+03C7" "\u+03C8" "\u+03C9" "\u+03D5" "\u+0394" "\u+0398" "\u+03A3" "\u+03A5" "\u+03A6" "\u+03A8" "\u+03A9") "");;希腊字母小大写
(command ".-MTEXT" (polar pt (* 1.5 PI) 40) "H" 20 "W" "1420" (strcat "带圈数字: " "\u+24EA" "\u+2460" "\u+2461" "\u+2462" "\u+2463" "\u+2464" "\u+2465" "\u+2466" "\u+2467" "\u+2468" "\u+2469" "\u+246A" "\u+246B" "\u+246C" "\u+246D" "\u+246E" "\u+246F" "\u+2470" "\u+2471" "\u+2472" "\u+2473") "");;带圈数字
(command ".-MTEXT" (polar pt (* 1.5 PI) 80) "H" 20 "W" "1420" (strcat "大写罗马数字: " "\u+2160" "\u+2161" "\u+2162" "\u+2163" "\u+2164" "\u+2165" "\u+2166" "\u+2167" "\u+2168" "\u+2169" "\u+216A" "\u+216B") "");;大写罗马数字
(command ".-MTEXT" (polar pt (* 1.5 PI) 120) "H" 20 "W" "1220" (strcat "小写罗马数字: " "\u+2170" "\u+2171" "\u+2172" "\u+2173" "\u+2174" "\u+2175" "\u+2176" "\u+2177" "\u+2178" "\u+2179" "\u+217A" "\u+217B") "");;小写罗马数字
(command ".-MTEXT" (polar pt (* 1.5 PI) 160) "H" 20 "W" "1220" (strcat "箭头符号: " "\u+2190" "\u+2191" "\u+2192" "\u+2193" "\u+2194" "\u+2195" "\u+2196" "\u+2197" "\u+2198" "\u+2199") "");;箭头符号
(command ".-MTEXT" (polar pt (* 1.5 PI) 200) "H" 20 "W" "1220" (strcat "摄氏华氏度: " "\u+2103" "\u+2109") "");;摄氏华氏度
(command ".-MTEXT" (polar pt (* 1.5 PI) 240) "H" 20 "W" "1220" (strcat "带括号的中文数字: " "\u+3220" "\u+3221" "\u+3222" "\u+3223" "\u+3224" "\u+3225" "\u+3226" "\u+3227" "\u+3228" "\u+3229") "");;带括号的中文数字
(command ".-MTEXT" (polar pt (* 1.5 PI) 280) "H" 20 "W" "1220" (strcat "带括号的数字: " "\u+2474" "\u+2475" "\u+2476" "\u+2477" "\u+2478" "\u+2479" "\u+247A" "\u+247B" "\u+247C" "\u+247D" "\u+247E" "\u+247F" "\u+2480" "\u+2481" "\u+2482" "\u+2483" "\u+2484" "\u+2485" "\u+2486" "\u+2487") "");;数字带括号
(command ".-MTEXT" (polar pt (* 1.5 PI) 320) "H" 20 "W" "1220" (strcat "带点的数字: ""\u+2488" "\u+2489" "\u+248A" "\u+248B" "\u+248C" "\u+248D" "\u+248E" "\u+248F" "\u+2490" "\u+2491" "\u+2492" "\u+2493" "\u+2494" "\u+2495" "\u+2496" "\u+2497" "\u+2498" "\u+2499" "\u+249A" "\u+249B") "");;数字带点
(command ".-MTEXT" (polar pt (* 1.5 PI) 360) "H" 20 "W" "1220" (strcat "带圈大写字母: " "\u+24B6" "\u+24B7" "\u+24B8" "\u+24B9" "\u+24BA" "\u+24BB" "\u+24BC" "\u+24BD" "\u+24BE" "\u+24BF" "\u+24C0" "\u+24C1" "\u+24C2" "\u+24C3" "\u+24C4" "\u+24C5" "\u+24C6" "\u+24C7" "\u+24C8" "\u+24C9" "\u+24CA" "\u+24CB" "\u+24CC" "\u+24CD" "\u+24CE" "\u+24CF") "");;带圆圈字母大字
(command ".-MTEXT" (polar pt (* 1.5 PI) 400) "H" 20 "W" "1220" (strcat "带圈小写字母: " "\u+24D0" "\u+24D1" "\u+24D2" "\u+24D3" "\u+24D4" "\u+24D5" "\u+24D6" "\u+24D7" "\u+24D8" "\u+24D9" "\u+24DA" "\u+24DB" "\u+24DC" "\u+24DD" "\u+24DE" "\u+24DF" "\u+24E0" "\u+24E1" "\u+24E2" "\u+24E3" "\u+24E4" "\u+24E5" "\u+24E6" "\u+24E7" "\u+24E8" "\u+24E9") "");;带圆圈字母小字
(command ".-MTEXT" (polar pt (* 1.5 PI) 440) "H" 20 "W" "1220" (strcat "丁贝符反白带圈数字: " "\u+2776" "\u+2777" "\u+2778" "\u+2779" "\u+277A" "\u+277B" "\u+277C" "\u+277D" "\u+277E" "\u+277F") "");;数字带括号
(command "-STYLE" "shangxiabiao" "Arial Unicode MS" "0" "0.8""0" "N" "N")
(command ".-MTEXT" (polar pt (* 1.5 PI) 500) "H" 20 "W" "1220" (strcat "数学符号: " "\u+22C5" "\u+00B1" "\u+00D7" "\u+00F7" "\u+2248" "\u+224C" "\u+2260" "\u+2264" "\u+2265" "\u+2266" "\u+226E" "\u+226F") "");;数学符号
(command ".-MTEXT" (polar pt (* 1.5 PI) 540) "H" 20 "W" "1220" (strcat "上标: " "A" "\u+2070" "\u+00B2" "\u+00B3" "\u+2074" "\u+2075" "\u+2076" "\u+2077" "\u+2078" "\u+2079" "\u+207A" "\u+207B" "\u+207C" "\u+207D" "\u+207E" "\u+207F") "");;上标
(command ".-MTEXT" (polar pt (* 1.5 PI) 580) "H" 20 "W" "1220" (strcat "下标: " "A""\u+2080" "\u+2081" "\u+2082" "\u+2083" "\u+2084" "\u+2085" "\u+2086" "\u+2087" "\u+2088" "\u+2089" "\u+208A" "\u+208B" "\u+208C" "\u+208D" "\u+208E") "");;下标
;;; (command ".-MTEXT" (polar pt (* 1.5 PI) 640) "H" 20 "W" "1220" (strcat "\u+2200" "针对所有" "\u+2201" "补集" "\u+2202" "偏微分" "\u+2203" "存在" "\u+2204" "不存在" "\u+2205" "空集" "\u+2206" "递增" "\u+2207" "微分算符" "\u+2208" "包含于" "\u+2209" "不是元素" "\u+220A" "小型元素" "\u+220B" "包含" "\u+220C" "不包含" "\u+220D" "小型包含" "\u+220E" "证毕" "\u+220F" "N元乘积" "\u+2210" "N元余积" "\u+2211" "N元求和" "\u+2213" "负正号" "\u+2227" "逻辑与" "\u+2228" "逻辑或" "\u+2229" "交集" "\u+222A" "并集" "\u+222B" "积分" "\u+222C" "二重积分" "\u+222D" "三重积分" "\u+222E" "围道积分" "\u+222E" "面积积分" "\u+222F" "体积分" "\u+2231" "顺时针积分" "\u+2232" "顺时针围道积分" "\u+2233" "逆时针围道积分" "\u+00B7" "中间点") "");;
)
Unicode集在线查询
https://symbl.cc/cn/unicode-table/#basic-latin 代码可以简化
(setq lst (list
"小写希腊：αβγδεζηθικλμνξοπρστυφχψω"
"大写希腊：ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ"
"圆圈数字：①②③④⑤⑥⑦⑧⑨⑩"
"小写罗马：ⅰⅱⅲⅳⅴⅵⅶⅷⅸⅹ"
"大写罗马：ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ"
"方向箭头：←↑→↓↖↗↘↙"
"括号中文数字：㈠㈡㈢㈣㈤㈥㈦㈧㈨㈩"
"括号数字：⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀⒁⒂⒃⒄⒅⒆⒇"
"带点数字：⒈⒉⒊⒋⒌⒍⒎⒏⒐⒑⒒⒓⒔⒕⒖⒗⒘⒙⒚⒛"
"数学符号：＋－×÷＝＜＞±％‰∈∏∑√∝∞∫∮∴∵∶∷∽≈≌≒≠≡≤≥≦≧≮≯⊕⊙∣‖∕∥∧∨∩∪⊥∟∠⊿㏑㏒㏕"
(strcat "带圈大写字母："
"\u+24B6\u+24B7\u+24B8\u+24B9\u+24BA\u+24BB\u+24BC\u+24BD\u+24BE"
"\u+24BF\u+24C0\u+24C1\u+24C2\u+24C3\u+24C4\u+24C5\u+24C6\u+24C7"
"\u+24C8\u+24C9\u+24CA\u+24CB\u+24CC\u+24CD\u+24CE\u+24CF"
)
(strcat "带圈小写字母："
"\u+24D0\u+24D1\u+24D2\u+24D3\u+24D4\u+24D5\u+24D6\u+24D7\u+24D8"
"\u+24D9\u+24DA\u+24DB\u+24DC\u+24DD\u+24DE\u+24DF\u+24E0\u+24E1"
"\u+24E2\u+24E3\u+24E4\u+24E5\u+24E6\u+24E7\u+24E8\u+24E9"
)
"丁贝符反白带圈数字：\u+2776\u+2777\u+2778\u+2779\u+277A\u+277B\u+277C\u+277D\u+277E\u+277F"
"上标：A\u+2070\u+00B2\u+00B3\u+2074\u+2075\u+2076\u+2077\u+2078\u+2079\u+207A\u+207B\u+207C\u+207D\u+207E\u+207F"
"下标：A\u+2080\u+2081\u+2082\u+2083\u+2084\u+2085\u+2086\u+2087\u+2088\u+2089\u+208A\u+208B\u+208C\u+208D\u+208E"
)
) 本帖最后由 qifeifei 于 2025-12-8 19:36 编辑
5.lsp 文件使用说明
一、文件功能
这个LISP程序的主要功能是在AutoCAD中一次性插入多种特殊字符。
二、包含的特殊字符类型
1. 希腊字母 (αβγδεζηθικλμνξοπρςστυφχψωΔΘΣΦΨΩ)
2. 带圈数字 (⑩①②③④⑤⑥⑦⑧⑨⑩...)
3. 罗马数字 (ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ)
4. 箭头符号 (←↑→↓↔↕↖↗↘↙)
5. 温度符号 (℃℉)
6. 中文数字 (㊀㊁㊂㊃㊄㊅㊆㊇㊈㊉)
7. 带括号数字 (⑵⑶⑷⑸...)
8. 带点数字 (⒈⒉⒊⒋...)
9. 带圈字母 (ⒶⒷⒸⒹⒺⒻⒼⒽⒾⒿⓀⓁⓂⓃⓄⓅ...)
10. 数学符号 (·±×÷≈≐≠≤≥≲≳)
11. 上标/下标 (⁰¹²³⁴⁵⁶⁷⁸⁹⁺⁻...)
三、使用方法
步骤1：加载LISP文件
在AutoCAD命令行中输入：
(load "5.lsp")
步骤2：执行命令
在AutoCAD命令行中输入：
xnzm
步骤3：指定插入点
程序会提示您输入起点位置，点击绘图区域中您想要插入特殊字符的位置。
步骤4：查看结果
程序会自动在指定位置下方按行排列显示所有特殊字符，每行显示一种类型的字符。
四、程序特点
1. 自动生成文字样式：程序会创建名为"xinazimu"的字体样式
2. 自动排列：字符会自动垂直排列，间距为40单位
3. 字体设置：使用Arial字体，文字高度20，宽度1220
4. 一次性展示：所有特殊字符一次性全部显示出来
五、适用场景
这个工具非常适合需要在图纸中使用特殊符号的用户，可以快速查看和插入各种专业符号。
这个好，楼上几位大佬给力
页:
[1]