无限循环点逻辑问题

cafa

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

vitalgg

1. (setq pts (cons (getpoint "\n请点击:") nil))
   
2. (while (setq pt (getpoint (car pts) "\n请点击:"))
   
3. (setq pts (cons pt pts))
   
4. )

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

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

1. (setq pt (getpoint))
   
2. (while (setq pt (getpoint pt "\nClick:")))

(setq pt (getpoint))<br /> (while (setq pt (getpoint pt "\nClick:")))

cafa

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

第二个更合适，非常感谢

MZ_li

学习了