Tạo List tự nối các đỉnh của PL với 1 điểm đã chọn

[Trí Đức 0]

Khi ngồi vẽ một ngôi sao rồi nối các đỉnh của nó về trung tâm mới nghĩ nhờ ai đó tạo ra 1 cái List mà khi bấm chọn 1 đường Polyline và 1 điểm thì Cad tự động nối các đỉnh của PL này với điểm đã chọn đó. Thanks!

[ketxu 2999]

Quick code, bạn có thể sửa theo ý bạn
 

(defun c:foo(/ e ed p)
	(while 
		(and 
			(setq e (car (entsel "\nSelect Pline :")))			
			(wcmatch (acet-dxf 0 (setq ed (entget e))) "*POLYLINE")
			(setq p (getpoint "\nPoint :"))
		)
		(mapcar '(lambda(x)(entmake (list (cons 0 "LINE")(cons 10 p)(cons 11 x))))
			(acet-geom-vertex-list e)
		)
	)
	(princ)
)