tfanghui 发表于 2023-4-19 02:09:29

画圆后填充

画圆后填充，

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

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

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

tomonkey239 发表于 2023-4-19 08:46:24

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


师傅，牛:lol

完整武器 发表于 2023-4-20 07:17:14

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

wangsr 发表于 2023-10-26 14:10:59

不错学习了谢谢
页: [1]
查看完整版本: 画圆后填充