画圆后填充

tfanghui

画圆后填充，

       好久不发帖了，      有网友说要在画圆后填充实体并删除边界，写了几句，当做抛砖引玉吧，目前已实现（在0,0原点）画圆后填充实体再删除边界，但还有点差强人意，觉得有用的有缘人拿去玩吧。

飞雪神光

1. (defun c:tt(/ pt ty)
   
2.         (setq pt(getpoint "\n生成位置:"))
   
3.         (setq ty(entmakex (list '(0 . "CIRCLE")'(100 . "AcDbEntity")'(100 . "AcDbCircle")(cons 10 pt)(cons 40 10))))
   
4.         (setvar "cmdecho" 0)
   
5.         (vl-cmdf "-hatch" "P" "SOLID" "S" ty "" "")
   
6.         (entdel ty)
   
7.         (print)
   
8. )

(defun c:tt(/ pt ty)<br />         (setq pt(getpoint "\n生成位置:"))<br />         (setq ty(entmakex (list '(0 . "CIRCLE")'(100 . "AcDbEntity")'(100 . "AcDbCircle")(cons 10 pt)(cons 40 10))))<br />         (setvar "cmdecho" 0)<br />         (vl-cmdf "-hatch" "P" "SOLID" "S" ty "" "")<br />         (entdel ty)<br />         (print)<br /> )

tomonkey239

飞雪神光 发表于 2023-4-19 07:58

师傅，牛

完整武器

cad自带的画圆环命令DONUT好像可以实现，内径为0，外径100  

wangsr

不错学习了谢谢