[编程交流] 多边形的创建功能

(setq obj (entlast))
(command "fillet" "P" "r" 30 obj)

(defun c:test ()
 (entmake '((0 . "LWPOLYLINE")
        (100 . "AcDbEntity")
        (8 . "0")
        (100 . "AcDbPolyline")
        (90 . ;Number of vertices
        (10 176.0636632716071 279.6390112374238); 10 =Vertex coordinates (in OCS), multiple entries; one entry for each vertex
        (10 346.0636632716071 279.6390112374238)
        (42 . 0.414213562373095); 42=Bulge (multiple entries; one entry for each vertex) (optional; default = 0)
        (10 376.0636632716071 309.6390112374238)
        (10 376.0636632716071 449.6390112374237)
        (42 . -0.414213562373095)
        (10 406.0636632716071 479.6390112374238)
        (10 568.0354241512509 479.6390112374238)
        (42 . 0.131490546050545) 
        (10 583.0188770098191 483.6487026506627)
        (10 821.2389076067196 620.9829165365836)
        (70 . 0);Polyline flag (bit-coded); default is 0: 1 = Closed;
       )
 )
 (princ)
)                    

(defun make_sq ()
(setq vertexList (list 
(list -3.25 -3.25 0.)
(list 3.25 -3.25 0.)
(list 3.25 3.25 0.)
(list -3.25 3.25 0.)
))
(entmakex
(append 
(list '(0 . "LWPOLYLINE") 
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length vertexList))
(cons 70 1)  ; 1 closed : 0 open
(cons 8 "0")
(cons 38 0.0)
(cons 210 (list 0.0 0.0 1.0))
)
(mapcar '(lambda (pt) (cons 10 pt)) vertexList)
)
)
)