社区 › AutoLISP/Visual LISP 编程技术 › 如图有三个文字你好我好他好，选择三个文字用+号连接

longer1000 发表于 2018-9-26 23:00:19

X学习学习。。。。。。

前生 发表于 2018-9-27 00:10:30

个人理解，按左下角的坐标排序可。

669423907 发表于 2018-9-28 11:48:20

看看怎么样

纵横八方 发表于 2018-9-28 12:01:19

支持创意挺有趣

rahim96 发表于 2018-9-29 23:54:17

学习KANKAN

fangmin723 发表于 2018-9-30 07:55:27

黄大师py已入魔了

664571221 发表于 2018-9-30 16:11:05

fangmin723 发表于 2018-9-30 07:55
黄大师py已入魔了

呵呵你也是大师

664571221 发表于 2018-9-30 16:11:18

fangmin723 发表于 2018-9-30 07:55
黄大师py已入魔了

呵呵你也是大师

stoyer 发表于 2018-10-1 17:12:30

取出组码1内容，再用strcat串起来

lisperado 发表于 2018-10-2 03:23:09

本帖最后由 lisperado 于 2018-10-2 08:32 编辑

学习 MP & LM 递归
;方法1
(defun tt (l $ )
((lambda (tt l $) (substr (apply 'strcat (tt l $)) 2))
    '((l $)(if l (cons (strcat $ (car l)) (tt (cdr l) $)))) l $
    )
)

(tt '("A" "B" "C") "+")
"A+B+C"

;方法2
(defun fx (l $)
(
   '( ( fx ) (apply 'strcat (cdr (apply 'append (fx l $)))))
    '( ( l $ ) (if l (cons (list $ (car l)) (fx (cdr l) $))
       )
      )
    )
)


(fx '("A" "B" "C") "+")
"A+B+C"

查看完整版本: 如图有三个文字你好我好他好，选择三个文字用+号连接