cafa 发表于 2024-7-18 21:04:01

无限循环点逻辑问题

请问大佬这句代码应该怎么写才是正确的？希望无限可以点取点，但是setq pt 和getpoint pt 貌似又存在逻辑冲突，请大佬指教。
(while t
(setq pt (getpoint pt "\n请点取点："));;两个pt逻辑存在问题，如何解？
      (command ...)
）

vitalgg 发表于 2024-7-18 22:01:31

本帖最后由 vitalgg 于 2024-7-18 22:08 编辑

(setq pts (cons (getpoint "\n请点击:") nil))
(while (setq pt (getpoint (car pts) "\n请点击:"))
(setq pts (cons pt pts))
)

上面做不到无限，超出列表长度就溢出了。
下面的代码因为有垃圾回收机制，可以接尽无限。

(setq pt (getpoint))
(while (setq pt (getpoint pt "\nClick:")))

cafa 发表于 2024-7-18 23:39:37

vitalgg 发表于 2024-7-18 22:01
上面做不到无限，超出列表长度就溢出了。
下面的代码因为有垃圾回收机制，可以接尽无限。

第二个更合适，非常感谢

MZ_li 发表于 2024-7-19 10:59:08

学习了:lol
页: [1]
查看完整版本: 无限循环点逻辑问题