求助,如何根据列表中的点画闭合线

runner1973

我是新手,向各位大侠请教一个问题,我想根据列表Dotlist中的点构造封闭多边形,  如果点的个数不多,可以用(COMMAND "PLINE" pt1 pt2 pt3 pt4 "C")来做,但是列表中的点如果个数太多了,请问一下如何通过循环来实现,谢谢.

例,DOTLIST如下所示

(setq dotlist '((29.3013 2.42917)(147.692 2.42917)(197.639 82.2516)(124.754 82.2516)(124.754 36.4276)(71.8481 36.4276)(71.8481 65.2524)(35.5909 55.2746)(10 68.5184 18.6893) (10 34.481 12.407)))
   

zcmwxq

用多段线，获取点的信息构造封闭曲线

runner1973

已有大侠帮我解决了,谢谢各位

(DEFUN DRAWPL (PDLST)
  (SETVAR "CMDECHO" 0)
  (SETQ N 0)
  (COMMAND "PLINE" (CAR PDLST))
  (REPEAT (LENGTH PDLST)
   (COMMAND (NTH (SETQ N (1+ N)) PDLST))
  )
  (COMMAND "")
  (PRINC)
)

xyp1964

xyp-Entmake-lwPolyline

建立多段线

(xyp-Entmake-lwPolyline 点集 mode)

mode: 0,打开；1,闭合