PROGRAM poscopy
%COMMENT='位置复制与粘贴'
VAR
status,i,j,n    :INTEGER
tempos : XYZWPR
temppos : ARRAY [300] OF XYZWPR --数组XYZWPR类型
POSNAME :   STRING[20] 
POSNAME1 :ARRAY [300] OF STRING[20] --数组string类型
BEGIN
i=1
j=1
n=1
--获取PR6的位置坐标XYZWPR,存在临时位置变量temppos[i]
temppos[i]=GET_POS_REG(6,status)
--临时变量位置坐标赋值给PR18
SET_POS_REG(18,temppos[i], status)
--获取PR6的注释文字存在posname变量中
GET_PREG_CMT(6,POSNAME,STATUS)
--poname变量注释名字给位置寄存器PR18
SET_PREG_CMT(18,POSNAME, status)
--清屏
WRITE(CHR(128),CHR(137))
WRITE(POSNAME,CR)
END poscopy

Logo

DAMO开发者矩阵,由阿里巴巴达摩院和中国互联网协会联合发起,致力于探讨最前沿的技术趋势与应用成果,搭建高质量的交流与分享平台,推动技术创新与产业应用链接,围绕“人工智能与新型计算”构建开放共享的开发者生态。

更多推荐