问下帖子里的开源函数库程序执行命令是什么

张超_suXM3

(defun XD::Obj:DXF (elst klst / massoc)
  (setq        massoc (function (lambda (lst key / l)
                           (setq l
                                  (vl-remove-if-not '(lambda (x) (= (car x) key)) lst)
                           )
                           (if (= (length l) 1)
                             (cdar l)
                             (mapcar 'cdr l)
                           )
                         )
               )
  )
  (if (listp klst)
    (mapcar (function (lambda (x) (apply massoc (list elst x))))
            klst
    )
    (apply massoc (list elst  klst))
  )
)

newer

你是想开发LISP程序吗？

张超_suXM3

newer 发表于 2020-8-25 21:59
你是想开发LISP程序吗？

只是有时间偶尔研究学习下，就是不知道这个开源函数库的代码放到cad的VLIDE里执行不了，晓东工具箱和API都下载了。

newer

张超_suXM3 发表于 2020-8-26 10:13
只是有时间偶尔研究学习下，就是不知道这个开源函数库的代码放到cad的VLIDE里执行不了，晓东工具箱和API ...

你是怎么用的？ 如果你是想开发，那么如果运行函数遇到有错误，把具体错误提示帖到论坛

张超_suXM3

newer 发表于 2020-8-26 10:16
你是怎么用的？ 如果你是想开发，那么如果运行函数遇到有错误，把具体错误提示帖到论坛

(defun XD::Obj:DXF (elst klst / massoc)
  (setq        massoc (function (lambda (lst key / l)
                           (setq l
                                  (vl-remove-if-not '(lambda (x) (= (car x) key)) lst)
                           )
                           (if (= (length l) 1)
                             (cdar l)
                             (mapcar 'cdr l)
                           )
                         )
               )
  )
  (if (listp klst)
    (mapcar (function (lambda (x) (apply massoc (list elst x))))
            klst
    )
    (apply massoc (list elst  klst))
  )
)
我执行上面的代码显示

newer

张超_suXM3 发表于 2020-8-26 10:36
(defun XD::Obj:DXF (elst klst / massoc)
  (setq        massoc (function (lambda (lst key / l)
   ...

我为什么那么问你，就是看你的帖子，说明，学习精神可嘉，你要是想做二次开发，还得多看看论坛的帖子

你贴的代码是函数，不是命令，
函数没有执行命令一说

这个函数的作用是获得对象的DXF链表的内容。

他不是具体完成某些工作的完整的程序

是一个完整的工作的程序中需要的其中的一部分代码

你要想找直接执行就能完成某项工作的，去编程申请，每日插件论坛。

张超_suXM3

newer 发表于 2020-8-26 11:07
我为什么那么问你，就是看你的帖子，说明，学习精神可嘉，你要是想做二次开发，还得多看看论坛的帖子

...

懂了，非常感谢，我一直以为这些代码能执行一个完整的工作