荒野孤行 发表于 2015-5-26 22:24:16

快速填充（与图元一样的颜色）

本帖最后由 荒野孤行 于 2015-5-26 22:27 编辑

提示：对于无闭合、空心的图案请自己测试，具体导致的原因请分析源码。请看演示图：

;;; ********** 快速填充 程序开始 ********
(defun c:tc ()
(setvar "cmdecho" 0)
(princ "\n★功能：快速填充多段线.\n")
(setvar "osmode" 15359)
(command "undo" "be")
(setq ss (ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE"))))
(if (null ss)
    (progn (princ "\n提示：未选取多段线或圆!") (exit))
)
(vl-load-com)
(setq      i 0
      j 0
)
(setvar "HPNAME" "SOLID")
(setq num (sslength ss))
(repeat num
**** Hidden Message *****
(alert (strcat "提示：\n共选取 "
               (itoa num)
               " 个图元，其中：\n有 "
               (itoa j)
               " 个图元填充成功\n有 "
               (itoa (- i j))
               " 个图元填充失败！\n"
         )
)
(command "undo" "e")
(setvar "osmode" 15359)
(princ "\n")
(princ)
)
;;; ********** 快速填充 程序结束 ********

andyzha 发表于 2019-4-29 11:22:35

快速填充很有实用意义，cad自带的填充步骤太多了。

w379106181 发表于 2022-11-11 10:16:15

学习学习，我觉得楼主的批量交点插块写的很实用

不想多说 发表于 2019-4-27 17:36:48

学习学习，我觉得楼主的批量交点插块写的很实用

ucuc2003 发表于 2015-5-26 23:09:47

支持源码！很不错的程序

lucas_3333 发表于 2015-5-26 23:13:01

没封闭的自动封闭才牛

clinber 发表于 2015-5-26 23:21:41

眼拙 还是不知道干啥用的

荒野孤行 发表于 2015-5-26 23:32:53

clinber 发表于 2015-5-26 23:21 static/image/common/back.gif
眼拙 还是不知道干啥用的

我一般是这样填充做好后截图丢到ppt里面

荒野孤行 发表于 2015-5-26 23:33:26

lucas_3333 发表于 2015-5-26 23:13 static/image/common/back.gif
没封闭的自动封闭才牛

有专门检查未闭合线的程序，所以这里没加入此项。

lzg8877 发表于 2015-5-26 23:34:24

支持 看贴 嘿嘿

clinber 发表于 2015-5-26 23:41:27

荒野孤行 发表于 2015-5-26 23:32 static/image/common/back.gif
我一般是这样填充做好后截图丢到ppt里面

做ppt干啥呢

hao3ren 发表于 2015-5-26 23:41:34

批量填充，填充是各自分离的吗

荒野孤行 发表于 2015-5-26 23:42:23

clinber 发表于 2015-5-26 23:41 static/image/common/back.gif
做ppt干啥呢

为了展示高大上的技术，装X专用
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 快速填充（与图元一样的颜色）