bios 发表于 2005-7-10 12:23:00

[求助]想到这样一个问题

为了加快文字输入速度和准确性，能否像定义快捷键似的。


在单行文本编辑是时候，定义某一个键就代替一个常用的字符窜。


比如在单行文本编辑时候，用小键盘的*（因为这个键很少用)来代替为:123456


这样的想法能否实现？

mikewolf2k 发表于 2005-7-10 20:07:00

理论上是可以，编程可以实现，也可以用replace功能实现。

sdwy196912 发表于 2005-7-13 23:14:00

<P>当然是可以啊!</P>
<P>(defun c:*(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" "s" "仿宋体" pt1 pause "0" "边钉线割") (print))&nbsp; </P>
<P>(defun c:T01(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" "s" "仿宋体" pt1 pause "0" "导柱") (print))<BR>(defun c:T02(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" "s" "仿宋体" pt1 pause "0" "管位") (print))<BR>(defun c:T03(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" "s" "仿宋体" pt1 pause "0" "边钉") (print))<BR>(defun c:T04(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" "s" "仿宋体" pt1 pause "0" "杯头") (print))<BR>(defun c:T05(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" "s" "仿宋体" pt1 pause "0" "螺纹") (print))<BR>(defun c:T06(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" "s" "仿宋体" pt1 pause "0" "浮钉") (print))</P>
<P>其余的相同!</P>
页: [1]
查看完整版本: [求助]想到这样一个问题