ajunseo 发表于 2023-8-20 08:59:14

求大神帮助！可付费！

(list("qq" "填充名称1")("ww" "填充名称2"))这样要实现输入QQ命令是调用填充名称1输入WW是调用填充名称2要如何实现呢？求大神帮助！

ssyfeng 发表于 2023-8-20 09:53:51

本帖最后由 ssyfeng 于 2023-8-20 10:20 编辑

根据表先定义命令就可以了。

zj20190405 发表于 2023-8-20 09:54:32

用assoc和eval函数组合下

wzg356 发表于 2023-8-20 19:56:07

(defun c:qq()(cadar(list '("qq" "填充名称1") '("ww" "填充名称2"))))
(defun c:ww()(cadadr(list '("qq" "填充名称1") '("ww" "填充名称2"))))
(defun c:qq()(cadr(assoc "qq"(list '("qq" "填充名称1") '("ww" "填充名称2")))))
(defun c:ww()(cadr(assoc"ww"(list '("qq" "填充名称1") '("ww" "填充名称2")))))

花开富贵 发表于 2023-8-20 23:51:49

(defun cc(lst)

花开富贵 发表于 2023-8-21 00:03:31

(defun cc (lst) (setq fnrite ...新建一个lsp文件) (foreach i lst (princ(strcat "(defun c:" (car i) "() (填充函数 参数)" .... ")" )fnrite) ) (close fnr) (load pathfnr) )
页: [1]
查看完整版本: 求大神帮助！可付费！