[求助]：怎样输入带有上标（或下标）的文字

menglangs

I don't like MText.
多了，就慢。

liguojie

看这个贴子
http://www.xdcad.net/forum/showthread.php?s=&threadid=2575
asde的字体中可以在小字型中用%%nnn的方式来输入上、下标，也可以用大字型中换码的方式用|c的方式输入（支持mtext）

www6666

好像效果都不理想呀

janeyb

其实可以用mtext里调用word就可以像输入文字那样编辑上下图标了。

binglingyang

最初由 janeyb 发布
[B]其实可以用mtext里调用word就可以像输入文字那样编辑上下图标了。 [/B]

  你想得挺美，你试过没有，我用过，wor中的大部分格式acad2002都不认识，

xzg_hello

试试这个，保证好用，不好包退啊：）

XDSoft

xzg,告诉下大家如何使用这个字体吧，输入方法，谢谢！

YueFeng

XZG的字体好像是钢筋符号不通用，用151、152啦。不是原先习惯的130、131

xzg_hello

最初由 YueFeng 发布
[B]XZG的字体好像是钢筋符号不通用，用151、152啦。不是原先习惯的130、131 [/B]

我不知道帖图，因此详见附件

xzg_hello

尚不完全成熟，但凑合着可以用了

XDSoft

收到悄悄话，在此一并回复吧。

谢谢！，论坛截图方法，你先用截图软件截图保存成GIF文件，然后发贴的时候，用附件一起传到论坛就可以了。

欢迎继续讨论！

xzg_hello

扩展TXT。shx的内容

xzg_hello

扩展txt。shx的应用：

xzg_hello

配合扩展TXT.shx使用的小工具xT.lisp

;|
  命令：xT
  作者：逍遥客
  版本：0.0.1
  日期：2002/9/9
  功能：配合字体"扩展TXT.shx"输入及编辑修改，现在仅初步完成输入部分
  系统：瘟酒吧、中文ACAD2002
  
  配合：XDRX_API B11208以上版本
  
  该程序有待改进的地方：
  1.通过识别用户点取目标的不同，自动切换输入与编辑，该工作由主程序完成，输入与编辑两种状态改写为两个过程函数；
  2.读取系统字体变量，使默认字体属性相应变化，以符合用户的一般，该过程应在主程序中完成，并将相关参数传递给两个过程函数；
  3.自动识别当前字体是否为所需字体，如果不是，则建议用户变更，并将当前所有字体以列表方式显示，以类似于选择打印机的方式
  进行选择；
  4.设置一个系统变量用于关联样式，其默认值为用户所设定关联的样式名称，如果当前字体有效则该变量不起作用，否则建议用户调
  用默认样式；
  5.字高参数当对正方式为“对齐A”时，并不需要输入。
  BUG:
  1.当输入的字符串存在"、/、\、<、>……等非数字和英文的符号时，程序将出错－－ASCii。
  附注:
  1.该程序是否成功的关键是单双字节字符的识别，但由于这是ACAD固有问题，因此只能通过增设错误陷阱和特殊字符的判断来加区分；
  2.对于诸如BUG中提到的字符，可以通过错误陷阱加以排除－－如ascii调用出错，则定义当前字符为单字节；
  3.由于样式这个参量往日变更并不多，主要是变更不如st方便，因此该参量日后将用于保存用户设定的关联样式名称。

2. [FONT=courier new]
   
3. |;
   
4. (defun c:xT (/ num p1 p2 height_text ang_text justify_text style_text words length_text  n0 n1 sub1 sub2 sub3 sub4)
   
5.   (initget "0 1")
   
6.   (setq num (getkword "请选择输入状态或编辑修改状态(0/1):<0>"))
   
7.   (if (= num nil) (setq num "0"))
   
8.   (if (= num "0")
   
9.     (progn;输入状态
   
10.       (setq p1 (getpoint "指定文字的起点："))
    
11.       ;
    
12.       ;获取当前系统字高变量并示
    
13.       ;
    
14.       (setq height_text (getdist p1 "指定高度：<2.5>"))
    
15.       (if (= height_text nil) (setq height_text 2.5))
    
16.       (setq ang_text (getangle p1 "指定文字的旋转角度:<0>"))
    
17.       (if (= ang_text nil) (setq ang_text 0))
    
18.       (setq ang_text (angtos ang_text))
    
19.       (prompt "选择样式：")
    
20.       ;显示当前样式
    
21.       ;(prompt style0)
    
22.       (setq style_text (getstring))
    
23.       (setq words (getstring "输入文字:"))
    
24.       ;处理words，在英文前后分别加上%%166和%%165
    
25.       (setq length_text (strlen words))
    
26.       (setq sub1 "" sub2 "" sub3 words sub4 "")
    
27.       (setq n0 0 n1 0)
    
28.       (while (/= sub3 "")
    
29.         (while (and (or (> (ascii (xdrx_string_mid sub3 n1 1)) 156) (< (ascii (xdrx_string_mid sub3 n1 1)) 32))
    
30.                     (/= (ascii (xdrx_string_mid sub3 n1 1)) 0))
    
31.           (setq n1 (+ 1 n1))
    
32.           )
    
33.         (setq sub1 (xdrx_string_mid sub3 n0 (- n1 n0)))       
    
34.         (setq n0 n1)
    
35.         (while (and (<= (ascii (xdrx_string_mid sub3 n1 1)) 156) (>= (ascii (xdrx_string_mid sub3 n1 1)) 32))
    
36.           (setq n1 (+ 1 n1))
    
37.           )
    
38.         (if (/= (ascii (xdrx_string_mid sub3 n1 1)) 0)
    
39.           (setq sub2 (strcat "%%166" (xdrx_string_mid sub3 n0 (- n1 n0)) "%%165"))
    
40.           (setq sub2 "")
    
41.           )
    
42.         (setq sub3 (xdrx_string_mid sub3 n1 (- (strlen sub3) n1)))
    
43.         (setq sub4 (strcat sub4 sub1 sub2))
    
44.         (setq n0 0 n1 0)
    
45.         )
    
46.       (setq words sub4)
    
47. 
    
48.       (prompt "选择对正方式：")
    
49.       (prompt "[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中下(BC)/右下(BR)]")
    
50.       (initget "A F C M R TL TC TR ML MC MR BL BC BR")
    
51.       (setq justify_text (getkword))
    
52.       
    
53.       (cond
    
54.         ((= justify_text nil)(command "text" p1 height_text ang_text words ""))
    
55.         ((= justify_text "A")
    
56.          (progn
    
57.            (setq p2 (getpoint p1 "请输入第二个端点"))
    
58.            (command "text" "j" "a" p1 p2 words)
    
59.            )
    
60.          )
    
61.         ((= justify_text "F")
    
62.          (progn
    
63.            (setq p2 (getpoint p1 "请输入第二个端点"))
    
64.            (command "text" "j" "f" p1 p2 height_text words)
    
65.            )
    
66.          )
    
67.         (t
    
68.          (progn
    
69.            (command "text" "j" justify_text p1 height_text ang_text words)
    
70.            )
    
71.          )
    
72.         )
    
73.         )
    
74.     (progn;编辑修改态
    
75.       
    
76.       
    
77.       )
    
78.     )
    
79.   )
    
80. [/font]

[FONT=courier new]<br /> |;<br /> (defun c:xT (/ num p1 p2 height_text ang_text justify_text style_text words length_text  n0 n1 sub1 sub2 sub3 sub4)<br />   (initget "0 1")<br />   (setq num (getkword "请选择输入状态或编辑修改状态(0/1):<0>"))<br />   (if (= num nil) (setq num "0"))<br />   (if (= num "0")<br />     (progn;输入状态<br />       (setq p1 (getpoint "指定文字的起点："))<br />       ;<br />       ;获取当前系统字高变量并示<br />       ;<br />       (setq height_text (getdist p1 "指定高度：<2.5>"))<br />       (if (= height_text nil) (setq height_text 2.5))<br />       (setq ang_text (getangle p1 "指定文字的旋转角度:<0>"))<br />       (if (= ang_text nil) (setq ang_text 0))<br />       (setq ang_text (angtos ang_text))<br />       (prompt "选择样式：")<br />       ;显示当前样式<br />       ;(prompt style0)<br />       (setq style_text (getstring))<br />       (setq words (getstring "输入文字:"))<br />       ;处理words，在英文前后分别加上%%166和%%165<br />       (setq length_text (strlen words))<br />       (setq sub1 "" sub2 "" sub3 words sub4 "")<br />       (setq n0 0 n1 0)<br />       (while (/= sub3 "")<br />         (while (and (or (> (ascii (xdrx_string_mid sub3 n1 1)) 156) (< (ascii (xdrx_string_mid sub3 n1 1)) 32))<br />                     (/= (ascii (xdrx_string_mid sub3 n1 1)) 0))<br />           (setq n1 (+ 1 n1))<br />           )<br />         (setq sub1 (xdrx_string_mid sub3 n0 (- n1 n0)))        <br />         (setq n0 n1)<br />         (while (and (<= (ascii (xdrx_string_mid sub3 n1 1)) 156) (>= (ascii (xdrx_string_mid sub3 n1 1)) 32))<br />           (setq n1 (+ 1 n1))<br />           )<br />         (if (/= (ascii (xdrx_string_mid sub3 n1 1)) 0)<br />           (setq sub2 (strcat "%%166" (xdrx_string_mid sub3 n0 (- n1 n0)) "%%165"))<br />           (setq sub2 "")<br />           )<br />         (setq sub3 (xdrx_string_mid sub3 n1 (- (strlen sub3) n1)))<br />         (setq sub4 (strcat sub4 sub1 sub2))<br />         (setq n0 0 n1 0)<br />         )<br />       (setq words sub4)<br /> <br />       (prompt "选择对正方式：")<br />       (prompt "[对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中下(BC)/右下(BR)]")<br />       (initget "A F C M R TL TC TR ML MC MR BL BC BR")<br />       (setq justify_text (getkword))<br />       <br />       (cond<br />         ((= justify_text nil)(command "text" p1 height_text ang_text words ""))<br />         ((= justify_text "A")<br />          (progn<br />            (setq p2 (getpoint p1 "请输入第二个端点"))<br />            (command "text" "j" "a" p1 p2 words)<br />            )<br />          )<br />         ((= justify_text "F")<br />          (progn<br />            (setq p2 (getpoint p1 "请输入第二个端点"))<br />            (command "text" "j" "f" p1 p2 height_text words)<br />            )<br />          )<br />         (t<br />          (progn<br />            (command "text" "j" justify_text p1 height_text ang_text words)<br />            )<br />          )<br />         )<br />         )<br />     (progn;编辑修改态<br />       <br />       <br />       )<br />     )<br />   )<br /> [/font]

xzg_hello

上次推荐的扩展complex.shx字体（又称 c 字体）扩展内容：