批量生成封闭区域到指定图层(应用于板材铺贴)
本帖最后由 cheefeel 于 2022-12-5 16:55 编辑如下图所示：
对一些由线条绘制的图形，批量生成封闭区域并归纳到一个图层。
最理想的形态是：每个封闭局域都拥有自己的最少顶点数。
比方说中间那个大的板块，它是由4个顶点组成的矩形。
xj6019 大神提供的为有效解 1楼下载(V2)版
现已能能够实现清除多余端点
如果想要不改变图层
那么在第二行加入以下
(setq oldlay (getvar "CLAYER"));;把目前的图层记忆起来
在倒数第二行加入以下
(setvar "clayer" oldlay);;把刚刚记忆起来的图层→变成目前的图层
本帖最后由 xj6019 于 2022-12-5 16:30 编辑
之前写过一个效果大概如图：
2.0小更新 之前下载过的可入群免币下载，群号：701625004
xj6019 发表于 2022-11-30 14:43
之前写过一个效果大概如图：
哇塞 大佬又产出牛码了 xj6019 发表于 2022-11-30 14:43
之前写过一个效果大概如图：
是我的操作方式不对吗
谢谢主楼谢谢主楼 能传个图试试不 xj6019 发表于 2022-11-30 18:59
能传个图试试不
两台电脑都不行
如果大家都没问题的话，明天把CAD初始化后试试，难道是和我的什么插件冲突了？
cheefeel 发表于 2022-11-30 20:05
两台电脑都不行
如果大家都没问题的话，明天把CAD初始化后试试，难道是和我的什么插件冲突了？
从你的图上试了一下没问题，除了改了改图层 其他代码一个字母都没动 ，有点不知道咋回事了
本帖最后由 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" "你希望的图层名字");------------------------------------定义图层在这里
(setqs1(ssget "C" P1P2 '((0 . "*LINE,ARC"))))
;(command "pedit" "m" s1 "" "y" "j" "" "")
(command "pedit" "m" s1 "" "j" "" "")
AUTOCAD2012测试O.K.
xj6019 发表于 2022-11-30 14:43
之前写过一个效果大概如图：
lsetlsetp nil 为什么啊