autolisp求助（急）

yuanhaisheng

我想画房子，是pline多义线，最后要求它闭和，用autolisp怎么编程，以下是我写出来的，不能通过，你先告诉我怎么闭和pline线吧 ！ 先谢谢了
(defun C:FZ()
(setvar"clayer""21") ：设置房子的当前层21
(setvar "cecolor" "bylayer") ：设置房子的颜色
(initget 2 "G")
(setq a (getpoint"\nG两点、宽\\<坐标>:"))
(if (= a "G")
(progn(initget 1 "N")
(setq b (getpoint"\nN转点名\\<坐标>:"))
(setq c (getpoint"\n输入第二点:"))
(exit)
(command"pline" a)
(command"pedit"(entlast)"c""x")
)

mccad

按说画个房子也就是一个闭合的长方形，你可能要通过两种方式来选择房子的尺寸，一个是长宽尺寸，一个是直接坐标点取。
在你的程序里，B点好象没有用到什么地方。
(command"pline" a)这一句就没办法画出一条多义线，只有一个点。
你先说说你的思路吧，因为程序里看不出你的思路。

yuanhaisheng

mccad 你好，我现在想了另外一种办法，另外房子不一定是四个角(房角个数不确定），所以我就这样  (defun C:FZ
         (setq a (getpoint))           
         (setq b a)
         (while b                    ；；两点连线循环
             (setq x b)
             (setq b (getpoint))
             (command"pline"x b "")  ；；两点画线
         )
         (command"pline"a x"")       ；；最后闭合
         )
但还是不对这里有错误吗？请指教

mccad