社区 › Auto Lisp › 修改以下内容是否有帮助

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.));; <<destination change to (19,10,0)
)
(princ)
)

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

又是那么多了

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

塔尔瓦特，
 
本部分：
 
这不应该是：
 

(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

下面是另一种书写方式：
3

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

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

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

查看完整版本: 修改以下内容是否有帮助