求助:如何根据列表中的点绘制闭合多边形

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)))

ZZXXQQ

2. (DEFUN DRAWPL (PDLST)
3. (SETVAR "CMDECHO" 0)
4. (SETQ N 0)
5. (COMMAND "PLINE" (CAR PDLST))
6. (REPEAT (LENGTH PDLST)
7.   (COMMAND (NTH (SETQ N (1+ N)) PDLST))
8. )
9. (COMMAND "")
10. (PRINC)
11. )

复制代码

runner1973

谢谢二楼,帮我解决了大问题

飞诗(fsxm)

(command "pline")

(foreach pt ptlst (command pt))

(command "")