如何将while循环产生的n个点连接成一条pl线（不知道产生多少个点）

dcg553496180

除了将每次产生的点坐标写入一个文件，然后循环结束后读文件生成pl线以外的方法
希望得到各位大神的指点，多谢各位

寒林清远

        (setq p0 (getpoint "\n选择起点:"))
        (setq p1 (getpoint "\n选择第二点:" p0))
        (command "PLINE" p0 "W" "0" "0" p1 "")
        (setq L0 (entlast))
        (while (setq p2 (getpoint "\n选择下一点:" p1))
                (command "LINE" p2 p1 "")
                (setq L1 (entlast))
                (command "peditaccept" "0")
                (command "pedit" "M" L0 L1 "" "Y" "J" "0" "")
                (setq L0 (entlast))
                (setq p1 p2 p2 nil)
        )
        (command "LINE" p1 p0 "")
        (setq L1 (entlast))
        (command "pedit" "M" L0 L1 "" "Y" "J" "0" "")

寒林清远

可能跟你的要求不同，我这个是从自己的一个程序中提出来的，while循环中是不断输入点。

dcg553496180

寒林清远 发表于 2013-10-15 12:11
可能跟你的要求不同，我这个是从自己的一个程序中提出来的，while循环中是不断输入点。

你的思路是生成一个点就画一段，然后跟前面的用pedit命令合并，我刚开始也这么想的，也不错，谢谢指点

寒林清远

指点是谈不上，我这是个笨办法，自己做结构的，也没多少时间钻研lisp，有时自己编的lsp自己也觉得拙劣，但有时觉得能实现目的也就懒得再精益求精了。
希望论坛里的高手能支招，提供更好的办法，提高程序的运行效率。

dcg553496180

寒林清远 发表于 2013-10-15 14:32
指点是谈不上，我这是个笨办法，自己做结构的，也没多少时间钻研lisp，有时自己编的lsp自己也觉得拙劣，但有 ...

我是今年刚刚毕业参加工作的应届毕业生，就刚刚上班的时候自己学了半个月，很多东西都不懂！如果没人提供更好的办法我就还是采用先写一个坐标文件，然后把循环结束以后调用写好的文件生成一条pl线

start4444