[讨论]如何实现，按键自动生成字符。

大洗衣盆

重复几个字母或者数字，每次都要粘贴以后再修改内容。

能不能实现直接按键，就生成想要的文字，直接鼠标定位就可以了。

感觉比较简单吧。

例：按键盘上的“1”键，就在图中生成了一个1的数字，鼠标点击一下，定位就OK了。


机械专业的我，憋了一下午，弄出来了。。。[/COLOR]


(defun c:1(/ sw)
  (setq sw (getstring "\n入力字符:"))
  (COMMAND "TEXT" (setq p (getpoint "\n取位置：")) "10" "0" sw)
  (prin1)
)

carrot1983

这个东西要憋一下午。。。
还有相当大的发展空间...

大洗衣盆

最初由 carrot1983 发布
[B]这个东西要憋一下午。。。
还有相当大的发展空间... [/B]

。。。惭愧啊。。

从来没学过编程。一开始，括号干什么的我都不知道。。

算是我的第一个小程序啊。

zml84

[php]
(defun C:1 (/ SW)
    (if        (setq SW (getstring "\n字符: "))
        (progn
            (command "TEXT" "non" '(0 0) 10 0 SW)
            (command "_.move" (entlast) "" "non" '(0 0))
        )
    )
    (princ)
)
[/php]

taner

最初由 zml84 发布
[B][php]
(defun C:1 (/ SW)
    (if        (setq SW (getstring "\n字符: "))
        (progn
            (command "TEXT" "non" '(0 0) 10 0 SW)
            (command "_.move" (entlast) "" "non" '(0 0))
        )
    )
    (princ)
)
[... [/B]

用2次COMMAND,还不如用一楼

carrot1983

例：按键盘上的“1”键，就在图中生成了一个1的数字，鼠标点击一下，定位就OK了。

(defun c:1(/ sw)
(setq sw (getstring "\n入力字符:"))
(COMMAND "TEXT" (setq p (getpoint "\n取位置：")) "10" "0" sw)
(prin1)
)

从你的中文表述和你写的代码来看，两者是不符合的。
按你的中文表述：
根据我的理解是“根据按键来实现同个程序的不同参数”
本来是很难办到的。

zml84

最初由 taner 发布
用2次COMMAND,还不如用一楼[/B]

各有所好，需求不同。

应当更多的考虑用户体验。

zml84

最初由 carrot1983 发布
根据[B]carrot1983
[/B]的理解是“根据按键来实现同个程序的不同参数”
本来是很难办到的。

特定的内容是可以的。

hhjj9898

不错