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

荒野孤行 · 发表于 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
(setq entnam (ssname ss i))
(setq obj (vlax-ename->vla-object entnam))
(if       (vlax-curve-isclosed obj)
   (progn
      (setq j (1+ j))
      (setq lay (vla-get-layer obj))
      (setq col (vla-get-color obj))
      (setq col (itoa col))
      (setvar "clayer" lay)
      (setvar "cecolor" col)
      (command "HATCH" "SOLID" entnam "")
   )
)
(setq i (1+ i))
  )
  (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
眼拙还是不知道干啥用的

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

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

lucas_3333 发表于 2015-5-26 23:13
没封闭的自动封闭才牛

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

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

支持看贴嘿嘿

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

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

做ppt干啥呢

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

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

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

clinber 发表于 2015-5-26 23:41
做ppt干啥呢

为了展示高大上的技术，装X专用

账号		自动登录	找回密码
密码			注册

[源码] 快速填充（与图元一样的颜色）

本帖子中包含更多资源

相关帖子