- 博客(0)
- 资源 (9)
- 收藏
- 关注
RSS订阅ABB机器人网络服务器端代码.rar
MODULE Module1
!***********************************************************
!
! Module: Module1
!
! Description:
!
!
! Author: Administrator
!
! Version: 1.0
!
!***********************************************************
TASK PERS tooldata tool100 := [TRUE,[[0,0,0],[0,0.70711,0,0.7011]],[1.3,[0,0,150],[1,0,0,0],0,0,0]];
VAR robtarget P100 := [[1000,0,500],[1,0,0,0],[-1,0,-1,0],[9E9,9E9,9E9,9E9,9E9,9E9]];
VAR num posedatab{7};
VAR bool okb;
VAR pos pos1b;
VAR num Eangle{3};
VAR string strtrans;
VAR string strrot;
VAR string str;
VAR string PC_adressb;
!IP??????
VAR string IRC5_adressb := "127.0.0.1";
CONST num pro_portb := 8855;
VAR socketdev server_socketb;
VAR socketdev client_socketb;
VAR socketstatus statusb;
VAR num peek_valueb := 65;
VAR num p:= 5;
VAR pose objectb;
VAR string str_datab;
VAR string str_databb := "[1,1000.1,0.2,300,3,0,90,0]";
VAR num retry_nob :=0;
PROC main()
intialb;
MoveAbsJ [[0,0,0,0,0,0],[9E9,9E9,9E9,9E9,9E9,9E9]] \NoEOffs,V300,z50,tool0;
!????
WHILE TRUE DO
str_datab := "[1,1000.1,0.2,300.03,0,90,0]";
TRAN;
SocketSend client_socketb\str:=str; !????,??????P19???,????????
Receivedatab; !????,???????,??????
Moveitb;
ENDWHILE
socketclose server_socketb;!??
socketclose client_socketb;
ENDPROC
PROC Moveitb() !??
IF posedatab{1}=1 OR posedatab{1}=2 THEN
MoveJ P100, v100, fine, tool100;
ELSE
MoveL Offs(P100, 200, 0,0), v100, fine, tool100;
ENDIF
ENDPROC
PROC TRAN()
Eangle{1}:= Eulerzyx(\X,P100.rot); !?????????
Eangle{2}:= EulerZYX(\Y,P100.rot);
Eangle{3}:= EulerzYX(\Z, P100.rot);
strrot := ValTostr(Eangle);
strtrans:= Valtostr(P100.tr
2020-07-19
Draw_MFC.rar
C++代码实现绘图功能，可以绘制直线，矩形，，圆，多边形等，也可以填充绘制的多边形，对用户学习MFC的绘图功能挺有帮助的，另外也可以借鉴绘图代码，编写自己所需的绘图代码，功能挺强大的，希望可以对学习和使用MFC功能的朋友有所帮助!
2020-07-16
95R417-1室内热力管道支吊架(原95R402).pdf
95R417-1室内热力管道支吊架(原95R402)
中国建筑标准设计研究所出版
本图集对原图集的封面、目录首页及每页图集号进行了修改，增加批文页；同时，由于图集中所引用或涉及的其他图集号发生变化，本图集也为此进行了相应的修改，增加本说明后重新印刷，原图集号停止使用。
2019-12-19
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人