本帖最后由 vitalgg 于 2024-7-18 22:08 编辑
![](source/plugin/imc_colorcode/images/loading.gif) - (setq pts (cons (getpoint "\n请点击:") nil))
- (while (setq pt (getpoint (car pts) "\n请点击:"))
- (setq pts (cons pt pts))
- )
上面做不到无限,超出列表长度就溢出了。
下面的代码因为有垃圾回收机制,可以接尽无限。
![](source/plugin/imc_colorcode/images/loading.gif) - (setq pt (getpoint))
- (while (setq pt (getpoint pt "\nClick:")))
|