查看单个帖子
旧 2009-04-26, 03:27 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 [讨论]如何实现,按键自动生成字符。

[讨论]如何实现,按键自动生成字符。
www.dimcax.com
[讨论]如何实现,按键自动生成字符。
重复几个字母或者数字,每次都要粘贴以后再修改内容。
能不能实现直接按键,就生成想要的文字,直接鼠标定位就可以了。
感觉比较简单吧。
例:按键盘上的“1”键,就在图中生成了一个1的数字,鼠标点击一下,定位就ok了。
d
定义text的内容获得点了
d
机械专业的我,憋了一下午,弄出来了。。。
(defun c:1(/ sw)
(setq sw (getstring "\n入力字符:"))
(command "text" (setq p (getpoint "\n取位置:")) "10" "0" sw)
(prin1)
)
d
就这几行,有位dx管我要100元,给我写。
一憋气,我自己来了。
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)