lenovo1x1 发表于 2013-9-2 00:13:58

怎么实现点区域同时生成轮廓线和填充


怎么实现点区域同时生成轮廓线和填充,两种图层（如图)


zlg258369 发表于 2013-9-3 21:25:24

(if (= nil (tblsearch "layer" "边界"))
    (command "layer" "m" "边界" "")
    (setvar "clayer" "边界")
)
(bpoly (getpoint "\n指定点:"))
(if (= nil (tblsearch "layer" "填充"))
    (command "layer" "m" "填充" "")
    (setvar "clayer" "填充")
)
(command "HATCH"
           "密封胶"
           "1"
           0 ;角度
           (entlast)
           ""
)
页: [1]
查看完整版本: 怎么实现点区域同时生成轮廓线和填充