社区 › AutoLISP/Visual LISP 编程技术 › lisp动态程序示例

redcat 发表于 2013-8-31 16:53:54

lisp动态程序示例

本帖最后由 redcat 于 2013-8-31 17:15 编辑

当然此项技术也可以用于动态DCL、动态识别lisp中
(defun tt (x y) (mapcar '* x y))(tt '(4 5) '(1 2))

(setq tt '((x y) (mapcar '* x y)))
(tt '(4 5) '(1 2))


(mapcar '(list '(x y) '(* x y)) '(4 5) '(1 2))

(eval
(read        (vl-prin1-to-string
          '(mapcar '(list '(x y) '(* x y)) '(4 5) '(1 2))
        ) ;_ 结束vl-prin1-to-string
) ;_ 结束read
) ;_ 结束eval


(eval (read (vl-prin1-to-string
              '(defun tt (x y) (mapcar '* x y))
          ) ;_ 结束vl-prin1-to-string
      ) ;_ 结束read
) ;_ 结束eval
(eval (read (vl-prin1-to-string '(tt '(4 5) '(1 2)))))

(foreach n (list
             '(defun tt (x y) (mapcar '* x y))
             '(tt '(4 5) '(1 2))
           ) ;_ 结束list
(eval (read (vl-prin1-to-string n)))
) ;_ 结束foreach

(foreach n (list
             '(defun tt (x y) (mapcar '* x y))
             '(tt '(4 5) '(1 2))
           ) ;_ 结束list
(eval n)
) ;_ 结束foreach

wkq004 发表于 2019-3-29 03:54:31

curugi 发表于 2018-2-1 00:22:10

如果有个dcl配合lsp实例就好了

vlisp2012 发表于 2013-8-31 20:12:40

多谢楼主了。
目前还未搞懂呢。

redcat 发表于 2013-9-1 09:15:34

配合这个效果会更好LISP定义可选参数函数的调用

gdslqs 发表于 2013-9-1 14:32:04

配个图就好了

tianyi1230 发表于 2013-9-2 18:06:16

上演示吧，楼主来个实际的例子好吗

xhq1954425 发表于 2013-9-2 18:47:47

试了一下也没能运行了，这是什么东西呀？

xiaxiang 发表于 2013-9-2 20:00:21

曲高和寡

fl202 发表于 2013-9-2 20:10:48

没看懂，楼主解释下？

龙城飞将36 发表于 2013-9-3 07:50:14

太高深了，不懂~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

czcxxx 发表于 2015-10-6 16:56:34

谢谢分享！！！！！！！！！！！！！

查看完整版本: lisp动态程序示例