直线转换为矩形框
请帮忙写一个lsp。有不少原来的图纸,图框是4条直线组成的。现在想选择4条边线转换成矩形并删除选择的4条边线,矩形归属到层名为"图框层" 的图层,矩形的颜色线型等属性随层本帖最后由 lee50310 于 2022-11-26 15:55 编辑
將外圍線替換為矩形框程式 tt5
執行指令:tt5
執行效果如動態圖
请附上图,, 本帖最后由 sunny_8848 于 2022-11-26 11:02 编辑
9609759 发表于 2022-11-26 09:43
请附上图,,
谢谢关注,转换后原有的4条边线删除,层的线型为continuous
本帖最后由 lee50310 于 2022-11-29 20:05 编辑
最新版tt6有批量功能
批量將外圍線替換為矩形框
並 刪除舊的外框線段及分堆所產生面積為零的重疊線
執行指令:tt6
lee50310 发表于 2022-11-26 11:04
接合外框線tt4.lsp
執行指令:tt4
谢谢帮忙。唯一美中不足的是,矩形没有放到建立的图框层上,属性随层。不知道能否再完善下 本帖最后由 sunny_8848 于 2022-11-26 12:38 编辑
lee50310 发表于 2022-11-26 11:04
接合外框線tt4.lsp
執行指令:tt4
矩形有时可以有时不能归入到图框层,是不是有时图形比较多的原因,这时也有点点慢? sunny_8848 发表于 2022-11-26 12:36
矩形有时可以有时不能归入到图框层,是不是有时图形比较多的原因,这时也有点点慢?
請給個 測試圖檔 本帖最后由 sunny_8848 于 2022-11-26 13:03 编辑
lee50310 发表于 2022-11-26 12:53
請給個 測試圖檔
左边的图纸有点点卡,还可以接受。就是不能归入图框层
;; 神经元选择,代码需要e派工具箱的支持