defun-q-list-set （AutoLISP）
将符号的值设置为由列表定义的函数 支持的平台：Windows、Mac OS 和 Web 签名(defun-q-list-set 'sym list)
返回值类型：列表、符号或 nil 符号定义。 例子(defun-q-list-set 'foo '((x) x)) FOO (foo 3) 3 下面的示例演示了如何使用 将两个函数组合成一个函数：defun-q-list-setdefun-q (defun-q s::startup (x) (print x)) S::STARTUP (defun-q my-startup (x) (print (list x))) MY-STARTUP 用于将函数组合成单个函数：defun-q-list-set (defun-q-list-set 's::startup (append (defun-q-list-ref 's::startup) (cdr (defun-q-list-ref 'my-startup)))) S::STARTUP 下面说明了函数如何单独响应，以及函数在组合后如何工作：defun-q-list-set (defun-q foo (x) (print (list 'foo x)))
FOO
(foo 1)
(FOO 1) (FOO 1)
(defun-q bar (x) (print (list 'bar x)))
BAR
(bar 2)
(BAR 2) (BAR 2)
(defun-q-list-set
'foo
(append (defun-q-list-ref 'foo)
(cdr (defun-q-list-ref 'bar))
))
FOO
(foo 3)
(FOO 3)
(BAR 3) (BAR 3)
相关概念 |
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-3-28 16:50
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
