autolisp求助（急）

yuanhaisheng · 发表于 2002-6-22 11:50:00

我想画房子，是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 · 发表于 2002-6-22 12:40:00

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

yuanhaisheng · 发表于 2002-6-24 13:06:00

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"")    ；；最后闭合
      )
但还是不对这里有错误吗？请指教

autolisp求助（急）

发表回复

精选推荐

浏览过的版块