做了一台打点机，得了一个好程序。谢谢Lispboy。这是一个能看到运行的程序。

ghoust · 发表于 2013-10-22 14:35:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在这里发这个帖子可能不是很合适，但没有专门的版块。唯一有联系的就是LISP，没有它，那这台机器还不能动起来，或者说我不能让它动起来。用一个命令，就出来一篇程序，再眼睁睁的看着它一行一行的走下去。还真舒服。这要多谢LISPboy和 newer版主,以即坛里的各种神奇的函数.
就像各位大师用各种语言写出来的程序，只有你们才知道他在后面都干了些什么，对我们来说，敲几个命令出来想要的结果就完了。不知各位对你们写出来的程序，让它干看得见的东西是什么感觉。我只想把过程贴出来，让大家看看。先放上机器的图片。（原来要把图片缩小才能放上来）

机器OK了，当然就是要程序让它动起来。为了简化操作，首选当然是CA在，所以首先想到用LISP来完成。（现在有事，晚上再来）

newer · 发表于 2013-10-22 14:52:42

哇，这是DIY吗？打完以后能做啥？

ysq101 · 发表于 2013-10-22 16:45:14

哇...人才啊....竟然会DIY了.........楼主应该是模具行业或电子行业的吧
顺便赞下LISPboy和 newer版主...这两个版主确实非常热心

ScmTools · 发表于 2013-10-22 18:55:05

赞一个，只要有创意，用的地方还真不少

ghoust · 发表于 2013-10-22 23:05:29

newer 发表于 2013-10-22 14:52
哇，这是DIY吗？打完以后能做啥？

这个也算DIY吧。做这样的机器就是为了打点。因为一块模板上有很多地方要钻孔和攻牙，线割孔之类的。现在也有用数控铣床打点的，但是比较麻烦，而且数控铣床比较贵的。如果用普通铣床呢，上了一百个孔的话，人会看花眼的，而且很容易打错。这个机器打完点后，再用钻床加工，这样又快又省时。
我做了个小的，一是自己喜欢弄这些东西，二也是为了试验。

zhong2013 · 发表于 2013-10-22 23:07:37

你在拆机器么?

ghoust · 发表于 2013-10-22 23:09:15

ysq101 发表于 2013-10-22 16:45
哇...人才啊....竟然会DIY了.........楼主应该是模具行业或电子行业的吧
顺便赞下LISPboy和 newer版主... ...

我是搞五金模具设计的，以前还不会用外挂，现在是离不开外挂了。电子只懂皮毛而已。

newer · 发表于 2013-10-22 23:11:22

ghoust 发表于 2013-10-22 23:05
这个也算DIY吧。做这样的机器就是为了打点。因为一块模板上有很多地方要钻孔和攻牙，线割孔之类的。现在 ...

技术革新啊。

ghoust · 发表于 2013-10-22 23:13:33

newer 发表于 2013-10-22 23:11
技术革新啊。

哪里哪里，闹着玩的呢。对了版主，我现在还运行不了LISPboy的那个LISP呢。能不能指点一下啊？谢谢了。

ghoust · 发表于 2013-10-22 23:15:14

zhong2013 发表于 2013-10-22 23:07
你在拆机器么?

你别倒着看图片呗，从上往下看，我一片一片装起来的呢。不过还真得拆，还得改进呢。

sicky111 · 发表于 2013-10-22 23:39:27

楼主这个创意不错，别光上图啊，程式也贴上来让我们学习下呗。模板打点，佑达公司的LIFECAM铣床编程软件做的还是不错的，楼主有空可以了解下。

ghoust · 发表于 2013-10-23 01:01:53

sicky111 发表于 2013-10-22 23:39
楼主这个创意不错，别光上图啊，程式也贴上来让我们学习下呗。模板打点，佑达公司的LIFECAM铣床编程软件做 ...

(defun c:tt ()
(if (setq ss (ssget))
(progn
(setq box (XD::Entity:BOX ss)
base (car box)
elst (xdrx_pickset->ents ss)
elst (XD::Pickset:TableSort ss 0 0 '< '<)
elst (apply 'append elst)
)
(setq tlst (list "G91G28X0Y0Z0" "G40G17G80G49" "G90G54" "G0z5" "M00" "M03" "S1500"))
(foreach e elst
(xdrx_setenttodb e)
(if (= "CIRCLE" (xdrx_getentdxf 0))
(progn
(setq cen (xdrx_getentdxf 10)
cen (mapcar
'-
cen
base
)
node (strcat "G0x" (rtos (car cen) 2 4) "y" (rtos (cadr cen) 2 4) "z2")
tlst (append
tlst
(list node "g01z-2F50" "G0z5")
)
)
)
)
)
(setq tlst (append
tlst
(list "M30")
)
)
(if (and
(setq fn (xdrx_system_selectFiles "选择保存的文件" "c:\\coords.txt" "txt;" 1))
(setq fn (car fn))
(XD::List:ToFile fn tlst)
)
(progn
(prompt (strcat "\n成功将坐标信息写到" fn "下."))
)
)
)
)
(princ)
)
;|
表内容写文本文件
参数：
fn -- 文件名，如： "c:\\abc.txt"
lst-- 表
成功返回T，否NIL
|;
(defun XD::List:ToFile (fn lst / fl x)
(setq fl (open fn "w"))
(if (and
fl
(> (length lst) 0)
)
(progn
(mapcar
'(lambda (x)
(write-line (vl-princ-to-string x) fl)
)
lst
)
(close fl)
t
)
)
)

(defun c:tt () 
  (if (setq ss (ssget)) 
    (progn 
      (setq box (XD::Entity:BOX ss) 
            base (car box) 
            elst (xdrx_pickset->ents ss) 
            elst (XD::Pickset:TableSort ss 0 0 '< '<) 
            elst (apply 'append elst) 
      ) 
      (setq tlst (list "G91G28X0Y0Z0" "G40G17G80G49" "G90G54" "G0z5" "M00" "M03" "S1500")) 
      (foreach e elst 
        (xdrx_setenttodb e) 
        (if (= "CIRCLE" (xdrx_getentdxf 0)) 
          (progn 
            (setq cen (xdrx_getentdxf 10) 
                  cen (mapcar 
                        '- 
                        cen 
                        base 
                      ) 
                  node (strcat "G0x" (rtos (car cen) 2 4) "y" (rtos (cadr cen) 2 4) "z2") 
                  tlst (append 
                         tlst 
                         (list node "g01z-2F50" "G0z5") 
                       ) 
            ) 
          ) 
        ) 
      ) 
      (setq tlst (append 
                   tlst 
                   (list "M30") 
                 ) 
      ) 
      (if (and 
            (setq fn (xdrx_system_selectFiles "选择保存的文件" "c:\\coords.txt" "txt;" 1)) 
            (setq fn (car fn)) 
            (XD::List:ToFile fn tlst) 
          ) 
        (progn 
          (prompt (strcat "\n成功将坐标信息写到" fn "下.")) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
) 
;| 
表内容写文本文件 
参数： 
  fn -- 文件名， 如： "c:\\abc.txt" 
  lst-- 表 
 
成功返回T，否NIL 
|; 
(defun XD::List:ToFile (fn lst / fl x) 
  (setq fl (open fn "w")) 
  (if (and 
        fl 
        (> (length lst) 0) 
      ) 
    (progn 
      (mapcar 
        '(lambda (x) 
           (write-line (vl-princ-to-string x) fl) 
         ) 
        lst 
      ) 
      (close fl) 
      t 
    ) 
  ) 
)

这就是Lispboy大师写的程序。请参考，另外，你说的那个软件，能不能发一份给我看下呀，谢谢。我的邮箱：3x-a@163.com

A82613035571210 · 发表于 2013-10-23 07:11:53

學習...............................

混沌初开 · 发表于 2013-12-4 23:53:59

动手能力超强!

279491611 · 发表于 2013-12-21 16:26:34

:)这也能行啊？cnc ?

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

[研讨] 做了一台打点机，得了一个好程序。谢谢Lispboy。这是一个能看到运行的程序。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评