;;;;;entmake生成填充的圆环

(defun emdonut (d1 d2 p);;;填充的圆环d1内径、d2外径、p圆心点

  (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(67 . 0) '(100 . "AcDbPolyline")

'(90 . 2) '(70 . 1) (cons 43 (* (- d2 d1) 0.5)) (cons 38 (caddr p)) (list 10 (- (car p) (* d1 0.5) (* (- d2 d1) 0.25)) (cadr p)) '(42 . 1.0)

(list 10 (+ (car p) (* d1 0.5)  (* (- d2 d1) 0.25)) (cadr p)) '(42 . 1.0);;;;10为起终点、42为凸度、43为固定线宽、90为顶点数、70为多段线标志，1为关闭

   )

  )

)

;;;;示例

;;;;(emdonut 0 5 '(100 0 0))

;;;;(emdonut 50 50 '(100 0 0))