[求助]：书写带下划线的文本???

myquanh

(princ "\n 书写带下划线的文本!")
(princ "\n To apply the program,Input \"ltext\" .\n")
(princ)
(defun c:ltext ()
  (setq texthigh (getreal "\Input the high of the text<2.5>: "))
  (if (= texthigh nil) (setq texthigh 2.5)  )
  (command "style" "standard" "romans.shx,ehzdx.shx" "0" "0.7" "0" "n" "n" "n")
  (setq pt (getpoint "\n Specify the point: "))
  (setq lt (getstring "\n Input the text: "))
  (command "text" pt texthigh "0" lt)
  (setq lenth (strlen lt))
  (setq pl1x (car pt))
  (setq pl1y (- (cadr pt)(* 0.35 texthigh)))
  (setq pl1 (list pl1x pl1y))
  (setq pl2x (+ pl1x (* 0.7 (* lenth texthigh))))
  (setq pl2 (list pl2x pl1y))
  (command "line" pl1 pl2 "")
  (princ "\n Welcome to use the program again!")
  (princ)
)
为什么我这个程序不能够实现我想要的功能？请求各位大哥大姐帮忙。加载后运行时，按顺序书写阿拉伯数字时可以，可是书写汉字就不行了。

hualunci

我也遇到这个问题，那位知道呀

lt_zzy

我试了你的程序，输入汉字的时候也能有下划线，就是下划线长了一些而已。
下划线的长度应该与字的宽度比有关系。应该加入宽度比的变量。

ZXK68

输入%%U是下划线，输入%%O是上划线。

zwj123

试试TSSD软件!

myquanh

谢谢各位的指点!
请教3楼楼主班竹：
    为什么书写汉字时，我的line命令书写时两个点的y坐标是一样的，可是经常会出现不正交的直线(y坐标不一样)。
谢谢4楼楼主：
    %%U书写文本时，文本和下划线是连为一体的，我所想要的是他们分开，且我也不一定是画一条下划线。

bonific

我也不明白啊，但是参考书里有介绍的啊，样即便计算机内没有安装EXCEL软件也可以完成一些不太复杂的运算。感觉就像在EXCEL中操作表格一样。这样就可以了

ssggcc777

我试了你的程序，输入汉字的时候也能有下划线。
非常好用