AutoLISP vẽ Pline từ danh sách tọa độ | Draw a lwpolyline from a pointlist LeeMac | AutoLISP Reviewer

Mã nguồn được sưu tầm bởi đội ngũ AutoLISP Thật là đơn giản

    

Thông tin thêm: 👉👉👉

Mã nguồn (LeeMac)

Lưu mã sau dưới dạng tệp tin .lsp

Code:

(defun LWPoly (lst cls)
	;Originally created by Lee Mac
	(entmakex (append (list (cons 0 "LWPOLYLINE")
                         (cons 100 "AcDbEntity")
                         (cons 100 "AcDbPolyline")
                         (cons 90 (length lst))
                         (cons 70 cls))
                   (mapcar (function (lambda (p) (cons 10 p))) lst)
				   )
	)
)

Cách sử dụng

Code:

(LWPoly PointList 0)

Nguồn tham khảo:

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/need-lisp-for-polyline/td-p/8478097

---------------------------------------------------------------------------------------------

Ứng dụng được phát triển bởi đội ngũ AutoLISP Thật là đơn giản - Tác giả ứng dụng in D2P

    

Mọi thông tin xin liên hệ Fanpage AutoLISP Thật là đơn giản!

Cảm ơn bạn đã theo dõi!