2013-06-19 07:54

 'Thanks To All RAPIDQ GRUOP
' DXF LIB For RAPIDQ
' Based On http://www.ualg.pt/est/adec/dxfortran/ fortan90 LIB
' Basic Entity only
' Hope Help's somemone
' I could not dowload in Guidance site so I send to the group!!
'*******************************************
     $INCLUDE "RQDxf.inc"
     DXFNAME= "DXFOUT.DXF"
     DXFOUT.OPEN("DXFF.DXF",65535)

     Layer ="Hola"
     EColor="1"
     x0=2:y0=1:z0=150
     Radius=5
     x1=10:y1=12
     x2=50:y2=42
     z1=100:z2=200
     h=5:LType="Hidden"

'init dxf file
     CALL dfBegin()
'circle
     CALL dfCircle (Layer,EColor ,X0 ,Y0 ,Z0 ,Radius)
'line
     CALL dfLine  (Layer,Ltype,EColor, X1, Y1, Z1, X2, Y2, Z2, H)
'R12 pline
     CALL dfBeginPline (Layer, EColor)
     CALL dfPlVertex   (Layer ,EColor ,X0 ,Y0 ,Z0)
     CALL dfPlVertex   (Layer ,EColor ,X1 ,Y1 ,Z1)
     CALL dfPlVertex   (Layer ,EColor ,X2 ,Y2 ,Z2)
     CALL dfEndPline   (Layer, EColor)
'text
     TextDXF="Long Live Fortran"
     Factor=5
     Angle=45
     AlignH=0
     AlignV=1
     StyleTXT="romans"
     CALL dfText (FileNum,Layer, EColor,X1,Y1, Z1,TextDXF,HeightTxt,Factor,Angle,Alignh,Alignv,StyleTXT)
     CALL dfpoint (FileNum, Layer , EColor , 4 ,7 , 8 )
     CALL dfEnd
     END

2013-06-19 07:54