不用按回车的KeyWord

WhoCanSay · 发表于 2021-1-2 09:07:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 WhoCanSay 于 2021-1-2 09:16 编辑

;;(MyKeyWord "a b") (setq str "a b")
(defun MyKeyWord (str / CODE FLAG L X)
  (while (VL-STRING-SEARCH " " str) (setq str (vl-string-subst "" " " str)))
  (setq L (VL-STRING->LIST (strcat (strcase str t) (strcase str nil))))
  (while (not Flag)
(setq code (grread T 8))
(setq Flag (member (cadr code) L))
  )
  (if (= (type Flag) 'LIST)
(VL-LIST->STRING (list (car Flag)))
  )
)

dmxcs · 发表于 2021-1-2 10:08:04

正在求这个呢，好东西啊

HLCAD · 发表于 2021-1-3 08:54:25

这个好！
谢谢楼主
但仅限于输入单个字符

WhoCanSay · 发表于 2021-1-6 13:02:26

dmxcs 发表于 2021-1-2 10:08
正在求这个呢，好东西啊

不好，我发现有问题。

;;(MyKeyWord "对齐[左(Z)/右(Y)]<Z>:")
(defun MyKeyWord (str / CODE FLAG RETURN STR1 STR2)
(princ (strcat "\n " str))
(setq str1 (xd::string:regexps "[\(].[\)]" str ""))
(setq str2 (xd::string:regexps "[\<].[\>]" str ""))
(setq str2 (xd::string:regexps "[^\<|\>]" (car str2) ""))
(setq str1 (mapcar 'car (mapcar 'read str1)))
(setq str1 (apply 'strcat (mapcar 'VL-PRIN1-TO-STRING str1)))
(setq str1 (strcat (strcase str1 nil) (strcase str1 t) " "))
(setq str1 (VL-STRING->LIST str1))
(while (not Flag)
(setq code (grread T 8))
(setq Flag (member (cadr code) str1))
)
(if (= (type Flag) 'LIST)
(setq return (strcase (VL-LIST->STRING (list (car Flag))) nil))
)
(if (= return " ")
(setq return (car str2))
)
return
)

wzg35356 · 发表于 2021-5-5 19:51:56

把关键字结合这个循环判断即可

账号		自动登录	找回密码
密码			立即注册

[研讨] 不用按回车的KeyWord

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评