坐标点连接成一个封闭线框

szx025

(setq m (length ns))
  (setq b 0 c 1)
  (command "pline")
  (repeat m
  (setq p3 (nth b ns) p4(nth c ns))
  (if (= p4 nil)
    (setq p4 (car ns))  ;如果结束点没有了，就把开始点赋值给结束点，让边线封闭
  )
    (command  p3 p4 )
  (setq b (+ b 1) c (+ c 1))
  )
  (command "")
NS是坐标点列表，此程序是把这些点顺次用PLINE线连接成一个封闭线框，这个应该是最原始的写法，不知还有没有更好的写法

mahuan1279

(apply 'command (cons "pline" (reverse (cons "c" (reverse pts)))))

Dea25

(defun emLW(pts flags / ent pt);;pts=坐标列表，flags=1闭合,0不闭合;;By:Dea25
(entmakex (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")  (cons 90 (length pts)) (cons 70 flags) ) (mapcar '(lambda (pt)(cons 10 pt)) pts )) )
)

感谢，llsheng_73兄指点，

llsheng_73

Dea25 发表于 2023-10-10 10:43
(defun emLW(pts flags / ent pt);;pts=坐标列表，flags=1闭合,0不闭合;;By:Dea25
(entmake (append (list ...

entmakex了解下

leedun

新手不知道代码怎么用，请指教