请问大佬这句代码应该怎么写才是正确的？希望无限可以点取点，但是setq pt 和getpoint pt 貌似又存在逻辑冲突，请大佬指教。
(while t
(setq pt (getpoint pt "\n请点取点："));;两个pt逻辑存在问题，如何解？
(command ...)
）
网友答: 本帖最后由 vitalgg 于 2024-7-18 22:08 编辑
上面做不到无限，超出列表长度就溢出了。
下面的代码因为有垃圾回收机制，可以接尽无限。
网友答:
第二个更合适，非常感谢
网友答:
学习了
(while t
(setq pt (getpoint pt "\n请点取点："));;两个pt逻辑存在问题，如何解？
(command ...)
）
网友答: 本帖最后由 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:")))
网友答:
vitalgg 发表于 2024-7-18 22:01
上面做不到无限，超出列表长度就溢出了。
下面的代码因为有垃圾回收机制，可以接尽无限。
第二个更合适，非常感谢
网友答:
学习了