lee50310 发表于 2023-12-25 11:34:28

<*** 已更新 分享兩款程式: 1.圖形陣列接合 2.圖形選取接合 ***>

本帖最后由 lee50310 于 2023-12-27 09:27 编辑

剛寫好兩款程式: 1.圖形陣ˋ列接合2.圖形選取接合

最新更新版
           (1).圖形陣列接合   wcut4_chs.fas    修正陣列指定參數錯置   日期:2023/12/26

更新版(1).圖形陣列接合   wcut3_chs.fas    修正陣列指定參數不明確日期:2023/12/26
             (2).圖形選擇接合   scut3_chs.fas
                           

分享
程式:
      (1).圖形 陣列接合 程式名稱:wcut2_chs.fas   執行指令:wcut      ,可設定邊距及間距值    執行指令:wset   ,默認值=30
      (2).圖形選擇接合程式名稱:   scut_chs.fas   執行指令:scut       ,可設定邊距及間距值    執行指令:mset   ,默認值=30


          
   
    執行方式:選取圖形封閉外圍框 如動圖所示
               ps :1. 不支援 圖塊 (block ), 使用的封閉多邊形圖格式 請參考 測試圖檔:test2.dwg   
                   2. 陣列接合請選取開口朝上的圖形, 選取接合請選取開口朝下的圖形






lee50310 发表于 2023-12-26 04:54:06

本帖最后由 lee50310 于 2023-12-26 09:32 编辑

1028882406@qq.c 发表于 2023-12-26 00:47
命令: (LOAD "C:/Users/Administrator/Desktop/新建文件夹/wcut2_chs.fas")
线切割:物体阵列接合 by lee5 ...
已修正 請重新下載最新版
最新更新版 (1).圖形陣列接合wcut3_chs.fas    修正陣列指定參數不明確日期:2023/12/26
               (2).圖形選擇接合   scut3_chs.fas

1028882406@qq.c 发表于 2023-12-26 12:26:13

1028882406@qq.c 发表于 2023-12-26 10:59
命令: (LOAD "C:/Users/Administrator/Desktop/wcut3_chs.fas")
线切割:物体阵列接合 by lee50310 执行 ...

命令: (LOAD "C:/Users/Administrator/Desktop/wcut4_chs.fas")
线切割:物体阵列接合 by lee50310 执行指令:wcut   设边距,间距指令:wset"\n线切割:物体阵列接合 by lee50310
执行指令:wcut   设边距,间距指令:wset"

命令: wcut
选择对象:
输入数量:5

输入插入点:未知命令“ARRAYRECT”。按 F1 查看帮助。
<选择集: 88>
未知命令“WCUT”。按 F1 查看帮助。
未知命令“WCUT”。按 F1 查看帮助。
未知命令“COU”。按 F1 查看帮助。
1
5
未知命令“S”。按 F1 查看帮助。
108.977763
未知命令“WCUT”。按 F1 查看帮助。
108.977763
未知命令“WCUT”。按 F1 查看帮助。
未知命令“X”。按 F1 查看帮助。

该对象无法分解。

未找到对象。

1028882406@qq.c 发表于 2023-12-26 00:47:50

命令: (LOAD "C:/Users/Administrator/Desktop/新建文件夹/wcut2_chs.fas")
线切割:物体阵列接合 by lee50310 执行指令:wcut   设边距,间距指令:wset"\n线切割:物体阵列接合 by lee50310
执行指令:wcut   设边距,间距指令:wset"

命令: wcut

选择对象:
输入数量:5

输入插入点:未知命令“ARRAYRECT”。按 F1 查看帮助。
<选择集: 229>
未知命令“WCUT”。按 F1 查看帮助。
未知命令“WCUT”。按 F1 查看帮助。
未知命令“C”。按 F1 查看帮助。
1
5
未知命令“S”。按 F1 查看帮助。
108.977763
未知命令“WCUT”。按 F1 查看帮助。
108.977763
未知命令“X”。按 F1 查看帮助。

该对象无法分解。

未找到对象。

*无效选择*
需要点或上一个(L)/全部(ALL)/编组(G)

选择对象: *取消*



CAD2007和CAD2008提示这个错误    还有一点开口朝上下左右自定义就更完美呢

magicheno 发表于 2023-12-25 12:28:19

感谢大佬分享，有点高级的

cyfdean 发表于 2023-12-25 13:58:34


感谢大佬分享，

wangsr 发表于 2023-12-25 14:20:27

谢谢分享，间距如果能编辑更好了。

lxl217114 发表于 2023-12-25 14:21:09

谢谢大佬分享，点赞让更多需要的人看到。

loveu515 发表于 2023-12-25 14:28:41

感谢分享，应该可以用到排料上

lee50310 发表于 2023-12-25 14:38:18

本帖最后由 lee50310 于 2023-12-25 14:58 编辑

wangsr 发表于 2023-12-25 14:20
谢谢分享，间距如果能编辑更好了。
邊距 及 間距皆可自行設定
(1). 圖形陣列接合 => 設定邊距及間距 指令:wset
    指令: wset
    輸入邊距:<30>40
    輸入間距:<30>35
   下次執行wcut    邊距=40,間距=35

(2). 圖形選擇接合 => 設定邊距及間距 指令:mset
    指令: mset
    輸入邊距:<30>50
    輸入間距:<30>20
   下次執行 scut    邊距=50,間距=20



panliang9 发表于 2023-12-25 15:08:21

相当给力！

水洗可口可乐 发表于 2023-12-25 18:31:09

只能是特定图形了

hao3ren 发表于 2023-12-25 20:11:21

这东西可以用到哪里啊
页: [1] 2 3
查看完整版本: <*** 已更新 分享兩款程式: 1.圖形陣列接合 2.圖形選取接合 ***>