一口气写完特殊字符

ocoipw

;;一口气写完特殊字符
(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" "中间点") "");;

)

kozmosovia

Unicode集在线查询
https://symbl.cc/cn/unicode-table/#basic-latin

xyp1964

代码可以简化

1. (setq lst (list
   
2.               "小写希腊：αβγδεζηθικλμνξοπρστυφχψω"
   
3.               "大写希腊：ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ"
   
4.               "圆圈数字：①②③④⑤⑥⑦⑧⑨⑩"
   
5.               "小写罗马：ⅰⅱⅲⅳⅴⅵⅶⅷⅸⅹ"
   
6.               "大写罗马：ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ"
   
7.               "方向箭头：←↑→↓↖↗↘↙"
   
8.               "括号中文数字：㈠㈡㈢㈣㈤㈥㈦㈧㈨㈩"
   
9.               "括号数字：⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀⒁⒂⒃⒄⒅⒆⒇"
   
10.               "带点数字：⒈⒉⒊⒋⒌⒍⒎⒏⒐⒑⒒⒓⒔⒕⒖⒗⒘⒙⒚⒛"
    
11.               "数学符号：＋－×÷＝＜＞±％‰∈∏∑√∝∞∫∮∴∵∶∷∽≈≌≒≠≡≤≥≦≧≮≯⊕⊙∣‖∕∥∧∨∩∪⊥∟∠⊿㏑㏒㏕"
    
12.               (strcat "带圈大写字母："
    
13.                       "\u+24B6\u+24B7\u+24B8\u+24B9\u+24BA\u+24BB\u+24BC\u+24BD\u+24BE"
    
14.                       "\u+24BF\u+24C0\u+24C1\u+24C2\u+24C3\u+24C4\u+24C5\u+24C6\u+24C7"
    
15.                       "\u+24C8\u+24C9\u+24CA\u+24CB\u+24CC\u+24CD\u+24CE\u+24CF"
    
16.               )
    
17.               (strcat "带圈小写字母："
    
18.                       "\u+24D0\u+24D1\u+24D2\u+24D3\u+24D4\u+24D5\u+24D6\u+24D7\u+24D8"
    
19.                       "\u+24D9\u+24DA\u+24DB\u+24DC\u+24DD\u+24DE\u+24DF\u+24E0\u+24E1"
    
20.                       "\u+24E2\u+24E3\u+24E4\u+24E5\u+24E6\u+24E7\u+24E8\u+24E9"
    
21.               )
    
22.               "丁贝符反白带圈数字：\u+2776\u+2777\u+2778\u+2779\u+277A\u+277B\u+277C\u+277D\u+277E\u+277F"
    
23.               "上标：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"
    
24.               "下标：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"
    
25.             )
    
26.   )

(setq lst (list<br />               "小写希腊：αβγδεζηθικλμνξοπρστυφχψω"<br />               "大写希腊：ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ"<br />               "圆圈数字：①②③④⑤⑥⑦⑧⑨⑩"<br />               "小写罗马：ⅰⅱⅲⅳⅴⅵⅶⅷⅸⅹ"<br />               "大写罗马：ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ"<br />               "方向箭头：←↑→↓↖↗↘↙"<br />               "括号中文数字：㈠㈡㈢㈣㈤㈥㈦㈧㈨㈩"<br />               "括号数字：⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀⒁⒂⒃⒄⒅⒆⒇"<br />               "带点数字：⒈⒉⒊⒋⒌⒍⒎⒏⒐⒑⒒⒓⒔⒕⒖⒗⒘⒙⒚⒛"<br />               "数学符号：＋－×÷＝＜＞±％‰∈∏∑√∝∞∫∮∴∵∶∷∽≈≌≒≠≡≤≥≦≧≮≯⊕⊙∣‖∕∥∧∨∩∪⊥∟∠⊿㏑㏒㏕"<br />               (strcat "带圈大写字母："<br />                       "\u+24B6\u+24B7\u+24B8\u+24B9\u+24BA\u+24BB\u+24BC\u+24BD\u+24BE"<br />                       "\u+24BF\u+24C0\u+24C1\u+24C2\u+24C3\u+24C4\u+24C5\u+24C6\u+24C7"<br />                       "\u+24C8\u+24C9\u+24CA\u+24CB\u+24CC\u+24CD\u+24CE\u+24CF"<br />               )<br />               (strcat "带圈小写字母："<br />                       "\u+24D0\u+24D1\u+24D2\u+24D3\u+24D4\u+24D5\u+24D6\u+24D7\u+24D8"<br />                       "\u+24D9\u+24DA\u+24DB\u+24DC\u+24DD\u+24DE\u+24DF\u+24E0\u+24E1"<br />                       "\u+24E2\u+24E3\u+24E4\u+24E5\u+24E6\u+24E7\u+24E8\u+24E9"<br />               )<br />               "丁贝符反白带圈数字：\u+2776\u+2777\u+2778\u+2779\u+277A\u+277B\u+277C\u+277D\u+277E\u+277F"<br />               "上标：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"<br />               "下标：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"<br />             )<br />   )

qifeifei

5.lsp 文件使用说明

一、文件功能
这个LISP程序的主要功能是在AutoCAD中一次性插入多种特殊字符。

二、包含的特殊字符类型

1. 希腊字母 (αβγδεζηθικλμνξοπρ&#962;στυφχψωΔΘΣΦΨΩ)
2. 带圈数字 (⑩①②③④⑤⑥⑦⑧⑨⑩...)
3. 罗马数字 (ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ)
4. 箭头符号 (←↑→↓&#8596;&#8597;↖↗↘↙)
5. 温度符号 (℃℉)
6. 中文数字 (&#12928;&#12929;&#12930;&#12931;&#12932;&#12933;&#12934;&#12935;&#12936;&#12937;)
7. 带括号数字 (⑵⑶⑷⑸...)
8. 带点数字 (⒈⒉⒊⒋...)
9. 带圈字母 (&#9398;&#9399;&#9400;&#9401;&#9402;&#9403;&#9404;&#9405;&#9406;&#9407;&#9408;&#9409;&#9410;&#9411;&#9412;&#9413;...)
10. 数学符号 (·±×÷≈&#8784;≠≤≥&#8818;&#8819;)
11. 上标/下标 (&#8304;&#185;&#178;&#179;&#8308;&#8309;&#8310;&#8311;&#8312;&#8313;&#8314;&#8315;...)

三、使用方法

步骤1：加载LISP文件
在AutoCAD命令行中输入：
(load "5.lsp")

步骤2：执行命令
在AutoCAD命令行中输入：
xnzm

步骤3：指定插入点
程序会提示您输入起点位置，点击绘图区域中您想要插入特殊字符的位置。

步骤4：查看结果
程序会自动在指定位置下方按行排列显示所有特殊字符，每行显示一种类型的字符。

四、程序特点

1. 自动生成文字样式：程序会创建名为"xinazimu"的字体样式
2. 自动排列：字符会自动垂直排列，间距为40单位
3. 字体设置：使用Arial字体，文字高度20，宽度1220
4. 一次性展示：所有特殊字符一次性全部显示出来

五、适用场景
这个工具非常适合需要在图纸中使用特殊符号的用户，可以快速查看和插入各种专业符号。

szhorse

这个好，楼上几位大佬给力