找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: ghoust

[编程申请] 求一个CNC钻孔的程序。谢谢。

[复制链接]

已领礼包: 8个

财富等级: 恭喜发财

发表于 2014-10-2 22:02:34 | 显示全部楼层
ysq101 发表于 2014-4-2 18:37
这个在模具行业里应该是有市场的啊。。。
价格不贵。。。实用。。。操作简单。。
记得收成的时候分一些 ...

这个东西应该可以推广的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

发表于 2014-10-2 22:05:18 | 显示全部楼层
ghoust 发表于 2014-4-2 18:11
这个自己用用还是可以的。前两天去深圳会展中心,看了下机械展,连这个视频里的机器都仿出来了。http://v ...

用途不同,客户群也不同。在中国,像这样价钱不高,可以节省人力的小机器应该有市场。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

发表于 2015-5-27 00:06:24 | 显示全部楼层
弄了个一个冲压模具备料的程式。公司里面使用了大半年了,还可以。
13以下的孔钻,13以上的孔,预计钻,后,铣刀加工。
可以满足冲压模具上的各种孔、
fh.jpg
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2022-6-29 03:07:20 | 显示全部楼层
哪位师傅帮忙把我这个源码改写成输出程序是如下的
2019/7/21 19:11:42(生成时间)
P:2(板厚程序中自己给定)
L:2000(板面长度程序中自己给定)
W:1600(板面宽度程序程序中自己给定)
D12(钻头直径系统识别圆直径所得)
R350(对应上面钻头的补偿长度自己给定)
X100 Y100
X200 Y100
X300 Y100
X400 Y100
P:2(板厚程序中自己给定)
D20(钻头直径系统识别圆直径所得)
R360(对应上面钻头的补偿长度自己给定)
X500 Y100
X600 Y100
X700 Y100
M30
END
括号内是注释生成的程序里不需要写字

(defun c:nc1 (/ fp ss ii i r cirlst ss1 r1 r2 r3 j g bb biao biao1 ent)
  (setvar "CMDECHO" 0)
  (setq nm (getstring "输入CNC文件名:") fp (open (strcat nm ".drl") "w"))
  (princ "M48\nMETRIC\nVER,1\nFMAT,2\n" fp)
  (setq ss (ssget "all" '((0 . "CIRCLE"))))
   (command ".UNDO" "BE")
   (setq r2 0 i -1  biao (list) biao1 (list))
   (repeat (sslength ss)
    (setq r (cdr (assoc 40 (entget (setq en (ssname ss (setq i (1+ i))))))))
    (if (assoc r cirlst)
    (setq cirlst (subst (cons r (1+ (cdr (assoc r cirlst)))) (assoc r cirlst) cirlst))
    (setq cirlst (cons (cons r 1) cirlst))
   )
   )
   (setq ii 1 i -1 cirlst (reverse cirlst) )
   (setq cirlst (vl-sort cirlst (function (lambda (e1 e2) (> (car e1) (car e2))))) cirlst (reverse cirlst))
   (repeat (length cirlst)
    (setq r (car (nth (setq i (1+ i)) cirlst)))
    (command "select" ss "")
    (setq ss1 (ssget "P" (list (cons 0 "CIRCLE") (cons 40 r))))
&#160;&#160;&#160; (setq r1 (getdist (strcat "\n请输入补偿后的钻咀直径<" (rtos&#160; (+ r r)&#160; 2 2) "> :")))
&#160;&#160;&#160; (setq r (if r1 (* r1 0.5) r))
&#160;&#160;&#160; (if (= r2 0)(setq biao (list))
&#160;&#160;&#160;&#160;&#160; (if (= r2 r1) (setq biao biao1)
&#160;&#160;&#160; (if (/= r2 r1)
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; (progn
&#160;&#160;&#160;&#160;&#160; (setq d (read (strcat "aa" (itoa ii))) )
&#160;&#160;&#160;&#160;&#160; (setq c2 'd c2 biao1)
&#160;&#160;&#160;&#160;&#160; (set d biao1)
&#160;&#160;&#160;&#160;&#160; (setq biao (list))
&#160;&#160;&#160;&#160;&#160; (setq bb (strcat "T" (if (< ii 10) "0" "") (itoa ii) "C" (rtos r3 2 3) "F423B423S6H2000\n"))
&#160;&#160;&#160;&#160;&#160; (princ bb fp)
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; (setq ii (+ ii 1))
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; )
&#160;&#160;&#160;&#160;&#160;&#160; )))
&#160;&#160;&#160;&#160; (setq g (sslength ss1) j 0 )
&#160;&#160;&#160; (repeat g
&#160;&#160;&#160;&#160; (setq ent (entget(ssname ss1 j)))
&#160;&#160;&#160;&#160; (setq j (1+ j))
&#160;&#160;&#160;&#160; (setq pc (cdr(assoc 10 ent)))
&#160;&#160;&#160;&#160; (setq biao (append biao (list (list (car pc) (cadr pc)))))
&#160;&#160;&#160;&#160; )
&#160;&#160;&#160; (setq biao1 biao r2 r1 r3 r1)
&#160;&#160; )
&#160;&#160; (setq d (read (strcat "aa" (itoa ii))) )
&#160; (setq c2 'd c2 biao1)
&#160; (set d biao1)
&#160;&#160; (setq bb (strcat "T" (if (< ii 10) "0" "") (itoa ii) "C" (rtos (+ r r) 2 3) "F423B423S6H2000\n"))
&#160;&#160; (princ bb fp)
&#160;&#160; (setq aa "DETECT,ON\nATC,ON\n%\n")
&#160;&#160;&#160; (princ aa fp)
&#160;&#160;&#160; (setq i 0 )
&#160;&#160;&#160; (repeat ii
&#160;&#160;&#160; (setq i (1+ i))
&#160;&#160;&#160; (princ (strcat "T" (if (< i 10) "0" "") (itoa i) "\n;请更换刀具!\n") fp)
&#160;&#160;&#160; (setq j 0 biaoo (eval (read (strcat "aa" (itoa i)))))
&#160; (repeat (length biaoo)
&#160;&#160; (setq pc (nth j biaoo) j (1+ j))
&#160;&#160; (princ (strcat "X" (rtos (car pc) 2 3) "Y" (rtos (cadr pc) 2 3) "\n") fp)
&#160; )
&#160;&#160;&#160; )
&#160;&#160;&#160; (princ "M30\n;程式结束,欢迎使用!" fp)
&#160;&#160;&#160; (close fp)
&#160;&#160;&#160;&#160; (command ".UNDO" "E")
&#160; (setvar "CMDECHO" 1)
&#160; (progn (alert&#160; "祝贺你,当前层数控钻孔文件成功输出,请使用!"))
&#160; (princ)
)

;===============================================================================
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2022-7-14 05:10:35 | 显示全部楼层
为什么都是404.........................
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 22:46 , Processed in 0.368666 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表