批量把没边界的填充重新生成边界的小程序

xsmabbs

之前把没边界的填充重新生成边界的小程序总的在对话框完成，有多个填充的话麻烦，生成填充边界后，配合群里大神们提供的自动标注可以方便的完成一些地块尺寸标注

guosheyang

HATCHGENERATEBOUNDARY   这个cad本身的命令就可以批量生成填充的边界的

qazxswk

HATCHGENERATEBOUNDARY命令，高版本的CAD才有，具体是从哪个版本开始有，有待查证。

夏生生

路过，无聊ing

1. (defun c:tt  (/ en n ss)
   
2. (prompt "\n选择填充:")
   
3. (setq ss (ssget '((0 . "hatch"))))
   
4. (repeat (setq n (sslength ss))
   
5.   (setq en (ssname ss (setq n (1- n))))
   
6.   (vl-cmdf ".-hatchedit" en "b" "p" "n"))
   
7. (princ))

(defun c:tt  (/ en n ss)<br /> (prompt "\n选择填充:")<br /> (setq ss (ssget '((0 . "hatch"))))<br /> (repeat (setq n (sslength ss))<br />   (setq en (ssname ss (setq n (1- n))))<br />   (vl-cmdf ".-hatchedit" en "b" "p" "n"))<br /> (princ))

xyp1964

1. (defun c:tt ()
   
2.   (setq i -1)
   
3.   (princ "\n选择填充: ")
   
4.   (if (setq ss (ssget '((0 . "HATCH"))))
   
5.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
6.       (command "-hatchedit" s1 "b" "p" "n")
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )

(defun c:tt ()<br />   (setq i -1)<br />   (princ "\n选择填充: ")<br />   (if (setq ss (ssget '((0 . "HATCH"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (command "-hatchedit" s1 "b" "p" "n")<br />     )<br />   )<br />   (princ)<br /> )

xiao1984

这是准备高产的节奏啊！

xsmabbs

xiao1984 发表于 2025-5-9 15:44
这是准备高产的节奏啊！

我只是个纯室内装修绘图师，上学没怎么学过编程，基本是小白，今年有ai了，就方便多了，ai可以带我这种小白

xiao1984

xsmabbs 发表于 2025-5-9 15:48
我只是个纯室内装修绘图师，上学没怎么学过编程，基本是小白，今年有ai了，就方便多了，ai可以带我这种 ...

AI些小程序还可以，逻辑性强的还是不行。

xsmabbs

guosheyang 发表于 2025-5-9 17:07
HATCHGENERATEBOUNDARY   这个cad本身的命令就可以批量生成填充的边界的

见笑了，确实不知道这个命令

pizi158545086

感谢大佬分享