资源下载

(setq lst(list '(0 0 0) '(10 0 0) '(10 8 0) '(0 8 0)))

;;点表生成多段线

   (entmake (append    (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length lst)))

      (mapcar '(lambda (pt)(cons 10 pt)) lst ))

  )

;;点表生成闭合多段线

   (entmake (append    (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")  (cons 90 (length lst)) '(70 . 1))

      (mapcar '(lambda (pt)(cons 10 pt)) lst ))

  )

若要形成闭合多段线，需要添加'(70 . 1)，而且要求在90组码的后面方可正常创建闭合多段线。

壹加工具，专注于CAD二次开发