修改以下内容是否有帮助

hosyn · 发表于 2022-7-5 22:34:21

我有以下代码：


(defun c:test ( / ss )
 (if (setq ss (ssget "_:L"))
   (command "_.move" ss "" "_non" '(0. 0. 0.) "_non" '(-20 0. 0.));; [color="red"]<<destination [/color]change to (19,10,0)
 )
 (princ)
)

Tharwat · 发表于 2022-7-5 22:41:57

又是那么多了

hosyn · 发表于 2022-7-5 22:43:37

塔尔瓦特，

本部分：

这不应该是：

copy


 (mapcar '(lambda (q p) (/ (+ q p) 2.))                        
   (list a d)                        
   (list c b)
 )

Tharwat · 发表于 2022-7-5 22:48:14

逻辑上应该是这样，但实际上不是这样，因为我在收集所需信息（坐标）时没有将它们整理好。

hosyn · 发表于 2022-7-5 22:54:22

不客气hosyn

Tharwat · 发表于 2022-7-5 22:57:04

是的，你说得对，塔瓦。。。您的地图车正在按第一个序列查找两个列表中的第一个项目，然后是第二个项目。。。谢谢，你纠正了我，我忽略了。。。

hosyn · 发表于 2022-7-5 22:59:24

不客气，马尔科，这是我的荣幸。

Tharwat · 发表于 2022-7-5 23:03:39

下面是另一种书写方式：

copy

hosyn · 发表于 2022-7-5 23:08:00

很高兴知道，带有min和max函数之一的mapcar处理列表，如果符合条件，则返回谓词列表。
谢谢你的修改。

marko_ribar · 发表于 2022-7-5 23:13:16

[编程交流] 修改以下内容是否有帮助

发表回复

精选推荐