使用LISP输出简单的G代码。（只用于电脑锣打点）

ghoust · 发表于 2013-10-21 20:40:41

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

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

×

因为加工大模板，上面需要钻孔的地方太多了，所以加工中往往会用电脑锣先打点，然后再用摇臂钻钻孔沉头之类的(摇臂钻快，且不占电脑锣）。
但是用专门的编程软件很麻烦。所以希望做一个LISP只读取模板上的圆孔坐标。然后加上G代码，这样电脑锣就可以直接使用了。
这是我手写的一段G代码：
G91G28X0Y0Z0
G40G17G80G49
G90G54
G0z5
M00
M03 S1500
；以上G代码头，固定不变的。

G0x10y10z2 ；x和y后面的数字就该圆心的坐标。
g01z-2F50    ；固定不变的内容。
G0z5                ；固定不变的内容。
G0x15y10z2    ；开始循环第二个孔，
g01z-2F50
G0z5
G0x20y10z2    ；开始第三个孔。
g01z-2F50
G0z5

M30                ；固定的结束内容。

能否用LISP，将下图的圆心坐标按上面的格式输出？如果可以。程序怎么写啊？谢谢名位大侠相助。急求。坐标原点在左下角。

st788796 · 发表于 2013-10-21 21:12:25

本帖最后由 st788796 于 2013-10-21 21:15 编辑

和每个圆对应的固定不变内容写清楚
原点是不是 0,0 ， Wcs 还是 Ucs
坐标精度
圆要不要排序

Lispboy · 发表于 2013-10-21 21:27:09

st788796 发表于 2013-10-21 21:12
和每个圆对应的固定不变内容写清楚
原点是不是 0,0 ， Wcs 还是 Ucs
坐标精度

估计他那个打点的，应该像绘图仪一样，不用排序也行，给坐标就去打，只不过多走点距离罢了。

ghoust · 发表于 2013-10-21 21:27:24

st788796 发表于 2013-10-21 21:12
和每个圆对应的固定不变内容写清楚
原点是不是 0,0 ， Wcs 还是 Ucs
坐标精度

大侠，先谢谢你了。
和每个圆对应的内容为：G0x  10  y  10 z2
                                    g01z-2F50    固定不变的
                                       G0z5             固定不变的。  0全部是零不是字母。红色的数字就是对应每个圆心坐标，Z忽略。就只变红色的数字就OK！原点对应当前坐标原点就OK！ UCS 精度到0.000就好。再精了，机器也走不出来。谢谢大侠啊！

ghoust · 发表于 2013-10-21 21:30:24

Lispboy 发表于 2013-10-21 21:27
估计他那个打点的，应该像绘图仪一样，不用排序也行，给坐标就去打，只不过多走点距离罢了。

大侠，这个实际加工中，是需要优化排序的。因为模板是相当大的，一般来说在600*1000左右。如果机器老是来回跑的话，会相当浪费时间。有能解决这个吗？

ghoust · 发表于 2013-10-21 21:34:59

这个电脑锣打点，是一个地方点一下，然后再去点另外一个地方。所以不像打印机一样是一排一排出来的。

429014673 · 发表于 2013-10-21 21:46:13

;P;P;P;P数控佬

ghoust · 发表于 2013-10-21 21:48:00

能不能指点一下，用哪些命令可以完成这个代码呢？

ghoust · 发表于 2013-10-21 21:55:12

本帖最后由 ghoust 于 2013-10-21 22:10 编辑

429014673 发表于 2013-10-21 21:46
数控佬

慧眼识数控啊。常住居民呐。请教一下，如果有偿订制这个，需要怎么操作啊？我真的很需要这个，就像我饿的时候，能吃上一顿饱饭一样重要。我的情况，大家当然不知道，只能说太需要了。如果有偿的话，这样一个程序要多少大洋呢？请指教。

Lispboy · 发表于 2013-10-21 22:15:16

ghoust 发表于 2013-10-21 21:55
慧眼识数控啊。常住居民呐。请教一下，如果有偿订制这个，需要怎么操作啊？我真的很需要这个，就像我饿的 ...

你想从下（排）往上打，还是从左（排）往右打？

429014673 · 发表于 2013-10-21 22:20:24

本帖最后由 429014673 于 2013-10-21 22:23 编辑

我一般不搞程序，你这个是模座？

Lispboy · 发表于 2013-10-21 22:31:34

本帖最后由 Lispboy 于 2013-10-21 22:35 编辑

人民币免了，拿回去用吧。

按排从下往上打，坐标精确到小数点后4位。

(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 
    ) 
  ) 
)

newer · 发表于 2013-10-21 22:57:18

Lispboy 发表于 2013-10-21 22:31
人民币免了，拿回去用吧。

按排从下往上打，坐标精确到小数点后4位。

露面就高产，出来这么多工具，我觉得要省时间，应该这样走。

QQ截图20131021225651.png

ghoust · 发表于 2013-10-21 23:15:11

Lispboy太感谢你了！且无以为报啊！

ghoust · 发表于 2013-10-21 23:17:05

newer 发表于 2013-10-21 22:57
露面就高产，出来这么多工具，我觉得要省时间，应该这样走。

这样确实有效率，不知道有没有办法让程序自动优化呢？自动计算出打完全部孔所需的最短路径，也许这个要求有点高，希望大师们研究一下。

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

[求助] 使用LISP输出简单的G代码。（只用于电脑锣打点）

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

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评