非常好用的填充描边

nyistjz · 发表于 2023-1-30 14:53

本帖最后由 nyistjz 于 2023-1-31 09:48 编辑

十分好用的填充描边，配合工具箱一起使用，可以实现实时计算周长及面积。
对填充的选择有两种办法，一种是按参考对象选，另一种是忽略特性选择，并且可屏蔽已有关联边界的填充。
具体操作方法，请注意命令行提示。

工具箱说明及地址：
http://bbs.mjtd.com/thread-184305-1-1.html

alexmai · 发表于 2023-1-30 21:56

;; 填充边界恢复
(defun C:hb (/ E I SS)
  (if (setq SS (ssget '((0 . "HATCH"))))
(repeat (setq I (sslength SS))
   (setq E (ssname SS (setq I (1- I))))
  (if (null (tblsearch "LAYER" "B-Hatch"))
   (command "-LAYER" "M" "B-Hatch" "C" 7 "" "" "")
  )
   (command "-LAYER" "s" "B-Hatch" "")
   (setvar "cecolor" "bylayer")
   (command ".-HATCHEDIT" E "B" "P" "Y")
   (command "-layer" "s" "0" "")
   (command "OSNAPHATCH" "1")
)
  )
  (princ)
)

e2002 · 发表于 2023-1-30 16:31

hatchedit 有创建边界的功能呀...

nyistjz · 发表于 2023-1-30 17:07

e2002 发表于 2023-1-30 16:31
hatchedit 有创建边界的功能呀...

是的，可以理解为对这个功能的优化，操作更为方便。

中国梦 · 发表于 2023-1-30 21:42

谢谢楼主分享

zxfddz · 发表于 2023-2-6 11:33

学习了，谢谢分享

迷失1786 · 发表于 2024-6-13 00:10

学习了，谢谢分享

yk1216 · 发表于 2024-6-13 09:04

学习了，谢谢分享

guosheyang · 发表于 2024-6-13 09:18

HATCHGENERATEBOUNDARY 命令也可以创建边界

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

[源码] 非常好用的填充描边

本帖子中包含更多资源

评分