设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › 使用LISP输出简单的G代码。（只用于电脑锣打点） ...
12
返回列表 发新帖
楼主: ghoust

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

[复制链接]
ghoust
 楼主| 发表于 2013-10-21 23:40:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lispboy 发表于 2013-10-21 22:31
人民币免了，拿回去用吧。

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

多谢大师。我执行后出现这样的问题是为什么？  

命令: tt选择对象: 指定对角点: 找到 5 个

选择对象:  ; 错误: no function definition: XD::ENTITY:BOX

是不是我哪里没弄对啊？


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

使用道具 举报

ghoust
 楼主| 发表于 2013-10-21 23:43:27 | 显示全部楼层
429014673 发表于 2013-10-21 22:20
我一般不搞程序，你这个是模座？

我自己DIY了台雕刻机，机器OK了。可是我不会编程。我想用它来打点。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-10-22 00:09:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 newer 于 2013-10-22 00:10 编辑
ghoust 发表于 2013-10-21 23:17
这样确实有效率，不知道有没有办法让程序自动优化呢？自动计算出打完全部孔所需的最短路径，也许这个要求 ...

现在这样，从下排开始，往上，也挺不错的。

不能运行，看我的签名，下载晓东LISP通用函数库，不过估计你得努力积分到50.

这些 XD::开头的，函数发布里面都有源码，你也可以用这些函数名做关键字搜索论坛，找到那些源码加载。

点评

ghoust
版主，我到帮助文件里找到那些函数了。可以现在又提示这个：：选择对象: ; 错误: no function definition: nil 这是什么意思呢？要怎么解决呢？谢谢了。  详情 回复 发表于 2013-10-22 11:23
ghoust
版本你太尽职了。这么晚了还没休息呢。这么重要的东西，一定会下到的。  详情 回复 发表于 2013-10-22 00:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ghoust
 楼主| 发表于 2013-10-22 00:54:22 | 显示全部楼层
newer 发表于 2013-10-22 00:09
现在这样，从下排开始，往上，也挺不错的。

不能运行，看我的签名，下载晓东LISP通用函数库，不过估计 ...

版本你太尽职了。这么晚了还没休息呢。这么重要的东西，一定会下到的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ghoust
 楼主| 发表于 2013-10-22 11:01:03 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lispboy 发表于 2013-10-21 21:27
估计他那个打点的，应该像绘图仪一样，不用排序也行，给坐标就去打，只不过多走点距离罢了。

大师，昨天晚上你帮我写的打点的G代码，需要用哪些函数啊？看到你的GIF，真是太心动了。现在就差那么一点点，能不能发我要用到的函数啊。谢谢了。


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

使用道具 举报

写诗天涯
发表于 2013-10-22 11:14:38 | 显示全部楼层
没想到数控也可以这么搞啊，高级

点评

ghoust
是没想到数控也可以用LISP搞啊。这才高级呢  详情 回复 发表于 2013-10-22 11:17
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ghoust
 楼主| 发表于 2013-10-22 11:17:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
写诗天涯 发表于 2013-10-22 11:14
没想到数控也可以这么搞啊，高级

是没想到数控也可以用LISP搞啊。这才高级呢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ghoust
 楼主| 发表于 2013-10-22 11:23:22 | 显示全部楼层
newer 发表于 2013-10-22 00:09
现在这样，从下排开始，往上，也挺不错的。

不能运行，看我的签名，下载晓东LISP通用函数库，不过估计 ...

版主，我到帮助文件里找到那些函数了。可以现在又提示这个：：选择对象:  ; 错误: no function definition: nil
  这是什么意思呢？要怎么解决呢？谢谢了。

点评

newer
你都找到哪些函数了，把名字贴一下。  详情 回复 发表于 2013-10-22 12:00
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-10-22 12:00:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
ghoust 发表于 2013-10-22 11:23
版主，我到帮助文件里找到那些函数了。可以现在又提示这个：：选择对象:  ; 错误: no function definitio ...

你都找到哪些函数了，把名字贴一下。

点评

ghoust
我下到了图片内的东西。全部ARX都解压出来了，也加载应用程序了。运行后命令行不提示XD：：之类的了。现在提示：命令: tt选择对象: 指定对角点: 找到 2 个 选择对象: ; 错误: no function definition: nil 是  详情 回复 发表于 2013-10-22 13:14
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ghoust
 楼主| 发表于 2013-10-22 13:14:33 | 显示全部楼层
newer 发表于 2013-10-22 12:00
你都找到哪些函数了，把名字贴一下。

我下到了图片内的东西。全部ARX都解压出来了，也加载应用程序了。运行后命令行不提示XD：：之类的了。现在提示：命令: tt选择对象: 指定对角点: 找到 2 个

选择对象:  ; 错误: no function definition: nil

是什么意思呢？谢谢版主。


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

使用道具 举报

ghoust
 楼主| 发表于 2013-10-24 16:19:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lispboy 发表于 2013-10-21 22:31
人民币免了，拿回去用吧。

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

QQ图片20131024161039.jpg
大师，我终于可以运行你的ＬＩＳＰ了。是我不懂。我是用上图运行的，但是出来的坐标不是按当前的坐标呢，下面是得出来的结果：
G91G28X0Y0Z0
G40G17G80G49
G90G54
G0z5
M00
M03
S1500
G0x1332.5816y1082.8605z2　　　；图上没有这样的坐标
g01z-2F50
G0z5
G0x1412.5816y1082.8605z2
g01z-2F50
G0z5
G0x1492.5816y1082.8605z2
g01z-2F50
G0z5
G0x1572.5816y1082.8605z2
g01z-2F50
G0z5
G0x1652.5816y1082.8605z2
g01z-2F50
G0z5
G0x1332.5816y1222.8605z2
g01z-2F50
G0z5
G0x1412.5816y1222.8605z2
g01z-2F50
G0z5
G0x1492.5816y1222.8605z2
g01z-2F50
G0z5
G0x1572.5816y1222.8605z2
g01z-2F50
G0z5
G0x1652.5816y1222.8605z2
g01z-2F50
G0z5
M30
希望大师改一下，谢谢了。

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

使用道具 举报

Free-Lancer
发表于 2013-10-24 16:47:00 来自手机 | 显示全部楼层
你是在UCS下用的？

点评

newer
不用考虑什么UCS，他的园都是相对于矩形框的左下点的，找到这个点（包围盒的第一点），然后其他圆心都 (mapca '- cen basePt)就行了。  详情 回复 发表于 2013-10-24 17:44
ghoust
如何在WCS下用呢？请指教一下，谢谢。  详情 回复 发表于 2013-10-24 17:19
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ghoust
 楼主| 发表于 2013-10-24 17:19:45 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 ghoust 于 2013-10-24 17:49 编辑
Free-Lancer 发表于 2013-10-24 16:47
你是在UCS下用的？

明白了。这个一定要在UCS下用呢。

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-10-24 17:44:47 | 显示全部楼层
Free-Lancer 发表于 2013-10-24 16:47
你是在UCS下用的？

不用考虑什么UCS，他的园都是相对于矩形框的左下点的，找到这个点（包围盒的第一点），然后其他圆心都 (mapca '-  cen  basePt)就行了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

12
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-9-20 09:42 , Processed in 0.243324 second(s), 63 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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