批量生成封闭区域到指定图层(应用于板材铺贴)

cheefeel · 发表于 2022-11-30 14:05

本帖最后由 cheefeel 于 2022-12-5 16:55 编辑

如下图所示：

对一些由线条绘制的图形，批量生成封闭区域并归纳到一个图层。

最理想的形态是：每个封闭局域都拥有自己的最少顶点数。
比方说中间那个大的板块，它是由4个顶点组成的矩形。

xj6019 大神提供的为有效解 1楼下载(V2)版
现已能能够实现清除多余端点

如果想要不改变图层
那么在第二行加入以下
(setq oldlay (getvar "CLAYER")) ;;把目前的图层记忆起来
在倒数第二行加入以下
(setvar "clayer" oldlay) ;;把刚刚记忆起来的图层→变成目前的图层

xj6019 · 发表于 2022-11-30 14:05

本帖最后由 xj6019 于 2022-12-5 16:30 编辑

之前写过一个效果大概如图：
2.0小更新之前下载过的可入群免币下载，群号：701625004

lxl217114 · 发表于 2022-11-30 15:34

xj6019 发表于 2022-11-30 14:43
之前写过一个效果大概如图：

哇塞大佬又产出牛码了

cheefeel · 发表于 2022-11-30 15:43

xj6019 发表于 2022-11-30 14:43
之前写过一个效果大概如图：

是我的操作方式不对吗

ZYX2129 · 发表于 2022-11-30 18:09

谢谢主楼谢谢主楼

xj6019 · 发表于 2022-11-30 18:59

能传个图试试不

cheefeel · 发表于 2022-11-30 20:05

xj6019 发表于 2022-11-30 18:59
能传个图试试不

两台电脑都不行
如果大家都没问题的话，明天把CAD初始化后试试，难道是和我的什么插件冲突了？

xj6019 · 发表于 2022-11-30 21:07

cheefeel 发表于 2022-11-30 20:05
两台电脑都不行
如果大家都没问题的话，明天把CAD初始化后试试，难道是和我的什么插件冲突了？

从你的图上试了一下没问题，除了改了改图层其他代码一个字母都没动，有点不知道咋回事了

yoyoho · 发表于 2022-11-30 23:34

本帖最后由 yoyoho 于 2022-11-30 23:38 编辑

                     (command "extrude" "MO" "SU" (ssname ss i)"" 2 )
                     ;(vla-delete (vlax-ename->vla-object(ssname ss i)))
                     (setq i(1+ i))

      ;(setvar "clayer" "你希望的图层名字")  ;------------------------------------定义图层在这里

                                       (setq  s1(ssget "C" P1  P2 '((0 . "*LINE,ARC"))))
                                       ;(command "pedit" "m" s1 "" "y" "j" "" "")
                                       (command "pedit" "m" s1 "" "j" "" "")


AUTOCAD2012测试O.K.

测绘小杰 · 发表于 2022-12-1 08:50

xj6019 发表于 2022-11-30 14:43
之前写过一个效果大概如图：

lsetlsetp nil 为什么啊

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

[提问] 批量生成封闭区域到指定图层(应用于板材铺贴)

最佳答案

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评