请教关于绘多段线的问题

kite

请教各位大虾：

    我有一个问题：如果要在屏幕上画一条多段线,再提取多段线的坐标,那首先那条多段线用LISP的什么函数画。
    如果用（COMMAND “PLINE”），它首先要各点的坐标
    如果用 GETPOINT，它只能显示两点之间的那条线段

龙龙仔

(defun C:TT (/ HOLDECHO P_LIST)
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "._PLINE")
  (prompt "\n指定起点: ")
  (command PAUSE)
  (while (= (getvar "CMDACTIVE") 1)
    (setq P_LIST (append P_LIST (list (getvar "lastpoint"))))
    (prompt "\n指定下一点: ")
    (command PAUSE)
  )
  (command)
  (print P_LIST)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)

kite