[求助]：如何在LISP下画多边形

yaker_77

我想在CAD下画一个未知边数的多边形，然后再提取这个多边形的周长和面积

1、因为边数未知，我就要指定N个点，这个点的名称好像只能用数组参数A（n我）然后再对n循环？如何定义数组参数呢 (setq a "")
2、如果我得到了N个参数，我如何用编辑这个程序呢 (command "pline" A1 A2...An)。这是CAD内部程序，怎么进行循环呢？

哪位高手帮帮我，谢谢了！

Underway

画一个未知边数的多边形

Command: (command "Pline")
Pline
Specify start point: nil

Specify start point: (while (= (logand (getvar "CmdActive") 1) 1) (command  pause))

Current line-width is 0.0000
Specify next point or [Arc/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: c

Command: nil

Command: (command "Area" "o" "L")
Area
Specify first corner point or [Object/Add/Subtract]: o
Select objects: L
Area = 1149.4284, Perimeter = 206.1800

Command: nil

Command: (getvar "Area")
1149.43

Command: (getvar "perimeter")
206.18

;;===========================================================

(command "Pline")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))

(command "Area" "o" "L")    ; 周长和面积
(getvar "Area")             ; 面积
(getvar "perimeter")        ; 周长

yaker_77

我已经找到了，累死了
本论坛我一直看到2005年都没找到，最后还在明经社区搜索到的

;;画多段线
(defun C:hx ()
    (setq sp (getpoint "\\n输入第一点::"))

    (command"pline" Sp)
    (while  (setq p (getpoint sp "\\n输入下一点<右键结束>:"))
         (setq sp p ) (command p)
    )
)

zxq0220

[php]
(defun c:tt ()
(command ".pline")
(while (not (zerop (getvar "CMDACTIVE"))) (command pause))
(command ".area" "o" "L")
(princ "\n周长:") (princ (getvar "PERIMETER"))
(princ "\n面积:") (princ (getvar "AREA"))
(princ)
)
[/php]

yaker_77

谢谢 ！这个好用多了

cadmap

学习学习！