标注线段长度批量lisp_数控加工厂看错了一个标注,导致公司赔了巨额违约金...

前段时间看到一个帖子说一数控加工厂做了一批活,大径做到69.5,结果报废了,客户说大径小了一半。我们也都知道,如果这种工件甲方要得急,一旦返工很可能就会影响甲方公司的加工进度,闹不好就会赔上百万的违款。

8834e8ba9ec03921bd69e371fe443b0d.png
a6cd9bcf64b75596409736038844baa0.png

接到这消息,这个公司其他人就立马开始计算,各种结果都有,当时的场面真的可谓是热锅上的蚂蚁,还好其中一个同事看出来了,说是标法就是错误的,一般对称的工件应该标锥度,所以这个图纸标注的不是太规范,斜度1:10折算角度大约为5°42'38",意思是水平距离前进10单位,垂直距离上升1单位,即该角度的正切值为1/10,可以用arctg0.1算出角度。

我们先来看看这个两个标注的区别和计算方法

6a9ce4a1a86d57b6b7ed7b78ae0431b9.png

看完这个帖子我就想起刚进厂的时候,师傅就一直让我标图纸时,有角度一定把角度标出来,因为很多时候习惯把长度和两个直径标了就完事了,每次出现这种情况师傅就训我不标角度。今天看到这个帖子,突然觉得师傅真是用心良苦,但凡这张图纸标有角度,就不会出现这么大的损失了。

其实很多工厂的工人只管干活,这图的标注也没啥错误,只是干活的对不常见的符号理解没透彻而已,在没有标角度的情况下,工人按照常见的理解就把活干啦,连我刚才乍一看都以为图纸是SIN值来的,原来是TAN值,所以看图的时候一定不能马虎!马虎!马虎!

528e506fe903ff40fa0fb2b084192fe0.png

另外公司的设计非常不严谨,机加工那块审图人员也很不严谨,这种活需要车锥度的话就应该详细标准尺寸和角度,车间的那些工厂并没有电脑可用,而且他们车间加工人员对于倒角的大小,他们有时候自己都懒得算。

我记得有个朋友曾经也干费一批活,外国的图纸,转成大家能看懂的,数字无所谓都×25.4就好。但是有一个粗糙度,因为图纸是纸的很脏也不是很清楚,有一个标的是125,他们就默认为是12.5,结果照12.5干的,结果客户一来全费,12.5对应国标3.2。

这种重干一批是小事,如果耽误甲方货期严重的要赔偿巨额违款,说不定还会流失客户,还容易在圈子里形成不好的评价,可谓是偿不得失。

所以干我们机械这行的,平时真的要谨慎!谨慎!再谨慎!因为设计画图导致错误,赔钱事小,被判如狱真是得不偿失,别以为真是说说而已,小易之前看过一篇设计入狱文章——到底要画错一张什么样的CAD图纸,才会被判3年罚10万!

作为设计人员一定要严谨:尽量严格按照图纸标准,多为车间加工人员考虑一下,尽量清晰简明化,多给乙方传3D图纸,这样能尽量避免错误的发生几率。

作为加工人员:看图千万不能马虎,不确定的地方一定要问,千万不能嫌麻烦。在弄不清图纸标注的前提下,不可盲目的加工,会出现批量报废的。不确认好规格千万不要开工,就算前期麻烦点也别偷懒,就算开工也一定要有样品,千万别没有样品就迷之自信的干完一批活。

7e4729041139dd5fc52e59ccbc030133.png
由于这个需求比较复杂,需要涉及到CAD的多项功能和LISP编程,以下是一个简单的思路: 1. 首先需要定义一个函数,用于自动标注多段线的坐标、桩号和角度。该函数需要接受多段线的实体对象作为参数。 2. 在函数中,需要使用CAD的多项功能,如获取多段线的顶点坐标、计算两点之间的距离和角度等。 3. 对于每个顶点,可以计算其距离起点的距离,从而得到桩号。同时,可以计算其与前一个点的夹角,从而得到角度。 4. 最后,将这些计算结果添加到多段线的标注中,实现自动标注的功能。 以下是一个简单的示例代码,供参考: ``` (defun annotate-polyline (polyline) (setq vertices (vlax-invoke polyline 'Vertices)) (setq startpt (vlax-invoke vertices 'Item 0)) (setq prevpt startpt) (setq dist 0.0) (setq angle 0.0) (setq i 0) (while (< i (vlax-get-property vertices 'Count)) (setq pt (vlax-invoke vertices 'Item i)) ; 计算距离和角度 (setq dist (+ dist (distance prevpt pt))) (setq angle (angle prevpt pt)) ; 标注 (vlax-invoke polyline 'AddVertex pt) (vlax-invoke polyline 'InsertVertex startpt i) (vlax-invoke polyline 'SetVertexCoords startpt i) (vlax-invoke polyline 'SetVertexParams dist angle) ; 更新 (setq prevpt pt) (setq i (1+ i)) ) ) ``` 这个函数可以接受一个多段线实体对象作为参数,自动在多段线上添加标注。请注意,这仅仅是一个简单的示例,需要根据实际情况进行修改和优化。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值