申请快速绘制so实体填充

walkmanlh

如题,申请快速批量绘制so的实体填充.


每个矩形交叉点击,绘制很慢,如果有不是矩形的就更麻烦了.

tc405003

;;;===== 点取填充 =====
(defun c:hs (/ sset)
(setq sset (ssget))
(command "layer" "M" "hatch" "c" "252" "" "")
(command "hatch" "Solid" sset "") (princ))