ARCOCAD高级编程实例2

DMISMN/''
$$ *** 程序初始段 ***
MODE/MAN
RECALL/D(MAC)
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECPL/DIST,4,VEC,8,ANGLE,4,TEMP,1
SCNMOD/OFF
TECOMP/OFF
PRCOMP/ON
PTBUFF/ON
SNSET/SEARCH,10.000
SNSET/APPRCH,4.0000
SNSET/RETRCT,2.0000
SNSET/DEPTH,0.0000
SNSET/CLRSRF,OFF
FLY/5.0000
FEDRAT/MESVEL,MMPS,3.5
FEDRAT/POSVEL,PCENT,0.50
FEDRAT/ROTVEL,PCENT,0.75
FEDRAT/SCNVEL,PCENT,0.75
ACLRAT/MESACL,PCENT,0.75
ACLRAT/POSACL,PCENT,0.75
GEOALG/CPARLN,ROUND
V(TEXT)=VFORM/ALL
V(HTML)=VFORM/DME,'HTM',ALL
V(CSV)=VFORM/DME,'CSV',ALL
V(SPCLIGHT)=VFORM/STAT,'SDD',ALL
V(GENSTAT)=VFORM/STAT,'SDD/L',ALL
V(ARCOSTAT)=VFORM/STAT,'SDD/C',ALL
V(QSSTATQ)=VFORM/STAT,'DFQ',ALL
V(QSSTATD)=VFORM/STAT,'DFD',ALL
V(GRAPHF)=VFORM/DME,'DMG',ALL
V(GRAPHV)=VFORM/DME,'DMG/V',ALL
V(GRAPHP)=VFORM/DME,'DMG/P',ALL
V(GRAPHO)=VFORM/DME,'DMG/O',ALL
V(GRAPHA)=VFORM/DME,'DMG/A',ALL
EQUATE/D(MAC),DA(MAC)
$$ *** 程序初始段结束 ***
SNSLCT/SA(P1_0_0P0_0)
F(SPH_1)=FEAT/SPHERE,OUTER,CART,-252.5257,-2327.5423,-936.4647,110.0374,0.00000000,0.00000000,0.00000000
MEAS/SPHERE,F(SPH_1),10PTMEAS/CART,-198.7003,-2329.6166,-925.5115,0.99951838,0.03101609,-0.00100052PTMEAS/CART,-254.7578,-2273.1556,-928.3523,0.05303138,0.99859084,-0.00200118PTMEAS/CART,-254.6005,-2308.9486,-884.6814,-0.00500452,0.01301175,0.99990282PTMEAS/CART,-254.6036,-2337.0407,-882.3092,-0.00500445,0.01401246,0.99988930PTMEAS/CART,-254.5988,-2373.0732,-905.3623,-0.02599110,-0.99965768,-0.00299897PTMEAS/CART,-254.7128,-2382.4588,-934.1082,0.01499831,-0.99988752,0.00000000PTMEAS/CART,-223.2253,-2282.8221,-923.1622,0.36828258,0.92971336,-0.00100077PTMEAS/CART,-221.8254,-2310.8909,-893.6377,-0.00800735,0.01000919,0.99991785PTMEAS/CART,-221.0137,-2350.7482,-897.3549,-0.00200164,-0.01901554,0.99981718PTMEAS/CART,-219.3992,-2371.4031,-930.5871,-0.01699754,-0.99985503,-0.00099986
ENDMES
F(CIR_1)=FEAT/CIRCLE,OUTER,CART,-366.2485,-2324.8875,-936.5048,1.00000000,0.00000000,0.00000000,85
MEAS/CIRCLE,F(CIR_1),5PTMEAS/CART,-366.5853,-2368.7723,-934.7392,0.04998748,-0.99874984,0.00000000PTMEAS/CART,-366.4854,-2357.8479,-907.2371,0.01500838,-0.26714924,0.96353829PTMEAS/CART,-366.4235,-2332.2731,-893.2011,-0.02200805,-0.02801024,0.99936533PTMEAS/CART,-365.9002,-2299.9022,-900.1793,0.01201112,0.00200185,0.99992586PTMEAS/CART,-365.9018,-2283.5480,-921.4951,-0.00100100,0.99999950,0.00000000
ENDMES
F(LIN_1)=FEAT/LINE,BND,CART,-366.2485,-2324.8875,-936.5048,-252.5257,-2327.5423,-936.4647,0.00000000,0.00000000,1.00000000
CONST/LINE,F(LIN_1),BF,FA(CIR_1),FA(SPH_1)
D(DAT_1) = DATSET/FA(LIN_1),XDIR,YORIG,ZORIG
D(DAT_1) = TRANS/XORIG,FA(SPH_1)
SAVE/DATAMODE/MAN
WKPLAN/YZPLAN
F(POI_2)=FEAT/POINT,POL,39.7874,174.9718,-391.5642,0.00000000,-1.00000000,0.00000000
MEAS/POINT,F(POI_2),1PTMEAS/POL,39.7874,174.9718,-391.5642,0.00000000,-1.00000000,0.00000000
ENDMESDECL/REAL,LEAD,A1,ASTEP,H1,HSTEP,A0,H0,R0
DECL/INTGR,KK,TOT
LEAD=ASSIGN/6
ASTEP=ASSIGN/-20
HSTEP=ASSIGN/LEAD/360*ABS(ASTEP)
TOT=ASSIGN/9
A0=OBTAIN/FA(POI_2),4
H0=OBTAIN/FA(POI_2),5MODE/PROG,MAN
SNSET/RETRCT,15.0000
F(CIR_2)=FEAT/CIRCLE,OUTER,CART,-366.2485,0,0,1.00000000,0.00000000,0.00000000,80
MEAS/CIRCLE,F(CIR_2),TOT
DO/KK,1,TOT,1A1=ASSIGN/A0+(KK-1)*ASTEPPTMEAS/POL,40,A1,H0-(KK-1)*HSTEP,0,COS(DTOR(A1)),SIN(DTOR(A1))
ENDDO
ENDMESF(LIN_2)=FEAT/LINE,BND,CART,-366.2485,0.0000,0.0000,0.0000,0.0000,0.0000,0.00000000,0.00000000,1.00000000
CONST/LINE,F(LIN_2),BF,FA(CIR_2),FA(SPH_1)
D(DAT_2) = DATSET/FA(LIN_2),XDIR,YORIG,ZORIG
D(DAT_2) = TRANS/XORIG,FA(SPH_1)$$================================================SNSET/APPRCH,0.5000
SNSET/RETRCT,0.5000
MODE/MAN
WKPLAN/YZPLANF(POI_3)=FEAT/POINT,POL,38.6292,92.2958,-394.1354,-1.00000000,0.00000000,0.00000000
MEAS/POINT,F(POI_3),1
ENDMES
R0=OBTAIN/FA(POI_3),3
A0=OBTAIN/FA(POI_3),4
D(DAT_3) = TRANS/XORIG,FA(POI_3)MODE/PROG,MANDECL/REAL,MAX1,MIN1,PITCH,ERR1,ERR2,M1,PITCH1
DECL/CHAR,200,FILENAME
MAX1=ASSIGN/-9999
MIN1=ASSIGN/9999
TOT=ASSIGN/40FILENAME=PROMPT/'输入文件名称(不含后缀名)'FILENAME=ASSIGN/CONCAT(FILENAME,'.TXT')DID(FILEDATI)=DEVICE/STOR,FILENAMEOPEN/DID(FILEDATI),DIRECT,OUTPUT,OVERWRDISPLY/TERM,V(TEXT)
DISPLY/STOR,V(TEXT)
T(CORTOL_1)=TOL/CORTOL,XAXIS,-0.0100,0.0100GOTO/POL,R0+10,A0,0
F(POI_3)=FEAT/POINT,POL,R0,A0,0,-1.00000000,0.00000000,0.00000000
MEAS/POINT,F(POI_3),1
ENDMES
$$repeat this point make the result stable
F(POI_3)=FEAT/POINT,POL,R0,A0,0,-1.00000000,0.00000000,0.00000000
MEAS/POINT,F(POI_3),1
ENDMES
GOTO/POL,R0+10,A0,0
D(DAT_3) = TRANS/XORIG,FA(POI_3)
OUTPUT/FA(POI_3),TA(CORTOL_1)WRITE/DID(FILEDATI),'理论值',',','测量值',',','误差值',',','相邻误差'
WRITE/DID(FILEDATI),H1,',',M1,',',ERR1,',',PITCH1DO/KK,1,TOT,1
H1=ASSIGN/LEAD*KK
GOTO/POL,R0+10,A0,H1$$ DMIS检查器 : Syntax error.
PNAME1=ASSIGN/CONCAT('POI_',STR(KK))$$ DMIS检查器 : Wrong structure (ELSE..ENDIF without IF, CASE without SELECT, ENDDO without DO).
F(@PNAME1)=FEAT/POINT,POL,R0,A0,H1,-1.00000000,0.00000000,0.00000000
MEAS/POINT,F(@PNAME1),1
ENDMES
GOTO/POL,R0+10,A0,H1
OUTPUT/FA(@PNAME1),TA(CORTOL_1)
M1=OBTAIN/FA(@PNAME1),5
ERR1=ASSIGN/M1-H1
PITCH1=ASSIGN/ERR1-ERR2
WRITE/DID(FILEDATI),H1,',',M1,',',ERR1,',',PITCH1
IF/(ERR1.GE.MAX1)
MAX1=ASSIGN/ERR1
ENDIFIF/(ERR1.LE.MIN1)
MIN1=ASSIGN/ERR1
ENDIF
ERR2=ASSIGN/ERR1
ENDDOTEXT/OUTFIL,'----------MAX----------'
TEXT/OUTFIL,MAX1TEXT/OUTFIL,''TEXT/OUTFIL,'----------MIN----------'
TEXT/OUTFIL,MIN1
CLOSE/DID(FILEDATI)
DISPLY/OFFENDFIL

ARCOCAD高级编程实例2相关推荐

ARCOCAD 高级编程（DMIS代码）
DMISMN/'' $$ *** 程序初始段 *** MODE/MAN RECALL/D(MAC) WKPLAN/XYPLAN UNITS/MM,ANGDEC,TEMPC TECOMP/OFF PTB ...
python队列线程池_实例详解：python高级编程之消息队列(Queue)与进程池(Pool)
今天为大家带来的内容是:python高级编程之消息队列(Queue)与进程池(Pool),结合了实例的形式详细分析了Python消息队列与进程池的相关原理.使用技巧与操作注意事项!!! Queue消息 ...
linq to sql 行转列_SQL进阶：SQL高级编程语法实例
之前写过的文章: canhui87:Oracle数据统计必会语法知识zhuanlan.zhihu.com 主要是告诉大家学习SQL高级编程的参考路径,现在把书里简单的实例代码整理出来,方便以后随时查 ...
python高级练习题:多米诺平铺 - 5×2N局【难度：4级】--景越Python编程实例训练营,不同难度Python习题，适合自学Python的新手进阶
python高级练习题:多米诺平铺 - 5×2N局[难度:4级]: 请还检查了在[多米诺拼接系列]其他练习题(https://www.codewars.com/collections/5d19554d ...
Python并发编程实例教程
有关Python中的并发编程实例,主要是对Threading模块的应用,文中自定义了一个Threading类库. 一.简介我们将一个正在运行的程序称为进程.每个进程都有它自己的系统状态,包含内存状态 ...
《UNIX环境高级编程（第3版）》——1.7　出错处理
本节书摘来自异步社区<UNIX环境高级编程(第3版)>一书中的第1章,第1.7节,作者:[美]W. Richard Stevens , Stephen A.Rago著,更多章节内容可以访问 ...
OC高级编程——深入block，如何捕获变量，如何存储在堆上
OC高级编程--深入block,如何捕获变量,如何存储在堆上首先先看几道block相关的题目这是一篇比较长的博文 ,前部分是block的测试题目,中间是block的语法.特性,block讲解b ...
unix环境高级编程 pdf_UNIX系统编程宝典，每一本都值得程序员珍藏
这几本UNIX系统编程宝典,重印无数次,几代程序员都视如珍宝的几本书,小编在出版圈里快十年了,见证了这本书图灵版.异步社区版的出版.营销,对这套书倾注了一定的感情.今天继续分享给你们,好书总会有人还不 ...
开发日记-20190827 关键词读书笔记《Unix环境高级编程（第二版）》DAY 3
Referred Blogs 文件描述符标志,文件状态标志 Linux中文件描述符fd和文件指针flip的理解 Linux编程–文件描述符fd 文件共享 Unix支持在不同进程间共享文件. 内核使用了 ...

ARCOCAD高级编程实例2

ARCOCAD高级编程实例2相关推荐

最新文章

热门文章