【CMM花样玩法】用三坐标做的时钟

所用软件：RationalDMIS 2.9               DMIS版本：4.0

支持dmis4.0的软件应该都可以用。不同版本代码可能要修改下。

上传的图片

  抱歉,您所在的组无权下载附件,请注册或登陆

上传的图片

  抱歉,您所在的组无权下载附件,请注册或登陆

代码如下：

DMISMN/'Created by 苏州-龙', 4.0
UNITS/MM, ANGDEC
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0
MODE/PROG, MAN

RECALL/D(MCS)
SNSLCT/S(ROOTSN1)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR

D(CRD1) = ROTATE/ZAXIS, 90
F(CIR1) = FEAT/CIRCLE,INNER,POL, 0.000000, 0.000000, 0.000000, 0.000000,$
  0.000000, 1.000000, 200.000000

F(LN1) = FEAT/LINE,BND,POL, 0.000000, 0.000000, 0.000000, 60.000000,$
  0.000000, 0.000000, 0.000000, 0.000000, 1.000000
F(LN2) = FEAT/LINE,BND,POL, 0.000000, 0.000000, 0.000000, 75.000000,$
  0.000000, 0.000000, 0.000000, 0.000000, 1.000000
F(LN3) = FEAT/LINE,BND,POL, 0.000000, 0.000000, 0.000000, 90.000000,$
  0.000000, 0.000000, 0.000000, 0.000000, 1.000000

 
F(PT4) = FEAT/POINT,POL, 100.000000, 0.000000, 0.000000, 0.000000, 0.000000,$
  1.000000
F(PT5) = FEAT/POINT,POL, 100.000000, 30, 0.000000, 0.000000, 0.000000,$
  1.000000
F(PT6) = FEAT/POINT,POL, 100.000000, 60, 0.000000, 0.000000, 0.000000,$
  1.000000
F(PT7) = FEAT/POINT,POL, 100.000000, 90, 0.000000, 0.000000, 0.000000,$
  1.000000
F(PT8) = FEAT/POINT,POL, 100.000000, 120, 0.000000, 0.000000, 0.000000,$
  1.000000  
F(PT9) = FEAT/POINT,POL, 100.000000, 150, 0.000000, 0.000000, 0.000000,$
  1.000000  
F(PT10) = FEAT/POINT,POL, 100.000000, 180, 0.000000, 0.000000, 0.000000,$
  1.000000  
F(PT11) = FEAT/POINT,POL, 100.000000, 210, 0.000000, 0.000000, 0.000000,$
  1.000000  
F(PT12) = FEAT/POINT,POL, 100.000000, 240, 0.000000, 0.000000, 0.000000,$
  1.000000  
F(PT13) = FEAT/POINT,POL, 100.000000, 270, 0.000000, 0.000000, 0.000000,$
  1.000000  
F(PT14) = FEAT/POINT,POL, 100.000000, 300, 0.000000, 0.000000, 0.000000,$
  1.000000  
F(PT15) = FEAT/POINT,POL, 100.000000, 330, 0.000000, 0.000000, 0.000000,$
  1.000000  
 
 
DECL/COMMON,CHAR,10,TIMES,SHISTR,FENGSTR,MIAOSTR
DECL/COMMON,DOUBLE,JDS,JDF,JDM,SHID,FENGD,MIAOD

$$ 把下面999999999改成60即走一分钟
DO/KNPTN1, 9999999999, 0 , -1
TIMES=ASSIGN/STIME()
SHISTR=ASSIGN/ELEMNT(1,'/',TIMES)
FENGSTR=ASSIGN/ELEMNT(2,'/',TIMES)
MIAOSTR=ASSIGN/ELEMNT(3,'/',TIMES)
SHID=ASSIGN/VAL(SHISTR)
FENGD=ASSIGN/VAL(FENGSTR)
MIAOD=ASSIGN/VAL(MIAOSTR)

JDM=ASSIGN/MIAOD*6
JDF=ASSIGN/FENGD*6+(MIAOD/60)*6
JDS=ASSIGN/SHID*30+(FENGD/60)*30

F(LN1) = FEAT/LINE,BND,POL, 0.000000, 0.000000, 0.000000, 60.000000,$
  360-JDS, 0.000000, 0.000000, 0.000000, 1.000000
F(LN2) = FEAT/LINE,BND,POL, 0.000000, 0.000000, 0.000000, 75.000000,$
  360-JDF, 0.000000, 0.000000, 0.000000, 1.000000
F(LN3) = FEAT/LINE,BND,POL, 0.000000, 0.000000, 0.000000, 90.000000,$
  360-JDM, 0.000000, 0.000000, 0.000000, 1.000000

DMESW/DELAY,1
ENDDO

解决方案文件：

上传的附件

  抱歉,您所在的组无权下载附件,请注册或登陆.

「该帖子被 alilongye 在 2011-10-27 9:56:45 编辑过」

------------------------------------------------------------------------
DMIS 空间--欢迎您！

很赞！ 顶一下

------------------------------------------------------------------------
环游世界，梦想人生。

楼上是美女？ 呵呵

------------------------------------------------------------------------
DMIS 空间--欢迎您！

好贴，顶顶顶。。。。。。。。。。。。

呵呵，有空我也搞搞这些小创意。

                             

                          哈哈。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

------------------------------------------------------------------------
我是初学者，大哥们，请多多指教，谢谢了

这种程序我还不会

------------------------------------------------------------------------
DMIS 空间--欢迎您！

有点意思，支持下！！！

------------------------------------------------------------------------
DMIS 空间--欢迎您！

高手！厉害！

------------------------------------------------------------------------
DMIS 空间--欢迎您！

解释一下ASSIGN/ELEMNT(1,'/',TIMES)

------------------------------------------------------------------------
DMIS 空间--欢迎您！

Shadowless operating light medical operating light medical led operating light Shadowless surgical light Electric operating table hydraulic operating table medical surgical lightmedical led surgical light Hydraulic gynecology table operating universal table Electric hydraulic operating table Electric gynecology table operating light surgical lightoperating table 尊者降世，众志成城，永生不灭手术无影灯 电动手术床 医用吊塔 多功能手术台 机械手术台 LED手术无影灯 医用手术灯 医用手术台 医用手术床 电动吊塔 液压手术台 电动机械手术台 医用手术无影灯 医用手术台 医用手术床 手术台 电动手术台 手术床 手术室无影灯 无影灯 综合手术台 多功能电动床 医用无影灯 LED无影灯 多功能手术床 LED手术灯 电动液压手术台 电动液压手术床 ICU电动吊塔 电动综合手术台 电动液压手术台 电动妇科手术台 LED手术灯 ICU吊塔 医用病床 妇科手术台 医用护理床 Electric Hydraulic gynecology operating table Electric multifunction operating table medical pendant operating lamp medical ICU pendant medical bed hospital bed medical table medical trolley medical cabint

------------------------------------------------------------------------
气动隔膜泵

隔膜计量泵

化工离心泵

电动隔膜泵

隔膜泵

离心泵

高手！厉害！支持一下！

------------------------------------------------------------------------
虚心学习 严谨测量